3 print "Content-type: text/html\n\n";
5 my($today) = `date \"+%Y/%m/%d\"`;
6 my($cvs) = "/home/cut/tdb1/bin/cvs";
7 my($cvs2clpath) = "/home/cut/tdb1/bin/cvs2cl";
8 my($cvsroot) = "/usr/local/proj/co600_10/cvs";
9 my($cvs2clargs) = "--stdout -r -b -t -w -U $cvsroot/CVSROOT/users -l \"-d'\>$today'\" -g \"-d$cvsroot\" -g \"-Q\"";
10 my($cmd) = "cd /home/cut/tdb1/cvsscripttemp && $cvs -d $cvsroot -Q update -d && $cvs2clpath $cvs2clargs *";
12 my(@lines) = `$cmd 2>&1`;
15 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
20 <title>The i-scream Project Daily Commit Log</title>
21 <meta name="description" content="The i-scream Project is a central
22 monitoring system for Unix, Linux and NT servers.">
23 <meta name="keywords" content="i-scream, project, central monitoring
24 system, unix, linux, nt, server, alert">
25 <meta name="generator" content="notepad on acid, aye.">
28 <body bgcolor="#ffffff" link="#0000ff" alink="#3333cc" vlink="#3333cc"
31 <a href="http://www.i-scream.org.uk"><img border="0" src="../i-scream.gif"></a>
33 <h3>Today's i-scream CVS commits</h3>
35 <a href="viewcvs.cgi">Browse i-scream CVS repository</a>
40 foreach my $line (@lines) {
41 print HTML_encode($line);
53 #------------------------------------------------------
56 # escape HTML characters that may cause problems when
57 # shown either in the <body> or within text fields.
58 #------------------------------------------------------
61 $encoded =~ s/&/&/g;
62 $encoded =~ s/"/"/g;
63 $encoded =~ s/</</g;
64 $encoded =~ s/>/>/g;