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


print "Content-type: text/html\n\n";

###############contents insert#########
system("cat ../elements/header");
print "<h3>projects</h3>";
print "<h4><a href=\"./mkproject_form.cgi\">+Add Project</a></h4>";
print "<div style=\"padding-left:42px\">";
@PROJECTS=`ls /usr/local/e-cron/project`;

unless(@PROJECTS){
 print "<h4>There is no project now. please add project</h4>";
}else{
  while (<@PROJECTS>){
    print "<h4>|-<a href=\"./jobnet_list.cgi?$_\">$_</a></h4>";
  }
}
print "</div>";
system("cat ../elements/footer");
