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

$string = $ENV{'QUERY_STRING'};
$string =~s/\///g ;
$project = $string;

print "Content-type: text/html\n\n";
###############contents insert#########
system("cat ../elements/header");
print "<div class=\"large-8 columns\">";
print "<form method=\"post\" action=\"./mkjobnet.cgi\">";
print "<h4>${project}::</h4>";
print "<input type=\"text\" name=\"jobnet\" value=\"\" pattern=\"[a-zA-Z0-9\.-_]+\" required>";
print "<input type=\"hidden\" name=\"project\" value=\"$project\">";
print "<input type=\"submit\" class=\"button\" value=\"Create Jobnet\">";
print "</form>";
print "</div>";
print "<div class=\"large-4 columns\">";
print "<div style=\"padding-left:32px\">";
print "<a href=\"./jobnet_list.cgi?$project\">Back to Jobnet List</a>";
print "</div>";
print "</div>";
system("cat ../elements/footer");
