Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Terminal Chatterbox Viewer

by krujos (Curate)
on Jan 28, 2003 at 03:22 UTC ( #230472=snippet: print w/replies, xml ) Need Help??
Description: This is a small chatterbox watcher. It keeps me in the know when I run from machine to machine. It beeps everytime there is a new message, be warned, if you have a loud bell this can get annoying.
#!/usr/bin/perl
use warnings;
use strict;
use XML::Simple; 
use LWP::Simple;

my ($url, $ref);
my $lastMsgTime=0;

while (1) { 
        #Get the latest chatterbox contents. 
    $url = get("http://www.perlmonks.org/index.pl?node_id=15834");
        #Parse it.
    $ref = XMLin($url, forcearray=>1);
        #Print the contents.  
    foreach my $msg (@{$ref->{message}}) { 
        if ( $lastMsgTime < $msg->{time}) { 
            #this has a new line so the users name is above thier text
            print "$msg->{author}: $msg->{content}\n\n"; 
            $lastMsgTime = $msg->{time};
            print "\a";
        }
    }
    $ref=undef;
    sleep 30;
}

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: snippet [id://230472]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (5)
As of 2017-07-24 02:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I came, I saw, I ...
























    Results (347 votes). Check out past polls.