Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Power Failure Notify via AIM

by mousey (Scribe)
on Aug 17, 2002 at 06:25 UTC ( [id://190823]=CUFP: print w/replies, xml ) Need Help??

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.

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: CUFP [id://190823]
Approved by blakem
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others studying the Monastery: (4)
As of 2024-05-30 15:45 GMT
Find Nodes?
    Voting Booth?

    No recent polls found