Commit 18258e06 authored by Mac Newbold's avatar Mac Newbold
Browse files

Add a taint check for \-tcsh, per Leigh's suggestion. It fixes the bug we were...

Add a taint check for \-tcsh, per Leigh's suggestion. It fixes the bug we were seeing, oddly enough.
parent 9ff5b4ba
......@@ -95,6 +95,7 @@ use Exporter;
);
# Must come after package declaration!
use lib '@prefix@/lib';
use English;
use File::Basename;
use POSIX qw(strftime);
......@@ -128,9 +129,11 @@ sub TBDBConnect()
# ran it. This is for accounting purposes.
#
my $scriptname;
# if ($0) {
# $scriptname = basename($0);
# }
my $prog="";
if ($0 =~ /^([a-z0-9\-\/\.\_]*)$/) { $prog = $1; }
if ($prog) {
$scriptname = basename($prog);
}
if (!$scriptname) {
$scriptname = "unknown";
}
......
Markdown is supported
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