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

$jobnet = param("jobnet");
$project = param("project");

print "Content-type: text/html\n\n";
###############contents insert#########
system("cat ../elements/header");
print "<h6><a href=./jobnet_list.cgi?$project>Go to Jobnet List</a></h6>";
print "<pre>";
system("sudo -u ejobmgr /usr/local/e-cron/bin/for_cgi/mkjobnet $project $jobnet ");
print "</pre>";
print "</div>";
system("cat ../elements/footer");
