ViewVC Help
View File | Revision Log | Show Annotations | Revision Graph | Root Listing
root/i-scream/web/cgi-bin/cvslog.cgi
Revision: 1.4
Committed: Fri May 25 16:40:08 2001 UTC (23 years, 4 months ago) by tdb
Branch: MAIN
Changes since 1.3: +3 -2 lines
Log Message:
Best update the checked out copy before doing the cvs2cl.

File Contents

# Content
1 #!/usr/bin/perl
2
3 print "Content-type: text/html\n\n";
4
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 *";
11
12 my(@lines) = `$cmd 2>&1`;
13
14 print <<"END";
15 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
16
17 <html>
18
19 <head>
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.">
26 </head>
27
28 <body bgcolor="#ffffff" link="#0000ff" alink="#3333cc" vlink="#3333cc"
29 text="#000066">
30
31 <a href="http://www.i-scream.org.uk"><img border="0" src="../i-scream.gif"></a>
32
33 <h3>Today's i-scream CVS commits</h3>
34
35 <a href="viewcvs.cgi">Browse i-scream CVS repository</a>
36
37 <pre>
38 END
39
40 foreach my $line (@lines) {
41 print HTML_encode($line);
42 }
43
44 print <<"END";
45 </pre>
46 </body>
47
48 </html>
49 END
50
51 exit 0;
52
53 #------------------------------------------------------
54 # sub HTML_encode
55 #
56 # escape HTML characters that may cause problems when
57 # shown either in the <body> or within text fields.
58 #------------------------------------------------------
59 sub HTML_encode ($){
60 my ($encoded) = @_;
61 $encoded =~ s/&/&amp;/g;
62 $encoded =~ s/"/&quot;/g;
63 $encoded =~ s/</&lt;/g;
64 $encoded =~ s/>/&gt;/g;
65 return $encoded;
66 }
67