Script name variable now untainted to allow running within -T application constraints (#1314)

src/contrib/warden-client-nosoap/lib/WardenClientReceive.pm

@@ -36,7 +36,7 @@ sub getNewEvents
     WardenClientConf::loadConf($conf_file);
 
     # set name of ID file for each client aplication 
-    my $caller_name = $FindBin::Script;
+    my ($caller_name) = ($FindBin::Script =~ /^(.*)$/);	# untaint
     my $id_file = $vardir . $caller_name . "-". ($requested_type || "any") . ".id";
 
     #-----------------------------------------------------------------------------

src/warden-client/lib/WardenClientReceive.pm

@@ -39,7 +39,7 @@ sub getNewEvents
     WardenClientConf::loadConf($conf_file);
 
     # set name of ID file for each client aplication 
-    my $caller_name = $FindBin::Script;
+    my ($caller_name) = ($FindBin::Script =~ /^(.*)$/);	# untaint
     my $id_file = $vardir . $caller_name . "-". ($requested_type || "any") . ".id";
 
     #-----------------------------------------------------------------------------