#!/usr/bin/perl -w

IRC::print ("\0035:: Loading Away Notification script ::\003 \n");
IRC::add_message_handler("PRIVMSG", "privmsg_handler");
IRC::add_message_handler("NOTICE",  "privmsg_handler");
IRC::add_command_handler("away", "away_handler");

$away_status = 0;

sub away_handler
{
  ($away_status == 1) ? ($away_status = 0) : ($away_status = 1);
  return 0;
}

sub privmsg_handler 
{
  my $line = shift(@_);
  $line =~ /:([^!]*)![^@]*@[^ ]* [^:]*:(.*)/;
  my $from_user = $1;
  my $message = $2;
  my $my_nick = IRC::get_info(1);
  my $my_channel = IRC::get_info(2);
  my $my_time = sprintf "%02d:%02d", (localtime)[2], (localtime)[1];
  if (($away_status == 0) || ($from_user =~ /$my_nick/i)) {return 0};
  if ($line =~ /$my_nick/i) 
  {
    IRC::command(qq{/msg $my_nick At $my_time, $from_user on $my_channel talked about/to you while away, message was: "$message"\n});
  }	
  return 0;
}