| 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"; |