| 14 | 
   | 
     if ($days < 1) {$days = 1}; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 15 | 
   | 
     $heading = "i-scream CVS$moduleext commits in the past $days day(s)"; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 16 | 
   | 
     $days--; | 
 
 
 
 
 
 
 
 
 
 
 
 | 17 | 
 < | 
     $days .= "d"; # because we can't write "$daysd" below :-) | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 18 | 
 < | 
     $firstdate = ">" . `/bin/date -v-$days +%Y/%m/%d`; | 
 
 
 
 
 
 
 
 
 
 | 17 | 
 > | 
     $firstdate = ">" . `/bin/date -v-${days}d +%Y/%m/%d`; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 18 | 
   | 
 } | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 19 | 
   | 
 elsif($period eq "date") { | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 20 | 
   | 
     my($date)=$query->param('date'); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 104 | 
   | 
                 print "\n<font color=\"blue\">\n<b>"; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 105 | 
   | 
                 print HTML_encode($1); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 106 | 
   | 
                 print "</b>\n<i>"; | 
 
 
 
 
 
 
 
 
 
 
 
 | 107 | 
 < | 
                 print " commited by <a href=\"mailto:$3\" style=\"text-decoration: none;\">"; | 
 
 
 
 
 
 
 
 
 
 | 107 | 
 > | 
                 print " committed by <a href=\"mailto:$3\" style=\"text-decoration: none;\">"; | 
 
 
 
 
 
 
 
 
 
 
 
 | 108 | 
   | 
                 print HTML_encode("$2"); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 109 | 
   | 
                 print "</a></i>\n</font>\n" | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 110 | 
   | 
             } | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 112 | 
   | 
                 print "\n<font color=\"blue\">\n<b>"; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 113 | 
   | 
                 print HTML_encode($1); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 114 | 
   | 
                 print "</b>\n<i>"; | 
 
 
 
 
 
 
 
 
 
 
 
 | 115 | 
 < | 
                 print " commited by "; | 
 
 
 
 
 
 
 
 
 
 | 115 | 
 > | 
                 print " committed by "; | 
 
 
 
 
 
 
 
 
 
 
 
 | 116 | 
   | 
                 print HTML_encode("$2"); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 117 | 
   | 
                 print "</i>\n</font>\n" | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 118 | 
   | 
             } |