#!perl
# ---------------------------------------------------------------------
# getmp3s.pl
#   a quick and dirty Perl script to backup your MP3's from your
#   Empeg / Rio Car player.
# 
#   Requires:
#     Perl 5.00something
#     The LWP::UserAgent module (Part of the Libwwwperl collection.)
#     Frank van Gestel's Displayserver v1.1
#
#   Notes:  Right now, this only works for Windows.  In theory it
#     should work fine in Unix, provided you translate '\' to '/' and
#     remove the lines where '\' is turned into '\\'.


use LWP::UserAgent;

$ua = new LWP::UserAgent;
$ua->agent("AgentName/0.1 " . $ua->agent);

$localroot = "c:\\empeg";
$server = "http://empeg/";
$urlroot = "http://empeg/mp3list.html";

push(@destdir, $localroot);

$ref_destdir = \@destdir;

doPlaylist($urlroot, $ref_destdir);

sub doPlaylist {
	my $listurl = @_[0];
	my $ref = @_[1];
	my $dest;

	for(@$ref_destdir) {
		$dest .= $_;
	}

	if ( ! -d $dest ) {
		print "[$dest]\n";
		$ret = mkdir $dest;
		if (not $ret) {
			print "error making directory";
		}
	}

	#print "getlist $listurl, $listname, @$ref_destdir\n";
	$reqP = new HTTP::Request 'GET' => $listurl;

	$reqP->header('Accept' => 'text/html');
	$resP = $ua->request($reqP);
	$contentP=$resP->content;

	my @linesP=split(/\n/,$contentP);
PLOOP:
	foreach $line (@linesP) {
	 	if($line=~m!<A HREF="/(.*\?playlist=.*)"!) {
			if($1=~m!emp\.m3u!) {
				next PLOOP;
			}
			$listurl=$server . $1;
			$listurl=~m!$server(.*)\?(.*)!;
			$listname=$1;
			push(@$ref_destdir, "\\" . $listname);
			doPlaylist($listurl, $ref_destdir);
			pop(@$ref_destdir);
		} else {
			if($line=~m!<A HREF="/(.*\?file=.*)">!) {
				$fileurl=$server . $1;
				$fileurl=~m!$server(.*\.mp3).*!;
				$filename=$1;
				doFileGet($fileurl, $filename);
			}
		}

	}



}

sub doFileGet {
	$fileurl = @_[0];
	$filename = @_[1];
	my $dest;

	for(@$ref_destdir) {
		$dest .= $_;
	}

	$filename =~ s/[?*":]/_/g;
	$destfile = $dest . "\\" . $filename;

	$destfilefixed = $destfile;
	$destfilefixed =~ s/\\/\\\\/g;
	$destfilefixed =~ s/[?*"]/_/g;



	#print "destfile: $destfile\n";
	if ( -f $destfile ) {
		print "$destfile already exists\n";
		return 2;
	}

	$outfile = ">" . $destfilefixed;

	$reqF = new HTTP::Request 'GET' => $fileurl;

	$reqF->header('Accept' => 'text/html');
	$resF = $ua->request($reqF);
	$contentF=$resF->content;

	$type = $resF->content_type;
	$code = $resF->code;

	#print "$type, $code\n";

	if( $type eq "application/octet-stream" && $code == 200 ) {
			$ret = open(OUT,$outfile);
			if (not $ret) {
				print "error opening $destfilefixed\n";
				return -1;
			}
			
			binmode OUT;
			print "writing $destfile";
			print OUT $contentF;
			close(OUT);
			print " ...done\n";
			undef $contentF;
	}
}