#! /usr/bin/perl
#
# Stygt hack for å downe filene fra en m3u-fil
# egentlig beregnet for stream av mp3.
# OBS: m3u-fila må være i unix-format :set fileformat=unix

while (<>) {
	next unless /^#EXTINF:(.*?),(.*)\r?$/;
	$filename = $2;
	$filename =~ s/: /_-_/g;s/\%20/_/g;s/ /_/g;s/å/aa/g; # pynt
	$filename =~ s/ü/u/g;y/A-Z/a-z/;s/æ/ae/g;s/ø/oe/g;   # og dill
	$filename =~ s/$/.mp3/;                              # extension ;)
	chomp ($url = <>);
	system("wget \"$url\" -O \"$filename\"");
}
	 
