| 44 |
|
$modulelist =~ s/[\r\n]/ /gm; |
| 45 |
|
|
| 46 |
|
my($cvs2clpath) = "/usr/local/bin/cvs2cl"; |
| 47 |
< |
my($cvs2clargs) = "--stdout --no-wrap --no-common-dir -r -t -w -S -U $cvsroot/CVSROOT/users -l \"-d'$firstdate'\" -g \"-d$cvsroot\" -g \"-Q\""; |
| 47 |
> |
my($cvs2clargs) = "--stdout --no-wrap --no-common-dir -r -t -w -S -U $cvsroot/CVSROOT/users -l \"-d$firstdate\" -g \"-d$cvsroot\" -g \"-Q\""; |
| 48 |
|
my($updatecmd) = "/home/iscream/bin/fullcvsupdate.sh $modulelist"; |
| 49 |
|
my($logcmd) = "cd /tmp/i-scream/cvstmp && $cvs2clpath $cvs2clargs"; |
| 50 |
|
|
| 51 |
< |
my ($incdir) = "../nwww"; |
| 51 |
> |
my ($incdir) = "../htdocs"; |
| 52 |
|
|
| 53 |
|
# Include files |
| 54 |
|
my ($doctype) = "$incdir/doctype.inc"; |
| 55 |
|
my ($style) = "$incdir/style.inc"; |
| 56 |
|
my ($header) = "$incdir/header.inc"; |
| 57 |
|
my ($footer) = "$incdir/footer.inc"; |
| 58 |
< |
my ($menu) = "$incdir/menu.inc" ; |
| 58 |
> |
my ($menu) = "$incdir/menu-static.inc" ; |
| 59 |
|
|
| 60 |
|
# Section markers |
| 61 |
– |
my ($sec) = 0; |
| 61 |
|
my ($secwho) = 1; |
| 62 |
|
my ($secfiles) = 2; |
| 63 |
|
my ($seclog) = 3; |
| 105 |
|
|
| 106 |
|
foreach my $module (@modules) { |
| 107 |
|
my($firstentry) = 1; |
| 108 |
+ |
my($sec) = 0; |
| 109 |
|
print <<"END"; |
| 110 |
|
<div> |
| 111 |
|
<h3> |
| 135 |
|
@log = &trim_array(@log); |
| 136 |
|
foreach my $logline (@log) { |
| 137 |
|
$logline =~ s/^\t//; |
| 138 |
< |
print "$logline\n"; |
| 138 |
> |
print escapeHTML("$logline\n"); |
| 139 |
|
} |
| 140 |
|
@log = (); |
| 141 |
|
print <<"END"; |
| 251 |
|
@log = &trim_array(@log); |
| 252 |
|
foreach my $logline (@log) { |
| 253 |
|
$logline =~ s/^\t//; |
| 254 |
< |
print "$logline\n"; |
| 254 |
> |
print escapeHTML("$logline\n"); |
| 255 |
|
} |
| 256 |
|
@log = (); |
| 257 |
|
print <<"END"; |
