| 14 |  | if ($days < 1) {$days = 1}; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 15 |  | $heading = "i-scream CVS$moduleext commits in the past $days day(s)"; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 16 |  | $days--; | 
 
 
 
 
 
 
 
 
 
 
 | 17 | < | $firstdate = ">" . `date --date \"$days days ago\" \"+%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'); | 
 
 
 
 
 
 
 
 
 
 
 | 21 | < | $date = `/bin/date \"+%Y/%m/%d\"` unless defined $date; | 
 
 
 
 
 
 
 
 
 | 21 | > | $date = `/bin/date +%Y/%m/%d` unless defined $date; | 
 
 
 
 
 
 
 
 
 
 
 | 22 |  | $heading = "i-scream CVS$moduleext commits on $date"; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 23 |  | $firstdate = "$date 00:00<$date 23:59" | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 24 |  | } | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 25 |  | elsif($period eq "since") { | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 26 |  | my($date)=$query->param('date'); | 
 
 
 
 
 
 
 
 
 
 
 | 27 | < | $date = `/bin/date \"+%Y/%m/%d\"` unless defined $date; | 
 
 
 
 
 
 
 
 
 | 27 | > | $date = `/bin/date +%Y/%m/%d` unless defined $date; | 
 
 
 
 
 
 
 
 
 
 
 | 28 |  | $heading = "i-scream CVS$moduleext commits since $date"; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 29 |  | $firstdate = ">$date"; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 30 |  | } | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 34 |  | } | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 35 |  | else { | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 36 |  | # default to "today only" | 
 
 
 
 
 
 
 
 
 
 
 | 37 | < | $firstdate = ">" . `/bin/date \"+%Y/%m/%d\"`; | 
 
 
 
 
 
 
 
 
 | 37 | > | $firstdate = ">" . `/bin/date +%Y/%m/%d`; | 
 
 
 
 
 
 
 
 
 
 
 | 38 |  | $heading = "Today's i-scream CVS$moduleext commits"; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 39 |  | } | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 40 |  |  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 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 |  | } |