#
# $Id: de-sponge.pl,v 1.3 2008/05/08 19:28:01 nugget Exp $
#
# Fix Sponge's inability to use the ellipsis properly.
#

use Irssi;
use Irssi::Irc;

my @lusernicks = ('Sponge');

my $cvsid = '$Id: de-sponge.pl,v 1.3 2008/05/08 19:28:01 nugget Exp $';
my $version = '?';
if( $cvsid =~ /\$Id: [^ ]+ (\d+\.\d+)/ ) {
        $version = $1;
}

sub desponge {
  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 =~ /\.\.\. ?/) {
        $text =~ s/\.\.\./\./g;
        $server->print($target,"<$nick> $text", MSGLEVEL_PUBLIC);
        Irssi::signal_stop();
      }
    }
  }
}

Irssi::signal_add("event privmsg", "desponge");
Irssi::print("sponge ellipsis handler v$version loaded...");