Power Failure Notify via AIM

[mousey]

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;
}

[BronzeWing]

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";

[Foncé]

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.

Foncé

[mousey]

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

[Foncé]

*dances* Awesome!

Foncé