--- /dev/null
+#!/usr/bin/perl
+
+print "Content-type: text/html\n\n";
+
+my($today) = `date \"+%Y/%m/%d\"`;
+my($cvs2clpath) = "/home/cut/tdb1/bin/cvs2cl";
+my($cvsroot) = "/usr/local/proj/co600_10/cvs";
+my($cvs2clargs) = "--stdout -r -b -t -w -U $cvsroot/CVSROOT/users -l \"-d'\>$today'\" -g \"-d$cvsroot\" -g \"-Q\"";
+my($cmd) = "cd /home/cut/tdb1/cvsscripttemp && $cvs2clpath $cvs2clargs *";
+
+my(@lines) = `$cmd`;
+
+print <<"END";
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
+
+<html>
+
+<head>
+ <title>The i-scream Project Logfile Tailer</title>
+ <meta name="description" content="The i-scream Project is a central
+monitoring system for Unix, Linux and NT servers.">
+ <meta name="keywords" content="i-scream, project, central monitoring
+system, unix, linux, nt, server, alert">
+ <meta name="generator" content="notepad on acid, aye.">
+</head>
+
+<body bgcolor="#ffffff" link="#0000ff" alink="#3333cc" vlink="#3333cc"
+text="#000066">
+
+<a href="http://www.i-scream.org.uk"><img border="0" src="../i-scream.gif"></a>
+
+<h3>Today's i-scream CVS commits</h3>
+
+<a href="cvsweb.cgi">Browse i-scream CVS repository</a>
+
+<pre>
+END
+
+foreach my $line (@lines) {
+ print HTML_encode($line);
+}
+
+print <<"END";
+</pre>
+</body>
+
+</html>
+END
+
+exit 0;
+
+#------------------------------------------------------
+# sub HTML_encode
+#
+# escape HTML characters that may cause problems when
+# shown either in the <body> or within text fields.
+#------------------------------------------------------
+sub HTML_encode ($){
+ my ($encoded) = @_;
+ $encoded =~ s/&/&/g;
+ $encoded =~ s/"/"/g;
+ $encoded =~ s/</</g;
+ $encoded =~ s/>/>/g;
+ return $encoded;
+}
+
i-scream / www.i-scream.org.git / commitdiff
