Make the DDRFreak parse script also add the songs to machinesongs.

[ccbs] / parse / parse-ddrfreak-songlist.pl

diff --git a/parse/parse-ddrfreak-songlist.pl b/parse/parse-ddrfreak-songlist.pl
index 7c02865f3dd21f6552d7a1db001ccd30aee892e5..a880275b6f13a9022ebaba1b2568d0a005709580 100644 (file)
--- a/parse/parse-ddrfreak-songlist.pl
+++ b/parse/parse-ddrfreak-songlist.pl
@@ -80,12 +80,20 @@ while (<>) {
                or die "Parse error, line 11";
        my $dc = $1;
 
+       # Blarg, hack
+       if ($songname eq 'FANTASY') {
+               $songname = "$songname ($artist)";
+       }
+
        # minimal SQL escaping
        $songname =~ s/'/\\'/g;
        $artist =~ s/'/\\'/g;
 
-       printf "INSERT INTO songs (title,artist,minbpm,maxbpm) VALUES ('%s','%s',0,0);\n",
-               $songname, $artist;
+       # 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],