tyler.durden/pandorafms
1
0
Fork 0
mirror of https://github.com/pandorafms/pandorafms.git synced 2025-07-31 01:35:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

#9447 WIP

Browse Source
This commit is contained in:
Daniel Maya 2022-10-27 09:40:33 +02:00
parent bf6f5479e8
commit 548308405c
1 changed files with 27 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
pandora_server/util/pandora_manage.pl
View File

@ -21,7 +21,7 @@ use JSON qw(decode_json encode_json);
use MIME::Base64; use MIME::Base64;
use Encode qw(decode encode_utf8); use Encode qw(decode encode_utf8);
use LWP::Simple; use LWP::Simple;
#use Data::Dumper; use Data::Dumper;
# Default lib dir for RPM and DEB packages # Default lib dir for RPM and DEB packages
BEGIN { push @INC, '/usr/lib/perl5'; } BEGIN { push @INC, '/usr/lib/perl5'; }
@ -1144,6 +1144,22 @@ sub help_screen_line($$$){
print "\n\t$option $parameters : $help.\n" unless ($param ne '' && $param ne $option); print "\n\t$option $parameters : $help.\n" unless ($param ne '' && $param ne $option);
} }
sub test ($) {
my (@item) = @_;
my @args = @ARGV;
my $arg_cont = 2;
my $total = $#args;
print_log Dumper(@item);
# print_log "$item[0]{name}\n\n";
while ($arg_cont <= $total) {
print_log "$args[$arg_cont]\n\n";
$arg_cont++;
}
}
############################################################################### ###############################################################################
############################################################################### ###############################################################################
# CLI FUNCTIONS # CLI FUNCTIONS
@ -7648,9 +7664,16 @@ sub pandora_manage_main ($$$) {
cli_delete_profile(); cli_delete_profile();
} }
elsif ($param eq '--create_event') { elsif ($param eq '--create_event') {
param_check($ltotal, 20, 17); my @items = (
cli_create_event(); {'type' => 'string', 'name' => 'user'},
} {'type' => 'int', 'name' => 'group'}
);
test(\@items);
# param_check($ltotal, 20, 17);
# cli_create_event();
}
elsif ($param eq '--validate_event') { elsif ($param eq '--validate_event') {
param_check($ltotal, 8, 7); param_check($ltotal, 8, 7);
cli_validate_event(); cli_validate_event();