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";
}
}
$song =~ s/Keep On Movin/Keep On Movin'/;
$song =~ s/So Deep/So Deep (Perfect Sphere Mix)/;
$song =~ s/Aarons Party/Aaron's Party (Come Get It)/;
- $song =~ s/Candy \*/Candy/;
+ $song =~ s/Candy \*/Candy\xe2\x98\x86/;
$song =~ s/www\.blondie girl/www.blonde girl (MOMO Mix)/;
$song =~ s/DXY/DXY!/;
$song =~ s/Burning the floor/Burnin' the Floor/;