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, 5 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

# User Rev Content
1 tdb 1.1 #!/usr/bin/perl
2    
3     print "Content-type: text/html\n\n";
4    
5     my($today) = `date \"+%Y/%m/%d\"`;
6 tdb 1.4 my($cvs) = "/home/cut/tdb1/bin/cvs";
7 tdb 1.1 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 tdb 1.4 my($cmd) = "cd /home/cut/tdb1/cvsscripttemp && $cvs -d $cvsroot -Q update -d && $cvs2clpath $cvs2clargs *";
11 tdb 1.1
12 tdb 1.4 my(@lines) = `$cmd 2>&1`;
13 tdb 1.1
14     print <<"END";
15     <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
16    
17     <html>
18    
19     <head>
20 tdb 1.2 <title>The i-scream Project Daily Commit Log</title>
21 tdb 1.1 <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 tdb 1.3 <a href="viewcvs.cgi">Browse i-scream CVS repository</a>
36 tdb 1.1
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