If your power starts to fail on you, this will get on AIM and tell you. You need an AIM screenname.
use Net::AIM; $screenname = ''; # the screenname to connect with $password = ''; # the password to connect with $ownersn = ''; # the screenname to have your bot notify $SIG{PWR} = \&PWR_handler; sub PWR_handler { $aim = new Net::AIM; $aim->newconn(Screenname => $screenname, Password => $password) or d +ie 'Can\'t connect to AIM server.\n'; $conn = $aim->getconn(); $aim->start; $conn->send_im($ownersn, 'My power supply is failing. Please come an +d save me!'); exit; }

Replies are listed 'Best First'.
Re: Power Failure Notify via AIM
by BronzeWing (Monk) on Aug 17, 2002 at 14:59 UTC
    That's a great idea! To give this node a constructive purpose, I know from personal experience that it's best to tell these programs to try connecting a few times, just in case it fails because of a fluke or brief downtime. Anyway, ++!

    The Secret to Fortune Cookies in One Line
    print join("... in bed", `fortune fortunes` =~ m/^(.*)(\.|\?|\!)$/), "\n";

Re: Power Failure Notify via AIM
by FoncÚ (Scribe) on Aug 23, 2002 at 12:27 UTC
    That's a really handy little chunk of code! My curiousity was if there were a way to transport this to other IM programmes, such as MSN Messenger (well...Windows Messenger now) and ICQ, maybe even an IRC channel. Just a thought.

      Your wish is my command, I am going to do an MSN and IRC version of it.