# | Line 26 | Line 26 | else { | |
---|---|---|
26 | ||
27 | print "Content-type: text/html\n\n"; | |
28 | ||
29 | – | my($cvs) = "/usr/bin/cvs"; |
29 | my($cvs2clpath) = "/home/sites/www.i-scream.org.uk/bin/cvs2cl.pl"; | |
30 | my($cvsroot) = "/cvs/i-scream"; | |
32 | – | #my($cvs2clargs) = "--stdout -r -b -t -w -U $cvsroot/CVSROOT/users -l \"-d'\>$today'\" -g \"-d$cvsroot\" -g \"-Q\""; |
31 | my($cvs2clargs) = "--stdout -r -b -t -w -U $cvsroot/CVSROOT/users -l \"-d'\>$firstdate'\" -g \"-d$cvsroot\" -g \"-Q\""; | |
32 | < | my($updatecmd) = "cd /home/sites/www.i-scream.org.uk/cvsscripttemp && $cvs -d $cvsroot -Q update -d"; |
32 | > | my($updatecmd) = "/home/sites/www.i-scream.org.uk/bin/fullcvsupdate.sh"; |
33 | my($logcmd) = "cd /home/sites/www.i-scream.org.uk/cvsscripttemp && $cvs2clpath $cvs2clargs"; | |
34 | ||
35 | print <<"END"; | |
# | Line 40 | Line 38 | print <<"END"; | |
38 | <html> | |
39 | ||
40 | <head> | |
41 | < | <title>The i-scream Project Daily Commit Log</title> |
41 | > | <title>The i-scream Project Commit Log</title> |
42 | </head> | |
43 | ||
44 | < | <body bgcolor="#ffffff" link="#0000ff" alink="#3333cc" vlink="#3333cc" text="#000066"> |
44 | > | <body bgcolor="#ffffff" link="#ffffff" alink="#ffffff" vlink="#ffffff" text="#000066"> |
45 | ||
46 | <a href="http://www.i-scream.org.uk"><img border="0" src="../i-scream.gif"></a> | |
47 | ||
# | Line 53 | Line 51 | END | |
51 | ||
52 | print `$updatecmd`; | |
53 | ||
54 | < | my $modulelist = `ls $cvsroot`; |
54 | > | my($modulelist)=$query->param('module'); |
55 | > | $modulelist = `ls $cvsroot` unless defined $modulelist; |
56 | > | |
57 | my(@modules) = split (/\s+/, $modulelist); | |
58 | ||
59 | foreach my $module (@modules) { | |
60 | ||
61 | < | print "<p><h3>$module module</h3>\n"; |
62 | < | print "<a href=\"/cgi-bin/cvs/viewcvs.cgi/$module\">"; |
63 | < | print "Browse i-scream "$module" cvs module</a>\n"; |
64 | < | print "<pre>\n"; |
61 | > | print "<table border=\"0\" bgcolor=\"#000066\" cellpadding=\"5\" width=\"100%\">"; |
62 | > | print "<tr><td><font size=\"4\"><b><a href=\"/cgi-bin/cvs/viewcvs.cgi/$module\">$module module</a></b></font></td></tr>"; |
63 | > | print "<tr><td bgcolor=\"white\">\n"; |
64 | ||
65 | my(@lines) = `$logcmd $module 2>&1`; | |
66 | if(@lines == 0) { | |
67 | < | print "There have been no commits in this module during this period."; |
67 | > | print "There have been no commits in this module during this period.\n"; |
68 | } | |
69 | else { | |
70 | foreach my $line (@lines) { | |
71 | < | print HTML_encode($line); |
71 | > | |
72 | > | if ($line =~ /^([0-9]{4}-[0-9]{2}-[0-9]{2}.*?)([^\s]+)$/) { |
73 | > | print "<font color=\"blue\"><b>"; |
74 | > | print HTML_encode($1); |
75 | > | print "</b><i>"; |
76 | > | print HTML_encode("by $2"); |
77 | > | print "</i></font>" |
78 | > | } |
79 | > | else { |
80 | > | chop $line; |
81 | > | print "<code>"; |
82 | > | print HTML_encode($line); |
83 | > | print "</code><br>" |
84 | > | } |
85 | } | |
86 | } | |
87 | + | print "</td></tr>\n"; |
88 | ||
89 | < | print "</pre></p>\n\n"; |
89 | > | print "</table><p>\n\n"; |
90 | } | |
91 | ||
92 | print <<"END"; | |
93 | + | |
94 | </body> | |
95 | ||
96 | </html> |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |