Displaying 1 result from an estimated 1 matches for "simple_request".
2004 Aug 06
0
Reloading ices (0.2.3) playlist
...print "Getting next track from \
http://tunes.3dcrm.co.uk/stream/next.php\n";
my $ua=new LWP::UserAgent;
my $req=HTTP::Request->new(GET => \
"http://tunes.3dcrm.co.uk/stream/next.php");
print "Making request...";
my $res=$ua->simple_request($req);
if(!$res->is_success) {
print "Failed: " . $res->status_line . "\n";
}
print "Done\n";
my $filename=$res->content;
return($filename);
}
# If defined, the return value is used for title streaming (...