Untitled

sub cmd_catchtext
{
    my ($server, $msg, $target) = @_;
    while ( $msg =~ m|(http://\S+)| 
    {
        my $url = $1;
        next if $url =~ /^http://murl.se/;
        $murl = getMurl($url);
        $msg =~ s/\Q$url\E/$murl/;
    }
    Irssi::signal_stop();
    Irssi::signal_emit('message own_public', $server, $msg, $target);
}