Untitled

use strict;
use vars qw($VERSION %IRSSI);

use Irssi;

$VERSION = '0.01';
%IRSSI = (
    authors     => 'Brandon Holtsclaw',
    contact     => 'brandon@imbrandon.com',
    name        => 'scriptfoo',
    description => 'Just Some Script Foo to make my IRSSI better',
    license     => 'GPLv2',
    url         => 'http://www.imbrandon.com',
    changed     => '03-02-1980 12:00 GMT',
);


#main event handler
sub scriptfoo_msg {
        my ($server, $data, $nick, $address) = @_;
        my ($target, $msg) = split(/ :/, $data,2);
        my $msg_out = '';

        #$msg =~ s/(^\+)//g;
        $msg_out = $msg;
        Irssi::signal_emit('event privmsg', ($server, "$target :$msg_out", $nick, $address));
}

Irssi::signal_add('event privmsg', 'scriptfoo_msg');