use strict;
use warnings;
+my $machine = shift;
+die "Missing machine (first argument on the command line)" if (!defined($machine));
+
# Parses songlist from the DDRNO wiki
print "begin;\n";
['double', 'standard', $ds],
['double', 'difficult', $dd],
['double', 'expert', $de]) {
- printf "INSERT INTO songratings (song,playmode,difficulty,feetrating) VALUES ((SELECT song FROM songs WHERE title='%s'),'%s','%s',%u);\n",
- $songname, $t->[0], $t->[1], $t->[2];
+ printf "INSERT INTO songratings (song,machine,playmode,difficulty,feetrating) VALUES ((SELECT song FROM songs WHERE title='%s'),(SELECT machine FROM machines WHERE machinename='%s'),'%s','%s',%u);\n",
+ $songname, $machine, $t->[0], $t->[1], $t->[2];
}
}