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


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

###############contents insert#########
system("cat ../elements/header");
print "<div style=\"padding-left:12px;\">";
$daemon_log=`/usr/local/e-cron/bin/daemon_log_stat| grep -v "No error" | grep -v "Notice:"| grep -v \"^If you want\"`;

unless($daemon_log){
  print "<h4>No daemon error</h4>";
  print "</div>";
  system("cat ../elements/footer");
  exit 0
}

print "<pre>";
system("/usr/local/e-cron/bin/daemon_log_stat |  grep -v \"^If you want\" ");
print "</pre>";
print "</div>";
system("cat ../elements/footer");
