html/mlock.pl

• package main
  • cmd_mlock
  • mlock_check_mode
  • mlock_mode_changed
  • mlock_synced
• EOF

   1 # /MLOCK <channel> <mode>
   2 #
   3 # Locks the channel mode to <mode>, if someone else tries to change the mode
   4 # Irssi will automatically change it back. +k and +l are a bit special since
   5 # they require the parameter. If you omit the parameter, like setting the
   6 # mode to "+ntlk", Irssi will allow all +k and +l (or -lk) mode changes.
   7 # You can remove the lock with /MODE #channel -
   8 
   9 use Irssi;
  10 use Irssi::Irc;
  11 use strict;
  12 use vars qw($VERSION %IRSSI);
  13 
  14 $VERSION = "1.00";
  15 %IRSSI = (
  16     authors     => 'Timo Sirainen',
  17     name        => 'mlock',
  18     description => 'Channel mode locking',
  19     license     => 'Public Domain',
  20     changed	=> 'Sun Mar 10 23:18 EET 2002'
  21 );
  22 
  23 my %keep_channels;
  24 
  25 sub cmd_mlock {
  26 	my ($data, $server) = @_;
  27 	my ($channel, $mode) = split(/ /, $data, 2);
  28 
  29 	if ($mode eq "-") {
  30 		# remove checking
  31 		delete $keep_channels{$channel};
  32 	} else {
  33 		$keep_channels{$channel} = $mode;
  34 		mlock_check_mode($server, $channel);
  35 	}
  36 }
  37 
  38 sub mlock_check_mode {
  39         my ($server, $channame) = @_;
  40 
  41 	my $channel = $server->channel_find($channame);
  42 	return if (!$channel || !$channel->{chanop});
  43 
  44         my $keep_mode = $keep_channels{$channame};
  45 	return if (!$keep_mode);
  46 
  47 	# old channel mode
  48 	my ($oldmode, $oldkey, $oldlimit);
  49 	$oldmode = $channel->{mode};
  50         $oldmode =~ s/^([^ ]*).*/\1/;
  51 	$oldkey = $channel->{key};
  52 	$oldlimit = $channel->{limit};
  53 
  54 	# get the new channel key/limit
  55 	my (@newmodes, $newkey, $limit);
  56 	@newmodes = split(/ /, $keep_mode); $keep_mode = $newmodes[0];
  57 	if ($keep_mode =~ /k/) {
  58 		if ($keep_mode =~ /k.*l/) {
  59                         $newkey = $newmodes[1];
  60                         $limit = $newmodes[2];
  61 		} elsif ($keep_mode =~ /l.*k/) {
  62 			$limit = $newmodes[1];
  63                         $newkey = $newmodes[2];
  64 		} else {
  65                         $newkey = $newmodes[1];
  66 		}
  67 	} elsif ($keep_mode =~ /l/) {
  68 		$limit = $newmodes[1];
  69 	}
  70 
  71 	# check the differences
  72 	my %allmodes;
  73 	$keep_mode =~ s/^\+//;
  74 	for (my $n = 0; $n < length($keep_mode); $n++) {
  75 		my $modechar = substr($keep_mode, $n, 1);
  76 		$allmodes{$modechar} = '+';
  77 	}
  78 
  79 	for (my $n = 0; $n < length($oldmode); $n++) {
  80 		my $modechar = substr($oldmode, $n, 1);
  81 
  82 		if ($allmodes{$modechar} eq '+') {
  83 			next if (($modechar eq "k" && $newkey ne $oldkey) ||
  84 				 ($modechar eq "l" && $limit != $oldlimit));
  85 			delete $allmodes{$modechar};
  86 		} else {
  87 			$allmodes{$modechar} = '-';
  88 		}
  89 	}
  90 
  91 	# create the mode change string
  92 	my ($modecmd, $extracmd);
  93 	foreach my $mode (keys %allmodes) {
  94 		Irssi::print("key = '$mode':".$allmodes{$mode});
  95 		if ($mode eq "k") {
  96 			if ($allmodes{$mode} eq '+') {
  97 				next if ($newkey eq "");
  98 				if ($oldkey ne "") {
  99 					# we need to get rid of old key too
 100 					$modecmd .= "-k";
 101 					$extracmd .= " $oldkey";
 102 				}
 103 				$extracmd .= " $newkey";
 104 			} else {
 105 				$extracmd .= " $oldkey";
 106 			}
 107 		}
 108 		if ($mode eq "l" && $allmodes{$mode} eq '+') {
 109 			next if ($limit <= 0);
 110                         $extracmd .= " $limit";
 111 		}
 112 		$modecmd .= $allmodes{$mode}.$mode;
 113 	}
 114 
 115 	if ($modecmd ne "") {
 116 		$channel->{server}->command("/mode $channame $modecmd$extracmd");
 117 	}
 118 }
 119 
 120 sub mlock_mode_changed {
 121 	my ($server, $data) = @_;
 122 	my ($channel, $mode) = split(/ /, $data, 2);
 123 
 124 	mlock_check_mode($server, $channel);
 125 }
 126 
 127 sub mlock_synced {
 128 	my $channel = $_[0];
 129 
 130 	mlock_check_mode($channel->{server}, $channel->{name});
 131 }
 132 
 133 Irssi::command_bind('mlock', 'cmd_mlock');
 134 Irssi::signal_add_last("event mode", "mlock_mode_changed");
 135 Irssi::signal_add("channel synced", "mlock_synced");