Beefy Boxes and Bandwidth Generously Provided by pair Networks Cowboy Neal with Hat
Perl Monk, Perl Meditation
 
PerlMonks  

beretboy's scratchpad

by beretboy (Chaplain)
on Jun 04, 2004 at 18:05 UTC ( #361046=scratchpad: print w/ replies, xml ) Need Help??
Public ScratchpadDownload, Select Code To D/L
I'm trying to request the following URL. I'm getting a Shoutcast "resource requested was not found" message. 
#!/usr/bin/perl
use strict;
use LWP;
use LWP::UserAgent;

my $browser = LWP::UserAgent->new();

$browser->credentials(
    'wrfl.uky.edu:9000',
    'Shoutcast Server',
    'user' => 'pass'
);

my $response = $browser->get('http://wrfl.uky.edu:9000/admin.cgi?mode=
+viewxml');
my $xml = $response->decoded_content;
print $xml;

[download]
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (16)
As of 2013-06-20 12:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How many continents have you visited?









    Results (685 votes), past polls