processmail/subroutines.pl - diff

Return to subroutines.pl CVS log

Up to [Local Repository] / processmail

version 1.1, 2002/02/04 17:18:33	version 1.2, 2005/01/24 03:14:49
Line 65 sub readmail	Line 65 sub readmail
{	{
my @teamanswers = ();	my @teamanswers = ();
my %teamhash = ('answers' => \@teamanswers,	my %teamhash = ('answers' => \@teamanswers,
'regnum' => $2);	'regnum' => $2,
	'numletters'=>0);
$$table{$team} = \%teamhash;	$$table{$team} = \%teamhash;
}	}
	$$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 nos. ",
Line 257 sub rate_questions	Line 259 sub rate_questions
#	#
sub find_scores	sub find_scores
{	{
my ($teams,$answers,$ratings) = @_;	my ($teams,$answers,$ratings,$factor) = @_;
foreach $team (keys %$teams)	foreach $team (keys %$teams)
{	{
$$teams{$team}->{score} = 0;	if (!defined($factor)) {
	$factor=1;
	}
	$$teams{$team}->{score} *=$factor;
$$teams{$team}->{rating} = 0;	$$teams{$team}->{rating} = 0;
for ($i=1;$i<=$MAXQUEST;$i++)	for ($i=1;$i<=$MAXQUEST;$i++)
{	{