#
# $Id: dctirelay.pl,v 1.2 2001/08/26 05:46:10 nugget Exp $
#
# script to make dctirelay operation transparent
#

use Irssi;
use Irssi::Irc;

my @relaynicks = ('dctirelay');

my $cvsid = '$Id: dctirelay.pl,v 1.2 2001/08/26 05:46:10 nugget Exp $';
my $version = '?';
if( $cvsid =~ /\$Id: [^ ]+ (\d+\.\d+)/ ) {
        $version = $1;
}

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

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

    if($nick eq $key) {
      Irssi::window_find_item($target)->print("$text", MSGLEVEL_PUBLIC);
      Irssi::signal_stop();
    }
  }
}

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

  Irssi::print("I see an action! $nick $text");
  for(my $i=0; $i<@relaynicks; $i++) {
    my $key = $relaynicks[$i];
    if($nick eq $key) {
      Irssi::window_find_item($target)->print("$text", MSGLEVEL_PUBLIC);
      Irssi::signal_stop();
    }
  }
}

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