processmail/subroutines.pl - diff

Return to subroutines.pl CVS log

Up to [Local Repository] / processmail

version 3.2, 2013/10/11 15:39:35	version 3.3, 2013/10/30 19:28:30
Line 17 sub readhash	Line 17 sub readhash
{	{
print STDERR "\#$number. Score: $score\n",$answer;	print STDERR "\#$number. Score: $score\n",$answer;
}	}
if ($answer ne "" && $number >0)	if ($answer ne "" && $number >= 0)
{	{
$$answers[$number]->{$answer}->{score} = $score;	$$answers[$number]->{$answer}->{score} = $score;
%{$$answers[$number]->{$answer}->{teams}} = ();	%{$$answers[$number]->{$answer}->{teams}} = ();
Line 33 sub readhash	Line 33 sub readhash
}	}
if (/^\s\\\\s*$/)	if (/^\s\\\\s*$/)
{	{
if ($answer ne "" && $number >0)	if ($answer ne "" && $number >= 0)
{	{
$$answers[$number]->{$answer}->{score} = $score;	$$answers[$number]->{$answer}->{score} = $score;
}	}
Line 73 sub readmail	Line 73 sub readmail
$$table{$team}->{'numletters'}++;	$$table{$team}->{'numletters'}++;
if ($$table{$team}->{regnum} != $2)	if ($$table{$team}->{regnum} != $2)
{	{
print STDERR "Warning: Team $team uses registration nos. ",	print STDERR "Warning: Team $team uses registration numbers ",
$$table{$team}->{regnum}, " and $2!\n";	"'" . $$table{$team}->{regnum} . "'", " and '$2'!\n";
}	}
next;	next;
}	}
Line 129 sub canonize_answer	Line 129 sub canonize_answer
sub collect_answers	sub collect_answers
{	{
my ($teams,$answers) = @_;	my ($teams,$answers) = @_;
for ($i=1;$i<=$MAXQUEST;$i++)	for ($i=$MINQUEST;$i<=$MAXQUEST;$i++)
{	{
foreach $team (keys %$teams)	foreach $team (keys %$teams)
{	{