Planetarion Forums

MT · 25 Dec 2002, 00:59

Code:

use Irssi;

sub secs_to_xmas {
  ($server, $data, $fred, $wilma) = @_;
  Irssi::print(" $server, $data, $fred, $wilma");
  $secs = `echo \$(date  -d 02-12-25 +%s) - \$(date +%s) | bc`;
  chomp $secs;
  if ($fred == "MT") {
    $server->command("MSG #linux Only $secs secs to go till xmas!");
  }
}

Irssi::signal_add("event privmsg","secs_to_xmas");

Leshy · 25 Dec 2002, 12:27

Code:

CLS: SCREEN 12
PRINT "Merry Christmas!"
END