#!/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 "<h3>Project::${project} jonet list</h3>";
print "<h4><a href=\"./mkjobnet_form.cgi?$project\">+Add Jobnet</a></h4>";
print "<div style=\"padding-left:42px\">";

@jobnets=();
@jobnets=`ls /usr/local/e-cron/project/$project`;

unless(@jobnets){
  print "<h6>There is no jobnet now. please create jobnet</h6>";
}else{
  while (<@jobnets>){
    print "<h4>|-<a href=\"./set_jobnet_form.cgi?${project},$_\">$_</a></h4>";
  }
}

print "</div>";
print "</div>";
print "<div class=\"large-4 columns\">";
print "<div style=\"padding-top:84px\">";
print "&nbsp;&nbsp;&nbsp;<a href=\"./project_list.cgi\">Back to Project list</a>";
print "<br></br>";
print "&nbsp;&nbsp;&nbsp;<a href=\"./delete_project_form.cgi?${project}\">Delete This Project</a>";
print "</div>";
print "</div>";
system("cat ../elements/footer");
