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 ( [id://230472]=CUFP: print w/replies, xml ) Need Help??

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
Domain Nodelet?
Node Status?
node history
Node Type: CUFP [id://230472]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others perusing the Monastery: (9)
As of 2024-03-28 10:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found