| 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'); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 44 |  | $modulelist =~ s/[\r\n]/ /gm; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 45 |  |  | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 46 |  | my($cvs2clpath) = "/usr/local/bin/cvs2cl"; | 
 
 
 
 
 
 
 
 
 
 
 | 47 | < | my($cvs2clargs) = "--stdout --no-wrap -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 |  |  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 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 |  | } |