{"id":477,"date":"2000-01-01T03:00:00","date_gmt":"2000-01-01T03:00:00","guid":{"rendered":"http:\/\/adam.rosi-kessel.org\/weblog\/free_software\/code\/fetchemusic.html"},"modified":"-0001-11-30T00:00:00","modified_gmt":"1970-01-01T05:00:00","slug":"fetchemusic","status":"publish","type":"post","link":"https:\/\/adam.rosi-kessel.org\/weblog\/2000\/01\/01\/fetchemusic","title":{"rendered":"fetchemusic"},"content":{"rendered":"

Unfortunately, this script no longer works. EMusic has switched to an encrypted RMP format. I’m leaving this script here in case it is ever useful for another project. <\/p>\n

Update 10\/1\/03: Someone has written a very nice perl script that works with the new encrypted EMP file format, called decrypt-emp<\/a>. Get it now! <\/p>\n

 #!\/usr\/bin\/perl # fetchrmp.pl - a quick-n-dirty script for parsing EMusic RMP data and # fetching entire albums. Requires an EMusic.com subscription. :-) # AUTHOR: Doran Barton  # Modifications: Adam Kessel  # VERSION 0.9 # Copyright (c) 2002 Doran Barton. All rights reserved. # Copyright (c) 2003 Adam Kessel. All rights reserved. # This program is free software; you can distribute it and\/or modify it # under the same terms as Perl itself. <\/font>my<\/strong> $VERSION<\/font> = 0.91; use<\/strong> strict; use<\/strong> XML::EasyOBJ; use<\/strong> LWP::Simple; use<\/strong> Getopt::Long; use<\/strong> File::Path; use<\/strong> File::Copy; Getopt::Long::config(<\/strong><\/font>\"no_ignore_case\"<\/font>)<\/strong><\/font>; my<\/strong> (<\/strong><\/font>$opt_help<\/font>, $opt_destdir<\/font>, $opt_rmpfile<\/font>, $opt_folders<\/font>, $opt_play<\/font>, $opt_art<\/font>)<\/strong><\/font>; my<\/strong> $error<\/font> = &GetOptions(<\/strong><\/font>'help'<\/font> => \\$opt_help<\/font>, 'destdir:s'<\/font> => \\$opt_destdir<\/font>, 'rmpfile:s'<\/font> => \\$opt_rmpfile<\/font>, 'folders'<\/font> => \\$opt_folders<\/font>, 'art'<\/font> => \\$opt_art<\/font>, 'play:s'<\/font> => \\$opt_play<\/font>)<\/strong><\/font>; if<\/strong>(<\/strong><\/font>$opt_help<\/font>)<\/strong><\/font> {<\/strong><\/font> exit<\/strong> _usage(<\/strong><\/font>)<\/strong><\/font>; }<\/strong><\/font> if<\/strong>(<\/strong><\/font>!$opt_rmpfile<\/font>)<\/strong><\/font> {<\/strong><\/font> print<\/strong><\/font> STDERR \"ERROR: An RMP data file is required (with the --rmpfile parameter)\\n<\/font>\\n<\/font>\"<\/font>; exit<\/strong> _usage(<\/strong><\/font>)<\/strong><\/font>; }<\/strong><\/font> if<\/strong>(<\/strong><\/font>!$opt_destdir<\/font>)<\/strong><\/font> {<\/strong><\/font> $opt_destdir<\/font> = \".\"<\/font>; }<\/strong><\/font> if<\/strong>(<\/strong><\/font>defined<\/strong><\/font> $opt_play<\/font>)<\/strong><\/font> {<\/strong><\/font> unless<\/strong> (<\/strong><\/font>$opt_play<\/font>)<\/strong><\/font> {<\/strong><\/font> $opt_play<\/font> = 'mpg321 -o oss'<\/font>; }<\/strong><\/font> }<\/strong><\/font> $opt_destdir<\/font> =~ s<\/$><>; # Trim any trailing \/<\/font>'s from destination dir my<\/strong> $doc<\/font> = new<\/strong> XML::EasyOBJ(<\/strong><\/font>$opt_rmpfile<\/font>)<\/strong><\/font>; my<\/strong> $server<\/font> = $doc<\/font>->SERVER(<\/strong><\/font>0)<\/strong><\/font>->NETNAME(<\/strong><\/font>0)<\/strong><\/font>->getString; my<\/strong> @elements<\/font> = $doc<\/font>->TRACKLIST(<\/strong><\/font>0)<\/strong><\/font>->TRACK; my<\/strong> $track_num<\/font> = 1; my<\/strong> (<\/strong><\/font>$track<\/font>, $url<\/font>, $track_number<\/font>, $genre<\/font>, $artist<\/font>, $album<\/font>, $current_track<\/font>)<\/strong><\/font>; my<\/strong> (<\/strong><\/font>$album_art<\/font>, $lowergenre<\/font>, $lowerartist<\/font>, $loweralbum<\/font>)<\/strong><\/font>; foreach<\/strong> $track<\/font> (<\/strong><\/font>@elements<\/font>)<\/strong><\/font> {<\/strong><\/font> $url<\/font> = sprintf<\/strong><\/font>(<\/strong><\/font>\"http:\/\/%s<\/font>\/%s<\/font>\/%s<\/font>\"<\/font>, $server<\/font>, $track<\/font>->TRACKID->getString, $track<\/font>->FILENAME->getString)<\/strong><\/font>; $current_track<\/font> = $track<\/font>->FILENAME->getString; $current_track<\/font> =~ tr\/A-Z \/a-z_\/<\/font>; $current_track<\/font> =~ s\/[^a-z0-9_\\-\\.]\/\/g<\/font>; print<\/strong><\/font> STDERR \"Getting \"<\/font>, $current_track<\/font>, \"... \"<\/font>; if<\/strong> (<\/strong><\/font>$opt_folders<\/font> or<\/strong> $opt_art<\/font>)<\/strong><\/font> {<\/strong><\/font> $genre<\/font> = $track<\/font>->GENRE->getString || \"\"<\/font>; $artist<\/font> = $track<\/font>->ARTIST->getString || \"\"<\/font>; $album<\/font> = $track<\/font>->ALBUM->getString || \"\"<\/font>; $album_art<\/font> = $track<\/font>->ALBUMART->getString || \"\"<\/font>; $loweralbum<\/font> = $album<\/font>; $loweralbum<\/font> =~ tr\/A-Z \/a-z_\/<\/font>; $loweralbum<\/font> =~ s\/[^a-z0-9_\\-]\/\/g<\/font>; $album<\/font> =~ tr\/ \/_\/<\/font>; $album<\/font> =~ s\/[^A-Za-z0-9_\\-]\/\/g<\/font>; $lowergenre<\/font> = $genre<\/font>; $lowergenre<\/font> =~ tr\/A-Z \/a-z_\/<\/font>; $lowergenre<\/font> =~ s\/:.*\/\/<\/font>; $lowergenre<\/font> =~ s\/[^a-z0-9_\\-]\/\/g<\/font>; $lowerartist<\/font> = $artist<\/font>; $lowerartist<\/font> =~ tr\/A-Z \/a-z_\/<\/font>; $lowerartist<\/font> =~ s\/[^a-z0-9_\\-]\/\/g<\/font>; $artist<\/font> =~ tr\/ \/_\/<\/font>; $artist<\/font> =~ s\/[^A-Za-z0-9_\\-]\/\/g<\/font>; $track_number<\/font> = $track_num<\/font>++; $track_number<\/font> =~ s\/^(\\d)$\/0$1\/<\/font>; }<\/strong><\/font> my<\/strong> $rv<\/font> = getstore(<\/strong><\/font>$url<\/font>, $current_track<\/font>)<\/strong><\/font>; if<\/strong>(<\/strong><\/font>$rv<\/font> == 200)<\/strong><\/font> {<\/strong><\/font> print<\/strong><\/font> STDERR \"OK\\n<\/font>\"<\/font>; if<\/strong> (<\/strong><\/font>$opt_folders<\/font>)<\/strong><\/font> {<\/strong><\/font> mkpath(<\/strong><\/font>\"$opt_destdir<\/font>\/$lowergenre<\/font>\/$lowerartist<\/font>\/$loweralbum<\/font>\"<\/font>)<\/strong><\/font>; move(<\/strong><\/font>$current_track<\/font>,\"$opt_destdir<\/font>\/$lowergenre<\/font>\/$lowerartist<\/font>\/$loweralbum<\/font>\/$artist<\/font>---$album<\/font>---$track_number<\/font>---$current_track<\/font>\"<\/font>)<\/strong><\/font>; }<\/strong><\/font> }<\/strong><\/font> else<\/strong> {<\/strong><\/font> print<\/strong><\/font> STDERR \"FAILED\\n<\/font>\"<\/font>; }<\/strong><\/font> }<\/strong><\/font> if<\/strong> (<\/strong><\/font>$opt_art<\/font>)<\/strong><\/font> {<\/strong><\/font> if<\/strong> (<\/strong><\/font>$album_art<\/font>)<\/strong><\/font> {<\/strong><\/font> my<\/strong> $rv<\/font> = getstore(<\/strong><\/font>$album_art<\/font>,\"$loweralbum<\/font>.jpg\"<\/font>)<\/strong><\/font>; if<\/strong>(<\/strong><\/font>$rv<\/font> == 200)<\/strong><\/font> {<\/strong><\/font> print<\/strong><\/font> STDERR \"Art download OK\\n<\/font>\"<\/font>; if<\/strong> (<\/strong><\/font>$opt_folders<\/font>)<\/strong><\/font> {<\/strong><\/font> move(<\/strong><\/font>\"$loweralbum<\/font>.jpg\"<\/font>,\"$opt_destdir<\/font>\/$lowergenre<\/font>\/$lowerartist<\/font>\/$loweralbum<\/font>\"<\/font>)<\/strong><\/font>; }<\/strong><\/font> }<\/strong><\/font> else<\/strong> {<\/strong><\/font> print<\/strong><\/font> STDERR \"Art download failed\\n<\/font>\"<\/font>; }<\/strong><\/font> }<\/strong><\/font> }<\/strong><\/font> if<\/strong> (<\/strong><\/font>$opt_play<\/font>)<\/strong><\/font> {<\/strong><\/font> if<\/strong> (<\/strong><\/font>$opt_folders<\/font>)<\/strong><\/font> {<\/strong><\/font> chdir<\/strong><\/font> \"$opt_destdir<\/font>\/$lowergenre<\/font>\/$lowerartist<\/font>\/$loweralbum<\/font>\"<\/font>; }<\/strong><\/font> `$opt_play<\/font> *mp3`; }<\/strong><\/font> sub _usage<\/font> {<\/strong> print<\/strong><\/font> STDERR \"This is $0<\/font> version $VERSION<\/font>\\n<\/font>\"<\/font>, \"Usage: $0<\/font> --help \\n<\/font>\"<\/font>, \" or: $0<\/font> [--destdir DIR] --rmpfile FILE [--folders] [--play [mpeg player]] [--art]\\n<\/font>\\n<\/font>\"<\/font>, \"--folders puts track in folder hierarchy based on genre, album, and artist under destdir (or current directory if not specified)\\n<\/font>\"<\/font>, \"--play plays music when done downloading with specified command line (or mpg321 -o oss if not specified)\\n<\/font>\"<\/font>, \"--art downloads the album art if available and places it with the music\\n<\/font>\\n<\/font>\"<\/font>, \"Copyright (c) 2002 Doran Barton. All rights reserved. Modifications copyright (c) 2003 Adam Kessel.\\n<\/font>\"<\/font>, \"This program is free software; you can distribute it and\/or modify it\\n<\/font>\"<\/font>, \"under the same terms as Perl itself.\\n<\/font>\"<\/font>; return<\/strong> 1; }<\/strong><\/font> <\/pre>\n
\n
 syntax highlighted by Code2HTML<\/a>, v. 0.9.1<\/p>\n","protected":false},"excerpt":{"rendered":"
Unfortunately, this script no longer works. EMusic has switched to an encrypted RMP format. I’m leaving this script here in case it is ever useful for another project. Update 10\/1\/03: Someone has written a very nice perl script that works with the new encrypted EMP file format, called decrypt-emp. Get it now! #!\/usr\/bin\/perl # fetchrmp.pl […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[17],"tags":[],"_links":{"self":[{"href":"https:\/\/adam.rosi-kessel.org\/weblog\/wp-json\/wp\/v2\/posts\/477"}],"collection":[{"href":"https:\/\/adam.rosi-kessel.org\/weblog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/adam.rosi-kessel.org\/weblog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/adam.rosi-kessel.org\/weblog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/adam.rosi-kessel.org\/weblog\/wp-json\/wp\/v2\/comments?post=477"}],"version-history":[{"count":0,"href":"https:\/\/adam.rosi-kessel.org\/weblog\/wp-json\/wp\/v2\/posts\/477\/revisions"}],"wp:attachment":[{"href":"https:\/\/adam.rosi-kessel.org\/weblog\/wp-json\/wp\/v2\/media?parent=477"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/adam.rosi-kessel.org\/weblog\/wp-json\/wp\/v2\/categories?post=477"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/adam.rosi-kessel.org\/weblog\/wp-json\/wp\/v2\/tags?post=477"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}