fixes

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@768 dbcabf3a-b0e7-0310-adc4-f8d773084564

scripts/autoop.pl

@@ -1,7 +1,8 @@
 # /AUTOOP <*|#channel> [<nickmasks>]
-# For Irssi 0.7.96 and above (older versions had a few bugs)
+# For Irssi 0.7.96 and above
 
 use Irssi;
+use Irssi::Irc;
 
 my %opnicks, %temp_opped;
 
@@ -45,14 +46,15 @@ sub cmd_autoop {
 
 sub autoop {
 	my ($channel, $masks, @nicks) = @_;
-	my $nickrec;
+	my $server, $nickrec;
 
+	$server = $channel->values()->{'server'};
 	foreach $nickrec (@nicks) {
 		$nick = $nickrec->values()->{'nick'};
 		$host = $nickrec->values()->{'host'};
 
                 if (!$temp_opped{$nick} &&
-		    Irssi::irc_masks_match($masks, $nick, $host)) {
+		    $server->masks_match($masks, $nick, $host)) {
 			$channel->command("/op $nick");
 			$temp_opped{$nick} = 1;
 		}
@@ -60,7 +62,8 @@ sub autoop {
 }
 
 sub event_massjoin {
-	my ($channel, @nicks) = @_;
+	my ($channel, $nicks_list) = @_;
+	my @nicks = @{$nicks_list};
 
 	return if (!$channel->values()->{'chanop'});
 

scripts/autorejoin.pl

@@ -5,6 +5,7 @@
 # if you kick/get kicked all the time "just for fun" ...
 
 use Irssi;
+use Irssi::Irc;
 
 sub event_rejoin_kick {
 	my ($data, $server) = @_;

scripts/hello.pl

@@ -1,6 +1,7 @@
 # "Hello, world!" script :) /hello <nick> sends "Hello, world!" to <nick>
 
 use Irssi;
+use Irssi::Irc;
 
 sub cmd_hello {
 	my ($data, $server, $channel) = @_;

scripts/mlock.pl

@@ -1,4 +1,4 @@
-# /MLOCK <channel> <mode> - for Irssi 0.7.29 and above
+# /MLOCK <channel> <mode> - for Irssi 0.7.96 and above
 #
 # Locks the channel mode to <mode>, if someone else tries to change the mode
 # Irssi will automatically change it back. +k and +l are a bit special since
@@ -6,6 +6,7 @@
 # mode to "+ntlk", Irssi will allow all +k and +l (or -lk) mode changes.
 
 use Irssi;
+use Irssi::Irc;
 
 sub cmd_mlock {
 	my ($data, $server) = @_;
@@ -26,7 +27,7 @@ sub mlock_check_mode {
 	return if (!$keep_mode);
 
 	# old channel mode
-	$oldmode = $channel->get_mode();
+	$oldmode = $channel->values()->{'mode'};
         $oldmode =~ s/^([^ ]*).*/\1/;
 	$oldkey = $channel->values()->{'key'};
 	$oldlimit = $channel->values()->{'limit'};

scripts/privmsg.pl

@@ -1,12 +1,13 @@
 # listen PRIVMSGs - send a notice to yourself when your nick is meantioned
 
 use Irssi;
+use Irssi::Irc;
 
 sub event_privmsg {
 	my ($data, $server, $nick, $address) = @_;
 	my ($target, $text) = $data =~ /^(\S*)\s:(.*)/;
 
-	return if (!Irssi::is_channel($target));
+	return if (!$server->ischannel($target));
 
 	$mynick = $server->values()->{'nick'};
 	return if ($text !~ /\b$mynick\b/);

scripts/quitmsg.pl

@@ -1,6 +1,7 @@
 # Quit with a random quit message read from ~/.irssi/irssi.quit
 
 use Irssi;
+use Irssi::Irc;
 
 $quitfile = "$ENV{HOME}/.irssi/irssi.quit";
 

scripts/realname.pl

@@ -1,6 +1,7 @@
 # /RN - display real name of nick
 
 use Irssi;
+use Irssi::Irc;
 
 sub cmd_realname {
 	my ($data, $server, $channel) = @_;