if (open(LOGFILE,">> $logfile")) {
flock(LOGFILE,LOCK_EX);
seek(LOGFILE, 0, 2);
+ print LOGFILE "Client Address: $ENV{'REMOTE_ADDR'}\n";
print LOGFILE "Job $tmpid\n";
print LOGFILE $cmdout;
print LOGFILE "----------------------------------------------------\n";
if (open(JOBFILES,"> $::jobdir/$tmpid"))
{
flock(JOBFILES,LOCK_EX);
- print JOBFILES "gmt_start=$gmt_start\n";
- print JOBFILES "gmt_end=$gmt_end\n";
print JOBFILES "execution_time=$execution_time\n";
print JOBFILES "Phantom_Name=$Phantom_Name\n";
print JOBFILES "Phantom_Nx=$Phantom_Nx\n";
sub FilterMetaChars
{
my $var = pop(@_);
- $var =~ /^(\w+)$/;
+ $var =~ /^([-\w]+)$/;
$1;
}