#
# $Id: de-grub.pl,v 1.2 2002/08/15 19:01:20 nugget Exp $
#
# This script makes IRC safe when grub is around.
#

use Irssi;
use Irssi::Irc;

my @lusernicks = ('grub');

my $cvsid = '$Id: de-grub.pl,v 1.2 2002/08/15 19:01:20 nugget Exp $';
my $version = '?';
if( $cvsid =~ /\$Id: [^ ]+ (\d+\.\d+)/ ) {
        $version = $1;
}

sub degrub {
  my ($server, $data, $nick, $address) = @_;
  my ($target, $text) = split(/ :/, $data, 2);

  for(my $i=0; $i<@lusernicks; $i++) {
    my $key = $lusernicks[$i];

    if($nick eq $key) {
      if($text =~ /http/) {
        $text =~ s/(http(s)?:\/\/([\.\/\,\:\;\)\]\>]*[^\s\.\/\,\:\;\)\]\>]+)+\/?)/http:\/\/www.disney.com\//gi;
        Irssi::window_find_item($target)->print("<$nick> $text", MSGLEVEL_PUBLIC);
        Irssi::signal_stop();
      }
    }
  }
}

Irssi::signal_add("event privmsg", "degrub");
Irssi::print("relay handler v$version loaded...");