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

added/removed some default scripts

Browse source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2569 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2002-03-10 21:28:38 +00:00 • committed by cras
commit 03c71116e0
14 changed files with 606 additions and 76 deletions
Download patch file Download diff file Expand all files Collapse all files

20
scripts/mlock.pl
View file

@ -4,10 +4,21 @@
# Irssi will automatically change it back. +k and +l are a bit special since
# they require the parameter. If you omit the parameter, like setting the
# mode to "+ntlk", Irssi will allow all +k and +l (or -lk) mode changes.
# You can remove the lock with /MODE #channel -
use Irssi;
use Irssi::Irc;
use strict;
use vars qw($VERSION %IRSSI);
$VERSION = "1.00";
%IRSSI = (
authors => 'Timo Sirainen',
name => 'mlock',
description => 'Channel mode locking',
license => 'Public Domain',
changed => 'Sun Mar 10 23:18 EET 2002'
);
my %keep_channels;
@ -15,8 +26,13 @@ sub cmd_mlock {
my ($data, $server) = @_;
my ($channel, $mode) = split(/ /, $data, 2);
$keep_channels{$channel} = $mode;
mlock_check_mode($server, $channel);
if ($mode eq "-") {
# remove checking
delete $keep_channels{$channel};
} else {
$keep_channels{$channel} = $mode;
mlock_check_mode($server, $channel);
}
}
sub mlock_check_mode {