zynk/irssi
2
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2026-08-11 12:53:42 +02:00
Code Issues Projects Releases Packages Wiki Activity

added "use strict" for all scripts, made some small changes.

Browse source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1639 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2001-07-16 20:22:45 +00:00 • committed by cras
commit 69a6096b8b
8 changed files with 37 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

14
scripts/autoop.pl
View file

@ -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)) {