same.pl

use strict;
use vars qw($VERSION %IRSSI);
use URI::Escape;

use Irssi qw(command_bind signal_add);

sub same {
    my ($server, $msg, $nick, $address, $channel) = @_;
    if($msg =~ /^same$/) {
        $server->command("msg $channel same") if ($channel);
    }
}

signal_add("message public", "same");
signal_add("message own_public", "same");