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

$project = param("project");

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