X-Git-Url: https://git.sesse.net/?p=ccbs;a=blobdiff_plain;f=parse%2Fparse-ddreurope-tournament.pl;fp=parse%2Fparse-ddreurope-tournament.pl;h=e3d6ba5fa3992476ce45256755afdb7ee7631d21;hp=7fce29ea233309a68161f55e363a8be832aadb0e;hb=629352f0146f1e096bfe61cb604bbf848145f844;hpb=29622ff6c28f9e8e44c022f71b62f1d6685718f9

diff --git a/parse/parse-ddreurope-tournament.pl b/parse/parse-ddreurope-tournament.pl
index 7fce29e..e3d6ba5 100644
--- a/parse/parse-ddreurope-tournament.pl
+++ b/parse/parse-ddreurope-tournament.pl
@@ -24,6 +24,7 @@ while (<>) {
             /x) {
 		my ($country, $location, $date, $mix, $system) = ($1, $2, $3, $4, $5);
 		$mix =~ s/Euromix/EuroMix/;
+		$system = '10K Machine score' if ($system =~ /^\s*$/);
 
 		print "INSERT INTO tournaments \n";
 		print "  (season, tournamentname, country, location, \"date\", machine, scoringsystem) VALUES (\n";
@@ -51,7 +52,7 @@ while (<>) {
 	}
 
 	# Player's results (score)
-	if (/<td \s* class=dtdm>/x) {
+	if (/<td \s* class=dtd (?: m | song ) >/x) {
 		my $i = 0;
 
 		# random songs