Strips IRC colors from outbound messages (irssi)

strip_color.pl

#!/usr/bin/perl
use strict;
use vars qw($VERSION %IRSSI);

$VERSION = '1.0';
%IRSSI = (
    authors     => 'oxagast',
    contact     => 'oxagast@oxasploits.com',
    name        => 'StripColor',
    description => 'Strips IRC special codes from outgoing messages.',
    license     => 'BSD',
);

sub event_send_text {
    my ($line, $serv, $m) = @_;
    if ($line !~ /^\//) {
        # Strip codes from the outgoing message.
        my $cleaned_line = Irssi::strip_codes($line);
        Irssi::signal_stop();
        $serv->command("MSG " . $m->{name} . " " . $cleaned_line);
    }
}

Irssi::signal_add("send text", "event_send_text");