Skip to content
Snippets Groups Projects
Commit 30dde1e4 authored by Tomáš Plesník's avatar Tomáš Plesník
Browse files

pridan vypis verze skriptu, uprava napovedy

parent 1d37b647
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/warden-server/bin/getClients.pl
+ 25
− 6
View file @ 30dde1e4
...@@ -32,23 +32,42 @@ WardenCommon::loadConf($conf_file); ...@@ -32,23 +32,42 @@ WardenCommon::loadConf($conf_file);
# FUNCTIONS # FUNCTIONS
################################################################################ ################################################################################
sub usage { sub usage {
print "Usage: $RealScript [without parameters]\n"; print "Usage: $RealScript (without parameters) [-h -V]\n";
exit 1; exit 1;
} }
sub help {
print "$RealScript (without parameters) [-h -V]\n";
print "-h print this text and exit\n";
print "-V print version and exit\n";
exit 0;
}
sub version {
print "$RealScript: Version: $VERSION\n";
exit 0;
}
################################################################################ ################################################################################
# MAIN # MAIN
################################################################################ ################################################################################
our ($opt_h); our ($opt_h, $opt_V);
die usage unless getopts("h"); die usage unless getopts("hV");
my $help = $opt_h; my $help = $opt_h;
my $script_version = $opt_V;
# catch help param # catch help option
if ($help) { if ($help) {
usage; help;
}
# catch version option
if ($script_version) {
version;
} }
# connect to DB # connect to DB
......
src/warden-server/bin/getStatus.pl
+ 26
− 6
View file @ 30dde1e4
...@@ -33,23 +33,43 @@ WardenCommon::loadConf($conf_file); ...@@ -33,23 +33,43 @@ WardenCommon::loadConf($conf_file);
# FUNCTIONS # FUNCTIONS
################################################################################ ################################################################################
sub usage { sub usage {
print "Usage: $RealScript [without parameters]\n"; print "Usage: $RealScript (without parameters) [-h -V]\n";
exit 1; exit 1;
} }
sub help {
print "$RealScript (without parameters) [-h -V]\n";
print "-h print this text and exit\n";
print "-V print version and exit\n";
exit 0;
}
sub version {
print "$RealScript: Version: $VERSION\n";
exit 0;
}
################################################################################ ################################################################################
# MAIN # MAIN
################################################################################ ################################################################################
our ($opt_h); our ($opt_h, $opt_V);
die usage unless getopts("h"); die usage unless getopts("hV");
my $help = $opt_h; my $help = $opt_h;
my $script_version = $opt_V;
# catch help param # catch help option
if ($help) { if ($help) {
usage; help;
}
# catch version option
if ($script_version) {
version;
} }
# superuser controle # superuser controle
......
src/warden-server/bin/registerReceiver.pl
+ 20
− 6
View file @ 30dde1e4
...@@ -37,24 +37,32 @@ WardenCommon::loadConf($conf_file); ...@@ -37,24 +37,32 @@ WardenCommon::loadConf($conf_file);
# FUNCTIONS # FUNCTIONS
################################################################################ ################################################################################
sub usage { sub usage {
print "Usage: $RealScript -h -o -n <hostname> -r <requestor> -t <type> -c <ip_net_client> [-i <client_id>]\n"; print "Usage: $RealScript -n <hostname> -r <requestor> -t <type> -o -c <ip_net_client> [-i <client_id> -h -V]\n";
exit 1; exit 1;
} }
sub help { sub help {
print "$RealScript -h -o -n <hostname> -r <requestor> -t <type> -c <ip_net_client> [-i <client_id>]\n"; print "$RealScript -n <hostname> -r <requestor> -t <type> -o -c <ip_net_client> [-i <client_id> -h -V]\n";
print "-h print this text and exit\n";
print "-n hostname of receiver\n"; print "-n hostname of receiver\n";
print "-r client registration requestor\n"; print "-r client registration requestor\n";
print "-t type of received events or '_any_' for receiving of all types of events\n"; print "-t type of received events or '_any_' for receiving of all types of events\n";
print "-o enable receiving of own events\n"; print "-o enable receiving of own events\n";
print "-c CIDR of receiver\n"; print "-c CIDR of receiver\n";
print "-i user defined client ID (optional)\n"; print "-i user defined client ID (optional)\n";
print "-h print this text and exit\n";
print "-V print version and exit\n";
exit 0; exit 0;
} }
sub version {
print "$RealScript: Version: $VERSION\n";
exit 0;
}
#------------------------------------------------------------------------------- #-------------------------------------------------------------------------------
# sendMsg - wrapper for more complex WardenCommon::sendMsg function # sendMsg - wrapper for more complex WardenCommon::sendMsg function
#------------------------------------------------------------------------------- #-------------------------------------------------------------------------------
...@@ -72,29 +80,35 @@ sub sendMsg ...@@ -72,29 +80,35 @@ sub sendMsg
################################################################################ ################################################################################
# MAIN # MAIN
################################################################################ ################################################################################
our ($opt_n, $opt_r, $opt_t, $opt_o, $opt_c, $opt_i, $opt_h); our ($opt_n, $opt_r, $opt_t, $opt_o, $opt_c, $opt_i, $opt_h, $opt_V);
if ($#ARGV == -1) { if ($#ARGV == -1) {
usage; usage;
} }
die usage unless getopts("n:r:t:c:i:ho"); die usage unless getopts("n:r:t:c:i:ohV");
my $hostname = $opt_n; my $hostname = $opt_n;
my $requestor = $opt_r; my $requestor = $opt_r;
my $type = $opt_t; my $type = $opt_t;
my $ip_net_client = $opt_c; my $ip_net_client = $opt_c;
my $client_id = $opt_i; my $client_id = $opt_i;
my $help = $opt_h; my $help = $opt_h;
my $script_version = $opt_V;
my $receive_own_events = "f"; my $receive_own_events = "f";
if ($opt_o) { if ($opt_o) {
$receive_own_events = "t"; $receive_own_events = "t";
} }
# catch help param # catch help option
if ($help) { if ($help) {
help; help;
} }
# catch version option
if ($script_version) {
version;
}
# check parameters definition # check parameters definition
switch () { switch () {
case {!defined $hostname} {WardenCommon::errMsg("Parameter 'hostname' is not defined!")} case {!defined $hostname} {WardenCommon::errMsg("Parameter 'hostname' is not defined!")}
......
src/warden-server/bin/registerSender.pl
+ 19
− 6
View file @ 30dde1e4
...@@ -37,20 +37,27 @@ WardenCommon::loadConf($conf_file); ...@@ -37,20 +37,27 @@ WardenCommon::loadConf($conf_file);
# FUNCTIONS # FUNCTIONS
################################################################################ ################################################################################
sub usage { sub usage {
print "Usage: $RealScript -h -n <hostname> -r <requestor> -s <service> -d <description_tags> -c <ip_net_client> [-i <client_id>]\n"; print "Usage: $RealScript -n <hostname> -r <requestor> -s <service> -d <description_tags> -c <ip_net_client> [-i <client_id> -h -V]\n";
exit 1; exit 1;
} }
sub help { sub help {
print "$RealScript -h -n <hostname> -r <requestor> -s <service> -d <description_tags> -c <ip_net_client> [-i <client_id>]\n"; print "$RealScript -n <hostname> -r <requestor> -s <service> -d <description_tags> -c <ip_net_client> [-i <client_id> -h -V]\n";
print "-h print this text and exit\n";
print "-n hostname of sender\n"; print "-n hostname of sender\n";
print "-r client registration requestor\n"; print "-r client registration requestor\n";
print "-s name of service which sent events\n"; print "-s name of service which sent events\n";
print "-d description tags of send events\n"; print "-d description tags of send events\n";
print "-c CIDR of sender\n"; print "-c CIDR of sender\n";
print "-i user defined client ID (optional)\n"; print "-i user defined client ID (optional)\n";
print "-h print this text and exit\n";
print "-V print version and exit\n";
exit 0;
}
sub version {
print "$RealScript: Version: $VERSION\n";
exit 0; exit 0;
} }
...@@ -72,13 +79,13 @@ sub sendMsg ...@@ -72,13 +79,13 @@ sub sendMsg
################################################################################ ################################################################################
# MAIN # MAIN
################################################################################ ################################################################################
our ($opt_n, $opt_r, $opt_s, $opt_d, $opt_c, $opt_i, $opt_h); our ($opt_n, $opt_r, $opt_s, $opt_d, $opt_c, $opt_i, $opt_h, $opt_V);
if ($#ARGV == -1) { if ($#ARGV == -1) {
usage; usage;
} }
die usage unless getopts("n:r:s:d:c:i:h"); die usage unless getopts("n:r:s:d:c:i:hV");
my $hostname = $opt_n; my $hostname = $opt_n;
my $requestor = $opt_r; my $requestor = $opt_r;
my $service = $opt_s; my $service = $opt_s;
...@@ -86,12 +93,18 @@ my $description_tags = $opt_d; ...@@ -86,12 +93,18 @@ my $description_tags = $opt_d;
my $ip_net_client = $opt_c; my $ip_net_client = $opt_c;
my $client_id = $opt_i; my $client_id = $opt_i;
my $help = $opt_h; my $help = $opt_h;
my $script_version = $opt_V;
# catch help param # catch help option
if ($help) { if ($help) {
help; help;
} }
# catch version option
if ($script_version) {
version;
}
# check parameters definition # check parameters definition
switch () { switch () {
case {!defined $hostname} {WardenCommon::errMsg("Parameter 'hostname' is not defined!")} case {!defined $hostname} {WardenCommon::errMsg("Parameter 'hostname' is not defined!")}
......
src/warden-server/bin/unregisterClient.pl
+ 21
− 8
View file @ 30dde1e4
...@@ -37,15 +37,22 @@ WardenCommon::loadConf($conf_file); ...@@ -37,15 +37,22 @@ WardenCommon::loadConf($conf_file);
# FUNCTIONS # FUNCTIONS
################################################################################ ################################################################################
sub usage { sub usage {
print "Usage: $RealScript [-h -i <client_id>]\n"; print "Usage: $RealScript -i <client_id> [-h -V]\n";
exit 1; exit 1;
} }
sub help { sub help {
print "$RealScript [-h -i <client_id>]\n"; print "$RealScript -i <client_id> [-h -V]\n";
print "-h print this text and exit\n";
print "-i client_id for unregistration\n"; print "-i client_id for unregistration\n";
print "-h print this text and exit\n";
print "-V print version and exit\n";
exit 0;
}
sub version {
print "$RealScript: Version: $VERSION\n";
exit 0; exit 0;
} }
...@@ -67,21 +74,27 @@ sub sendMsg ...@@ -67,21 +74,27 @@ sub sendMsg
################################################################################ ################################################################################
# MAIN # MAIN
################################################################################ ################################################################################
our ($opt_h, $opt_i); our ($opt_i, $opt_h, $opt_V);
if ($#ARGV == -1) { if ($#ARGV == -1) {
usage; usage;
} }
die usage unless getopts("i:h"); die usage unless getopts("i:hV");
my $client_id = $opt_i; my $client_id = $opt_i;
my $help = $opt_h; my $help = $opt_h;
my $script_version = $opt_V;
# catch help param # catch help option
if ($help) { if ($help) {
help; help;
} }
# catch version option
if ($script_version) {
version;
}
# check parameters definition # check parameters definition
if (!defined $client_id) { if (!defined $client_id) {
WardenCommon::errMsg("Parameter 'client_id' is not defined!"); WardenCommon::errMsg("Parameter 'client_id' is not defined!");
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment