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

print "Content-type: text/html\n\n";
###############contents insert#########
system("cat ../elements/header");
print "<div class=\"large-8 columns\">";
print "<form method=\"post\" action=\"./mkproject.cgi\">";
print "<h4>ProjectName:</h4>";
print "<input type=\"text\" name=\"project\" value=\"\" >";
print "<input type=\"submit\" class=\"button\" value=\"ADD Project\" pattern=\"[a-zA-Z0-9\.-_]+\" required>";
print "</form>";
print "</div>";
print "<div class=\"large-4 columns\">";
print "<div style=\"padding-left:32px\">";
print "<a href=\"./project_list.cgi\">Back to Project list</a>";
print "</div>";
print "</div>";
system("cat ../elements/footer");
