if (/^ <tr><td \s* class=dtd> .*? class="link"> (.*?) <\/a> $/x) {
$player = $1;
- # Woot, evil
- printf "INSERT INTO players SELECT nextval('players_player_seq') AS player, '%s' AS nick WHERE '%s' NOT IN ( SELECT nick FROM players );\n", $player, $player;
-
printf "INSERT INTO roundparticipation (tournament, round, parallel, player, position) VALUES (\n";
print " (SELECT tournament FROM tournaments WHERE tournamentname='$name'),\n";
print " $round, $group,\n";
# Whoa :-)
$points = 'NULL' unless defined($points);
+ # Woot, evil
+ printf "INSERT INTO players SELECT nextval('players_player_seq') AS player, '%s' AS nick WHERE '%s' NOT IN ( SELECT nick FROM players );\n", $nick, $nick;
+
print "INSERT INTO tournamentrankings (tournament, ranking, player, points) VALUES (\n";
print " (SELECT tournament FROM tournaments WHERE tournamentname='$name'),\n";
- print " 1, '$nick', $points);\n";
+ print " 1,\n";
+ print " (SELECT player FROM players WHERE nick='$nick'),\n";
+ print " $points);\n";
}
# All other places
# Whoa :-)
$points = 'NULL' unless defined($points);
+ # Woot, evil
+ printf "INSERT INTO players SELECT nextval('players_player_seq') AS player, '%s' AS nick WHERE '%s' NOT IN ( SELECT nick FROM players );\n", $nick, $nick;
+
print "INSERT INTO tournamentrankings (tournament, ranking, player, points) VALUES (\n";
print " (SELECT tournament FROM tournaments WHERE tournamentname='$name'),\n";
- print " $ranking, '$nick', $points);\n";
+ print " $ranking,\n";
+ print " (SELECT player FROM players WHERE nick='$nick'),\n";
+ print " $points);\n";
}
}