diff options
author | Timo Sirainen <cras@irssi.org> | 2001-07-16 20:22:45 +0000 |
---|---|---|
committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2001-07-16 20:22:45 +0000 |
commit | 69a6096b8b4e0b94e3ba327801a120be2d446636 (patch) | |
tree | dd31da39c6a23514d8ade048fdef3426bfa4096f /scripts/autoop.pl | |
parent | 0d3b5c729f16a0c8c2d7ccbc04854de2e8b5b45a (diff) | |
download | irssi-69a6096b8b4e0b94e3ba327801a120be2d446636.zip |
added "use strict" for all scripts, made some small changes.
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1639 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'scripts/autoop.pl')
-rw-r--r-- | scripts/autoop.pl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/scripts/autoop.pl b/scripts/autoop.pl index 7891bce9..413f5e17 100644 --- a/scripts/autoop.pl +++ b/scripts/autoop.pl @@ -1,8 +1,9 @@ # /AUTOOP <*|#channel> [<nickmasks>] use Irssi; +use strict; -my %opnicks, %temp_opped; +my (%opnicks, %temp_opped); sub cmd_autoop { my ($data) = @_; @@ -12,7 +13,7 @@ sub cmd_autoop { if (!%opnicks) { Irssi::print("Usage: /AUTOOP <*|#channel> [<nickmasks>]"); Irssi::print("No-one's being auto-opped currently."); - return 1; + return; } Irssi::print("Currently auto-opping in channels:"); @@ -25,7 +26,7 @@ sub cmd_autoop { Irssi::print("$channel: $masks"); } } - return 1; + return; } if ($masks eq "") { @@ -39,17 +40,16 @@ sub cmd_autoop { } else { Irssi::print("$channel: Now auto-opping: $masks"); } - return 1; } sub autoop { my ($channel, $masks, @nicks) = @_; - my $server, $nickrec; + my ($server, $nickrec); $server = $channel->{server}; foreach $nickrec (@nicks) { - $nick = $nickrec->{nick}; - $host = $nickrec->{host}; + my $nick = $nickrec->{nick}; + my $host = $nickrec->{host}; if (!$temp_opped{$nick} && $server->masks_match($masks, $nick, $host)) { |