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 | |
Re: Power Failure Notify via AIM
by Foncé (Scribe) on Aug 23, 2002 at 12:27 UTC | |
by mousey (Scribe) on Aug 23, 2002 at 13:24 UTC | |
by Foncé (Scribe) on Aug 23, 2002 at 17:19 UTC |
Back to
Cool Uses for Perl