#!/usr/bin/perl
use CGI qw(param);

$home="/usr/local/e-cron";
$string = $ENV{'QUERY_STRING'};
$string =~s/\///g ;
$project =`echo $string | awk -F\",\" '{print \$1}'`;
$project =~s/\s//g ;
$jobnet =`echo $string | awk -F\",\" '{print \$2}'`;
$jobnet =~s/\s//g ;
$file_name =`echo $string | awk -F\",\" '{print \$3}'`;
$file_name =~s/\s//g ;

system("sudo -u ejobmgr rm /${home}/project/${project}/${jobnet}/bat/${file_name}");

###############contents insert#########
# redirect to jobnet setting
print "Content-type: text/html\n\n";
print "<html>";
print "<head>";
print "<meta http-equiv=\"refresh\" content=\"0; url=./set_jobnet_form.cgi?${project},${jobnet}\">";
print "</head>";
