$r
$pname
$pcr [$r1/$rg1 $r2/$rg2]
$pid
$pcr
0
0
0
0
END_BLOCK
}
# database is no longer needed
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
$dbh->disconnect();
exit(0);
}
}
else
{
$fields = "q.pid, p.name, p.country, p.flag, if(p.title is not null and p.title <> 'none',p.title,''), r.rating";
$fTerm = '\\t';
$lTerm = '\\n';
$enclose = '\\"';
$optionally = 'OPTIONALLY';
}
#concat('"', p.name, '"'), '@',
#concat('"', p.pid, '"'), '@',
#concat('"', p.country, '"'), '@',
#concat('""'), '@',
#concat('"', r.rating, '"'), '@',
#concat('"', IF(p.title<>'none',p.title,''), '"'), '@',
#concat('""'), '@',
#concat('"', p.pid, '"'), '@',
#concat('""'), '@',
#concat('"', IF(m.type>1,'M','G'), '"'), '@',
#concat('""'), '@',
#concat('""')
my( $encloseLine, $lTermLine, $fTermLine );
$encloseLine = "$optionally ENCLOSED BY '$enclose'" if $enclose;
$lTermLine = "LINES TERMINATED BY '$lTerm'" if $lTerm;
$fTermLine = "FIELDS TERMINATED BY '$fTerm'" if $fTerm;
my $stmt = "
select $fields
INTO OUTFILE '$outfile'
$fTermLine
$encloseLine
$lTermLine
from tbl_queue q, tbl_player p, tbl_rating r
where q.tid=?
and q.pid = p.pid
and q.pid = r.pid
and r.league = ?
order by r.rating
";
print $stmt, "
\n";
my $rc = MyDbi::doStmt( $stmt, $tid, $league );
# database is no longer needed
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
$dbh->disconnect();
if( $rc > 0 )
{
print( "Downloading $rc players...
" );
#Util::redirectPlain( $outurl );
exit(0);
}
else
{
print "tid=", $cgi->getParam('tid'), " league=", $cgi->getParam('league'), "
\n";
die( "Could not create download file." );
}
#my $rows = MyDbi::getRows( $stmt, $cgi->getParam('tid'), $cgi->getParam('league') );
#my $nplayers = $#{$rows}+1;
#my( $r );
#print "";
#for $r ( 0 .. $#{$rows} )
#{
#my @cols = @{ $rows->[$r] };
#print join( "\t", $r+1, @cols ), "\n";
#}
#print "
";
}
#------------------------------------
sub showPage
#------------------------------------
{
my( $tobj, $sobj, $err ) = @_;
$tobj->Info( $sobj, $err );
# database is no longer needed
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#$dbh->disconnect();
exit(0);
}
#------------------------------------
sub loadTournament
#------------------------------------
{
my( $league, $tour ) = @_;
my $tobj;
if( $tour =~ /^S\d+$/ )
{
$tobj = PCSwiss->Load( $league, $tour );
}
else
{
$tobj = PCRobin->Load( $league, $tour );
}
# print "INFO: tid($league-$tour)=". $tobj->Id, ' at line ', __LINE__, "
\n";
unless( $tobj )
{
print "Tournament $league $tour cannot be loaded. Please retry later.";
exit(0);
}
return $tobj;
}