Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?

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
Description: I was working one day on setting up an radio station on, 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
use LWP::Simple;

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

#Creates URL
$url = '
+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?

What's my password?
Create A New User
Node Status?
node history
Node Type: sourcecode [id://52692]
[LanX]: pm != tk ;)
[Corion]: zentara: Most likely they used something like [http://www. node=123456] instead of [id://123456], which uses whatever domain you're visiting from
[LanX]: hmm... Actually this could be used for a phishing exploit ...
[LanX]: ... well like always :)
[zentara]: LanX One day, I will see a great interest in Tk. It's small, self-contained, needs very few external libraries, AND makes it easy to make high-contrast displays. :-)
[zentara]: Corion in this cased they left the www. out
[zentara]: /d// :-)
[LanX]: i like tk, just joking. but what about modern styles?

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (6)
As of 2017-05-26 12:38 GMT
Find Nodes?
    Voting Booth?