| 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 |  | } |