diff options
| author | Pablo Martín Báez Echevarría | 2014-09-28 15:58:07 -0300 |
|---|---|---|
| committer | Pablo Martín Báez Echevarría | 2014-09-28 21:56:16 -0300 |
| commit | 0a843adb1070627bb272cb326d9120fec56c0ded (patch) | |
| tree | 268bb8cb90ae0286bd531150c421694a9c3f482c | |
| parent | f79b1a4f9ee0a04aac923a2687c089ad95711150 (diff) | |
| download | scripts.irssi.org-0a843adb1070627bb272cb326d9120fec56c0ded.tar.bz2 | |
Fix u.pl
| -rw-r--r-- | scripts/u.pl | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/scripts/u.pl b/scripts/u.pl index a552da7..c5313ab 100644 --- a/scripts/u.pl +++ b/scripts/u.pl @@ -12,7 +12,6 @@ $VERSION = "1.2"; changed => "Thu Jun 3 11:04:27 CEST 2004", ); - sub cmd_u { my ($data, $server, $channel) = @_; @@ -21,12 +20,18 @@ sub cmd_u my $msg; my $match; my $nick; - + if ($channel->{type} ne "CHANNEL") { Irssi::print("You are not on a channel"); return; } + + eval { /$data/ } ; + if ($@) { + Irssi::print("Not a valid regexp given.",MSGLEVEL_CLIENTERROR); + return; + } @nicks = $channel->nicks(); @@ -60,7 +65,7 @@ sub cmd_u } $match = $nick->{nick}.'!'.$nick->{host}; # For regexp matching - + $channel->print($msg) if $match =~ /$data/i; } |