"Subject: $Subject\n" .
"Organization: http://www.algebra.com/~ichudov/stump\n";
+ $message .= "\n# $cathow\n";
$message .= "\n$decision\n";
$message .= "comment $comment\n" if $comment;
&email_message( $message, $address );
our $timesquash = 3;
# no. of digits at end of time to replace with x, 0..4
+our %reasonshow = qw(approve 1 reject 1);
+# no. of words to show
for (;;) {
last unless @ARGV;
while (m/^-./) {
if (s/^-t([0-4])/-/) {
$timesquash= $1;
+ } elsif (s/^-r(\w+)=(\d)$//) {
+ $reasonshow{$1}= $2;
} else {
die "bad option $_ ?";
}
$sp[5]= a({ href=>"$staticfiles/nr-$s[6].txt" }, $sp[5] );
}
+ if ($sp[5] =~ m/^\w+\b/ &&
+ defined (my $reasonshow= $reasonshow{$&})) {
+ my @reas= split /\s+/, $sp[5];
+ $reasonshow--;
+ $#reas = $reasonshow if $#reas > $reasonshow;
+ $sp[5] = join ' ', @reas;
+ }
+
print "<tr class='$oddeven'><td>$sp[0]</td>";
print "<td class='ref'>$sp[1] $sp[2]</td>";
print td([@sp[3..5]]),"</tr>\n";