[Bio] / FigKernelScripts / daily.pl Repository:
ViewVC logotype

View of /FigKernelScripts/daily.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.7 - (download) (as text) (annotate)
Fri Jul 1 18:16:58 2011 UTC (8 years, 9 months ago) by disz
Branch: MAIN
CVS Tags: mgrast_dev_08112011, mgrast_dev_08022011, mgrast_release_3_1_2, mgrast_release_3_1_1, rast_rel_2011_0928, mgrast_dev_12152011, mgrast_dev_10262011
Changes since 1.6: +1 -1 lines
Fixed bad font in column 1 heading

#!/usr/bin/perl -w

use Data::Dumper;
use Carp;
use strict;
use CGI;

my $cgi = new CGI;

my $source_dir = "/vol/public-pseed/SharedData/DailyStatistics";

my $hdr = `cat $source_dir/heading`;

print "<html><head>\n";
print "<title>The Daily SEED</title>\n";
print "<meta http-equiv=\"refresh\" content='600' >";
print "</head>\n";
print "<body>";
print "<br><br><br><hr>";
print $hdr;
if (-e "$source_dir/motd") {
	print `cat $source_dir/motd`;
	print "<hr>\n";
}

print "<center><table CELLPADDING=\"3\" WIDTH=\"100%\"><tr> <td ALIGN=\"LEFT\" VALIGN=\"TOP\" WIDTH=\"30%\">"; 
print "<center>";
print "<tt><u><h2>PUBSEED ANNOTATIONS</h2></u>\n";
print "</center>";
print "<div style=\"overflow:auto; height:600px;\">";
print `cat $source_dir/pubseed_annos`;
print "</div>";
print "</td>\n";

print "<td align=\"center\" valign=\"top\" width=\"3\"><div style=\"width:1px;background-color:#C0C0C0;margin-left:1px;margin-right:1px;height:2500px;\"></div></td>";
print "<td ALIGN=\"LEFT\" VALIGN=\"TOP\" WIDTH=\"30%\"><tt><b>";
print "<center>";
print "<u><h2>RAST NEWS</h2></u>\n";
print "</center>";
print `cat $source_dir/rast_queue`;
my $img = `cat $source_dir/ganglia_hourly`;
print "<center>";
print "<h3>RAST Hourly Queue</h3>\n";
print "</center>";
print "<img src='$img'>";
$img = `cat $source_dir/ganglia_daily`;
print "<center>";
print "<h3>RAST Daily Queue</h3>\n";
print "</center>";
print "<img src='$img'>";
my $img = `cat $source_dir/ganglia_weekly`;
print "<center>";
print "<h3>RAST Weekly Queue</h3>\n";
print "</center>";
print "<img src='$img'>";
print "<center>";
print "<h3>RAST Citations</h3>\n";
print "</center>";
print "<div style=\"overflow:auto; height:600px;\">";
print `cat $source_dir/pm.html`;
print "</div>";
#print "</pre>";
print "</td>\n";
 
print "<td align=\"center\" valign=\"top\" width=\"3\"><div style=\"width:1px;background-color:#C0C0C0;margin-left:1px;margin-right:1px;height:2500px;\"></div></td>";
print "<td ALIGN=\"LEFT\" VALIGN=\"TOP\" WIDTH=\"40%\"><tt><b>";
print "<center>";
print "<u><h2>NEW PUBSEED GENOMES</h2></u>";
print "</center>";
print "<div style=\"overflow:auto; height:600px;\">";
print `cat $source_dir/new_genomes`;
print "</div>";
print "<hr>\n";
print "</td>\n";

print $cgi->end_html();

1;


MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3