From 548308405c2862a268831acc5628178e4db2f0a2 Mon Sep 17 00:00:00 2001
From: Daniel Maya <daniel.maya@pandorafms.com>
Date: Thu, 27 Oct 2022 09:40:33 +0200
Subject: [PATCH] #9447 WIP

---
 pandora_server/util/pandora_manage.pl | 31 +++++++++++++++++++++++----
 1 file changed, 27 insertions(+), 4 deletions(-)

diff --git a/pandora_server/util/pandora_manage.pl b/pandora_server/util/pandora_manage.pl
index 17a62f37dc..4ce5d40ae9 100755
--- a/pandora_server/util/pandora_manage.pl
+++ b/pandora_server/util/pandora_manage.pl
@@ -21,7 +21,7 @@ use JSON qw(decode_json encode_json);
 use MIME::Base64;
 use Encode qw(decode encode_utf8);
 use LWP::Simple;
-#use Data::Dumper;
+use Data::Dumper;
 
 # Default lib dir for RPM and DEB packages
 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);
 }
 
+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
@@ -7648,9 +7664,16 @@ sub pandora_manage_main ($$$) {
 			cli_delete_profile();
 		}
 		elsif ($param eq '--create_event') {
-			param_check($ltotal, 20, 17);
-			cli_create_event();
-		}		
+			my @items = (
+				{'type' => 'string', 'name' => 'user'},
+				{'type' => 'int', 'name' => 'group'}
+			);
+
+			test(\@items);
+			# param_check($ltotal, 20, 17);
+
+			# cli_create_event();
+		}
 		elsif ($param eq '--validate_event') {
 			param_check($ltotal, 8, 7);
 			cli_validate_event();