Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
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;
}

Comment on Terminal Chatterbox Viewer
Download Code

Back to Snippets Section

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: snippet [id://230472]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (5)
As of 2014-07-14 10:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (257 votes), past polls