#!/usr/local/bin/perl
use CGI qw(param);
$srv = param('srv');
$art = param('art');
$alb = param('alb');
$trk = param('trk');
$dsk = param('dsk');
$tl = param('tl');
if ($tl eq "false") { 
if ($dsk eq "") {
$dsk="1";
}
if ($dsk ne "") {
$dsk="$dsk";
}
print "Content-type: audio/x-pn-realaudio\n\n"; 
print "pnm://216.106.166.184/MTVi1099/content/$srv/$art/$alb\_$dsk\_$trk\_07.rm\n";
} 
if ($tl eq "true") {
$url = "http://www.transloader.com/transloader/tl.cgi?url=http://jtyla.virtualave.net/pnm.pl%3Fsrv=$srv%26art=$art%26alb=$alb%26trk=$trk%26dsk=$dsk%26tl=false";
print "Location: $url\n\n"; 
}