402: elsif($_[0] =~ /^sayto\s+([^\s]+)\s+(.+)/i)
403: {
-404: print $out_sock "PRIVMSG ",$1," :",$1,"\r\n";
+404: print $out_sock "PRIVMSG ",$1," :",$2,"\r\n";
[download]

397: elsif($_[0] =~ /^say\s+(.+)/i)
398: {
399: print $out_sock "PRIVMSG ",$cfg{OUT_CHAN}," :",$1,"\r\n";
-400: print $in_sock "PRIVMSG ",$cfg{IN_CHAN}," :",$color{'graylight'}
+,"<",$color{'blue'},$cfg{OUT_NICK},$color{'graylight'},"> ",$clr,$1,"
+\r\n";
+400: print $in_sock "PRIVMSG ",$cfg{IN_CHAN}," :",$color{'graylight'}
+,"<",$color{'blue'},$cfg{OUT_NICK},$color{'graylight'},">",$clr,' ',$
+1,"\r\n";
[download]

If you are interested in history of changes you can see them in subversion repository.

The code has been updated to avoid the possible "out of memory" condition cited by repellent in the initial reply below.

A text-mode client for the Chatterbox, revised from mr. nick's original version. Several features that were promised were apparently never implemented, and have been struck out in the list below. Consider them enhancement requests that I may or may not get around to.

Changes

• Check for and fetch autoinstall updates from Perl Monks, rather than mr. nick's now-dead home page. (Note: This feature is configurable, but is turned off by default.)
• User configurable options (inside pmchat) to
  • Show (or not) your XP when launched
  • Show (or not) who's logged on when launched
  • Show (or not) new nodes when launched
  • Change the URL to check for updates

Main features:

• Colorized output via ANSI escape sequences (*unix only)
• Compatible with both *nix and Win32 (mostly barely :)
• Displays most recent New Nodes
• Can launch a browser to view a node
• Check for and autoinstall updates
• An "Away" mode for not being in "Other Users"
• Uses the various XML Generators of PerlMonks
• Tracks XP status
• Tracks Reputation of your nodes (and displays WHICH nodes have changed -- and by how much)
• Can launch a browser to view a node
• Requires NO configuration, just download and run!
• User configurable options (inside pmchat) for
  • Time-stamping each message (for long-term running) Broken, don't use this.
  • Turn off/on colorization (*unix only)
  • Which browser to use for node viewing
  • Check for and install code updates on launch
  • Seconds between polls for new messages (n/a on Windows)
  • Debugging mode. No output is sent to Perlmonks
  • Log file. Keeps a log of all messages. Set "logfile" to the desired filename. To stop, set "logfile" to "0" or "none".

Shortcomings (because this is a text-mode client):

• Doesn't render HTML tags
• Doesn't render special HTML entities (eg: &)

This is a little demo to show some tricks to make a nice Gtk2::TrayIcon based app. It does nothing but tail itself, but includes a generic outline for including multi-colored icons, flashing the icon, and a configuration setup which you can easily modify.

A left click on the icon will popup a window tailling $0. This can be useful if you want to tail /var/log/messages( with correct permissions), etc, or if you want to setup an IO::Notify type watch on a directory. A directory and file selector option are in the configuration window. I may put the output of Sys::Info into a table as a real use.

A middle click will start the icon blinking, a second middle-click stops it. This just demos how to make your trayicon flash efficiently.

A right-click brings up the menu. It is full of easily modifiable code, to allow you to do what you want. All the checkbuttons do is change icon color, but you can make them do whatever you want.

I originally started to write a TrayIcon app, similar to Gufw a PyGtk2 TrayIcon app to monitor a firewall, but decided to write a generic one first.

After configuration, if you hit the "accept" button, it will save the options to __DATA__ for the next startup.