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