diff --git a/src/warden-server/bin/registerReceiver.pl b/src/warden-server/bin/registerReceiver.pl index c521d1b75b1ec258031893a742311363a33e9420..891d2a08d4caaeb8a0e891133020928f1da4600e 100755 --- a/src/warden-server/bin/registerReceiver.pl +++ b/src/warden-server/bin/registerReceiver.pl @@ -40,13 +40,13 @@ WardenCommon::loadConf($conf_file); # FUNCTIONS ################################################################################ sub usage { - print "Usage: $RealScript -n <hostname> -r <requestor> -t <type> -o -c <ip_net_client> [-i <client_id> -h -V]\n"; + print "Usage: $RealScript -n <hostname> -r <requestor> -t <type> -o -c <cidr> [-i <client_id> -h -V]\n"; exit 1; } sub help { - print "$RealScript -n <hostname> -r <requestor> -t <type> -o -c <ip_net_client> [-i <client_id> -h -V]\n"; + print "$RealScript -n <hostname> -r <requestor> -t <type> -o -c <cidr> [-i <client_id> -h -V]\n"; print "-n hostname of receiver\n"; print "-r e-mail address of client registration requestor\n"; print "-t type of received events or '_any_' for receiving of all types of events\n"; @@ -114,11 +114,10 @@ if ($script_version) { # check parameters definition switch () { - case {!defined $hostname} {WardenCommon::errMsg("Parameter 'hostname' is not defined!")} - case {!defined $requestor} {WardenCommon::errMsg("Parameter 'requestor' is not defined!")} - case {!defined $type} {WardenCommon::errMsg("Parameter 'type' is not defined!")} - case {!defined $receive_own_events} {WardenCommon::errMsg("Parameter 'receive_own_events' is not defined!")} - case {!defined $ip_net_client} {WardenCommon::errMsg("Parameter 'ip_net_client' is not defined!")} + case {!defined $hostname} {WardenCommon::errMsg("Parameter '-n <hostname>' is not defined!")} + case {!defined $requestor} {WardenCommon::errMsg("Parameter '-r <requestor>' is not defined!")} + case {!defined $type} {WardenCommon::errMsg("Parameter '-t <type>' is not defined!")} + case {!defined $ip_net_client} {WardenCommon::errMsg("Parameter '-c <cidr>' is not defined!")} } # check validity of IP address (CIDR format) @@ -128,7 +127,7 @@ if ($ip_net_client !~ /^(([0-9]|[1-9][0-9]|1[0-9]{2}|2[0-4][0-9]|25[0-5])\.){3}( # check client ID if (defined $client_id && $client_id !~ /^\d+\z/) { - WardenCommon::errMsg("Parameter 'client_id' is not a integer!"); + WardenCommon::errMsg("Parameter '-i <client_id>' is not a integer!"); } # defined variables by script diff --git a/src/warden-server/bin/registerSender.pl b/src/warden-server/bin/registerSender.pl index 725069d08f657bfd6ac914767b134ef86c02f83e..fc7d48b51bc754f0064cecfcb899255abff06ead 100755 --- a/src/warden-server/bin/registerSender.pl +++ b/src/warden-server/bin/registerSender.pl @@ -40,13 +40,13 @@ WardenCommon::loadConf($conf_file); # FUNCTIONS ################################################################################ sub usage { - print "Usage: $RealScript -n <hostname> -r <requestor> -s <service> -d <description_tags> -c <ip_net_client> [-i <client_id> -h -V]\n"; + print "Usage: $RealScript -n <hostname> -r <requestor> -s <service> -d <description_tags> -c <cidr> [-i <client_id> -h -V]\n"; exit 1; } sub help { - print "$RealScript -n <hostname> -r <requestor> -s <service> -d <description_tags> -c <ip_net_client> [-i <client_id> -h -V]\n"; + print "$RealScript -n <hostname> -r <requestor> -s <service> -d <description_tags> -c <cidr> [-i <client_id> -h -V]\n"; print "-n hostname of sender\n"; print "-r e-mail address of client registration requestor\n"; print "-s name of service which sent events\n"; @@ -110,11 +110,11 @@ if ($script_version) { # check parameters definition switch () { - case {!defined $hostname} {WardenCommon::errMsg("Parameter 'hostname' is not defined!")} - case {!defined $requestor} {WardenCommon::errMsg("Parameter 'requestor' is not defined!")} - case {!defined $service} {WardenCommon::errMsg("Parameter 'service' is not defined!")} - case {!defined $description_tags} {WardenCommon::errMsg("Parameter 'description_tags' is not defined!")} - case {!defined $ip_net_client} {WardenCommon::errMsg("Parameter 'ip_net_client' is not defined!")} + case {!defined $hostname} {WardenCommon::errMsg("Parameter '-n <hostname>' is not defined!")} + case {!defined $requestor} {WardenCommon::errMsg("Parameter '-r <requestor>' is not defined!")} + case {!defined $service} {WardenCommon::errMsg("Parameter '-s <service>' is not defined!")} + case {!defined $description_tags} {WardenCommon::errMsg("Parameter '-d <description_tags>' is not defined!")} + case {!defined $ip_net_client} {WardenCommon::errMsg("Parameter '-c <cidr>' is not defined!")} } # check validity of IP address (CIDR format) @@ -124,7 +124,7 @@ if ($ip_net_client !~ /^(([0-9]|[1-9][0-9]|1[0-9]{2}|2[0-4][0-9]|25[0-5])\.){3}( # check client ID if (defined $client_id && $client_id !~ /^\d+\z/) { - WardenCommon::errMsg("Parameter 'client_id' is not a integer!"); + WardenCommon::errMsg("Parameter '-i <client_id>' is not a integer!"); } # defined variables by method