# | Line 14 | Line 14 | if($period eq "days") { | |
---|---|---|
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'); | |
# | Line 45 | Line 44 | $modulelist = `ls $cvsroot` unless defined $modulelist | |
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 | ||
# | Line 105 | Line 104 | foreach my $module (@modules) { | |
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 | } | |
# | Line 113 | Line 112 | foreach my $module (@modules) { | |
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 | } |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |