From d22ca4efe5261e81fc50e51cde03a75c6c43ab5c Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Wed, 6 Dec 2000 05:42:13 +0000
Subject: updated

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@976 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 scripts/autoop.pl | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

(limited to 'scripts/autoop.pl')

diff --git a/scripts/autoop.pl b/scripts/autoop.pl
index 5f36f798..2f119453 100644
--- a/scripts/autoop.pl
+++ b/scripts/autoop.pl
@@ -1,8 +1,6 @@
 # /AUTOOP <*|#channel> [<nickmasks>]
-# For Irssi 0.7.96 and above
 
 use Irssi;
-use Irssi::Irc;
 
 my %opnicks, %temp_opped;
 
@@ -48,10 +46,10 @@ sub autoop {
 	my ($channel, $masks, @nicks) = @_;
 	my $server, $nickrec;
 
-	$server = $channel->values()->{'server'};
+	$server = $channel->{server};
 	foreach $nickrec (@nicks) {
-		$nick = $nickrec->values()->{'nick'};
-		$host = $nickrec->values()->{'host'};
+		$nick = $nickrec->{nick};
+		$host = $nickrec->{host};
 
                 if (!$temp_opped{$nick} &&
 		    $server->masks_match($masks, $nick, $host)) {
@@ -65,12 +63,12 @@ sub event_massjoin {
 	my ($channel, $nicks_list) = @_;
 	my @nicks = @{$nicks_list};
 
-	return if (!$channel->values()->{'chanop'});
+	return if (!$channel->{chanop});
 
 	undef %temp_opped;
 
 	# channel specific
-	my $masks = $opnicks{$channel->values()->{'name'}};
+	my $masks = $opnicks{$channel->{name}};
 	autoop($channel, $masks, @nicks) if ($masks);
 
 	# for all channels
-- 
cgit v1.2.3