X-Git-Url: https://git.sesse.net/?p=ccbs;a=blobdiff_plain;f=parse%2Fparse-ddrfreak-songlist.pl;h=a880275b6f13a9022ebaba1b2568d0a005709580;hp=9e404cfd85c27a64a150d31d20c1b1959c96ef67;hb=8ac6eb68670cae63b150f5e10ad52f6cdbf2733f;hpb=b6ae70e60528880776ba429e895a5cf01b59603c

diff --git a/parse/parse-ddrfreak-songlist.pl b/parse/parse-ddrfreak-songlist.pl
index 9e404cf..a880275 100644
--- a/parse/parse-ddrfreak-songlist.pl
+++ b/parse/parse-ddrfreak-songlist.pl
@@ -92,6 +92,8 @@ while (<>) {
 	# Insert the song only if it doesn't already exist
 	printf "INSERT INTO songs SELECT nextval('songs_song_seq') AS song, '%s' AS title, '%s' AS artist, 0 AS minbpm, 0 AS maxbpm WHERE '%s' NOT IN ( SELECT title FROM songs );\n",
 		$songname, $artist, $songname;
+	printf "INSERT INTO machinesongs SELECT ( SELECT song FROM songs WHERE title='%s' ), ( SELECT machine FROM machines WHERE machinename='%s' );\n",
+		$songname, $machine;
 	
 	for my $t (['single', 'beginner', $sb],
                    ['single', 'standard', $ss],