Select Code to Download

#!/vobs/cello/cade_struct/bin/perl -w

...
$owner =~ s/[^-\@\w.]//g;
system($ssh, '-l', $owner, $host, $binct, @op, @lbtype);
map{print"$_\n"}($ssh, '-l', $owner, $host, $binct, @op, @lbtype);

$ ~eeivob05/bin/locklbtype -vob /vobs/atcctest -l MG -u
Name "main::LOG" used only once: possible typo at /dev/fd/4 line 45.
Insecure dependency in system while running with -T switch at /dev/fd/
+4 line 61, <GEN1> line 5.

$ ~eeivob05/bin/locklbtype -vob /vobs/atcctest -l MG -u
Tainted(eaccount): 0, eeivob05
...
> print "Tainted(binct): ", tainted($binct), ", $binct\n";
> # map{print"$_\n"}($ssh, '-l', $owner, $uowner, $host, $binct, @op, 
+@lbtype);
> system($ssh, '-l', $uowner, $host, $binct, @op, @lbtype);

$ ~eeivob05/bin/locklbtype -vob /vobs/atcctest -l MG -u
Tainted(eaccount): 0, eeivob05
...
Tainted(binct): 0, /opt/rational/clearcase/bin/cleartool
IPC::System::Simple::run called with tainted argument "lbtype:MG@/vobs
+/atcctest" at (eval 10) line 13
 at /dev/fd/4 line 79

$ ct diff -diff -pred locklbtype
61,64c61,67
...
Tainted(host): 0, eieatx008
Tainted(binct): 0, /opt/rational/clearcase/bin/cleartool
Unlocked label type "MG".