Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Live365 Broadcaster Info grabber

by thealienz1 (Pilgrim)
on Jan 18, 2001 at 08:13 UTC ( #52692=sourcecode: print w/replies, xml ) Need Help??
Category: Web Stuff
Author/Contact Info thealienz@zdnetmail.com
Description: I was working one day on setting up an radio station on live365.com, and I noticed that their main http site was really slow. So, what I did was made a script that checks my broadcasting information really fast. Thanks PERL. Basically all you have to do is type in the username and the script does the rest for you. You do have to make sure that you do have the LWP modules installed. Otherwise I trust that you know how to use this trully useless script. Thanks PERL.
#needs these to get the html file from live365.com
use LWP::Simple;

#type in your username(aka: broadcaster's name) here
#print "Username: ";
#$username = <STDIN>;
#chomp($username);
$username="thealienz";

#Creates URL
$url = 'http://www.live365.com/cgi-bin/directory.cgi?genre=search&sear
+chdesc=' . $username . '&searchfields=H';

print "Getting Stats - ";
unless (defined ($page = get($url))) {
    die "ERROR - There was an error getting URL: $URL\n";
}
print "Done\n";

print "Profile: $usrename\n";

#Checks the description
if($page =~ m|<TD ID="desc".*?><a class="desc".*?>(.*?)</a></TD>|i) {
    print "Description:\n$1\n";
}

#Checks to see what your connection speed is
if($page =~ m|<TD ID="connection".*?>(.*?)</TD>|i) {
    print "Speed: $1\n";
}

#Checks how many people are listening
if($page =~ m|<TD ID="listen".*?>(.*?)</TD>|i) {
    if($1 =~ m|DrawListenerStars\("/scp/\.\./images/", (\d+), (\d+)\)|
+i) {
        ($listen,$outof) = ($1,$2);
    } else{
        ($listen,$outof) = split(/\//,$1);
    }
    print "Listeners: $listen / $outof\n";
}
Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: sourcecode [id://52692]
help
Chatterbox?
[Eily]: BTW LanX, you should try typing a few random chars at the beginning of each message. This will prevent expansion :P
[LanX]: qwiud you sthink so?
[LanX]: zxwqbd good idea! :)
LanX embraces his new habit spqopiwjdnq
[ambrus]: qQUkZTmHTuKxStGT- BzTIK9gdudif7TkTLI t3mnF144UaAZjkknXY 8nN-QM19wHBsTrp5vB lEYU_Kksa7X1RIBB4x EWLD5X7SW3jGX5ryfN OMn_yL5FTdQxzjhtyX mKN9sjUCzBNHK5Rrp0 S2WMUvIb1i9aZFgjtq VR0GH1bjPMvm1G16iz hBqc1U6toPd4FbJOFj VsOeT745AN1_pO88rD SRAYKtBZwCZedESZmN mvutrOTHiSNwflB- pRfn_k
[Eily]: so far it seems to work
Your Mother reminds the monks they should be grateful not to share an office, lest they be subjugated to constant inanities like, "Czech please!"
[LanX]: what's strange is that the "Cowboy you said this already" message is missing #dqiwd
[LanX]: YM: BTW learn to mute your humanity
[Your Mother]: Cumin? Now I want tacos...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (14)
As of 2017-03-27 16:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Should Pluto Get Its Planethood Back?



    Results (320 votes). Check out past polls.