html/tlock.pl

• package main
  • cmd_tlock
  • sub_tlock
• EOF

   1 use Irssi 20020300;
   2 use strict;
   3 
   4 use vars qw($VERSION %IRSSI);
   5 $VERSION = "1.1";
   6 %IRSSI = (
   7         authors         => "Maciek \'fahren\' Freudenheim",
   8         contact         => "fahren\@bochnia.pl",
   9         name            => "Topic Lock",
  10         description     => "/TLOCK [-d] [channel] [topic] - locks current or specified topic on [channel]",
  11         license         => "GNU GPLv2 or later",
  12         changed         => "Fri Mar 15 15:09:42 CET 2002"
  13 );
  14 
  15 my %tlock = ();
  16 
  17 sub cmd_tlock {
  18 	my ($args, $server, $win) = @_;
  19 
  20 	my $tag = $server->{tag};
  21 	my $delete = ($args =~ s/^-d\s//)? 1 : 0;
  22 	my ($chan) = $args =~ /^([^\s]+)/;
  23 
  24 	unless ($chan) {
  25 		my $i = 0;
  26 		for my $ch (keys %{$tlock{$tag}}) {
  27 			if ($tlock{$tag}{$ch}) {
  28 				$i = 1;
  29 				Irssi::print("Lock on $tag%W/%n$ch%W:%n $tlock{$tag}{$ch}");
  30 			}
  31 		}
  32 		Irssi::print("%R>>%n You dont have any active topic locks at this moment.") unless $i;
  33 		return;
  34 	}
  35 
  36 	$chan = lc($chan);
  37 	if ($delete) {
  38 		Irssi::print("%W>>%n topic lock on $chan removed") if $tlock{$tag}{$chan};
  39 		undef $tlock{$tag}{$chan};
  40 		return;
  41 	} 
  42 
  43 	my $channel = $server->channel_find($chan);
  44 	unless ($channel && $channel->{chanop}) {
  45 		Irssi::print("%R>>%n You are not channel operator/not on channel on $chan.");
  46 		return;
  47 	}
  48 
  49 	$args =~ s/^$chan\s?//;
  50 	my $topic = ($args)? $args : $channel->{topic};
  51 
  52 	if ($tlock{$tag}{$chan}) {
  53 		Irssi::print("Changed tlock on $chan to%W:%n $topic");
  54 	} else {
  55 		Irssi::print("Set tlock on $chan to%W:%n $topic");
  56 	}
  57 
  58 	$server->send_raw("TOPIC $chan :$topic") if $channel->{topic} ne $topic;
  59 
  60 	$tlock{$tag}{$chan} = $topic;	
  61 	
  62 }
  63 
  64 sub sub_tlock {
  65 	# "event "<cmd>, SERVER_REC, char *args, char *sender_nick, char *sender_address
  66 	my ($server, $args, $nick, $uh) = @_;
  67 
  68 	return if $server->{nick} eq $nick;
  69 	my ($chan, $topic) = split(/ :/, $args);
  70 	return unless $server->channel_find($chan)->{chanop};
  71 	$chan = lc($chan);
  72 	my $tag = $server->{tag};
  73 	
  74 	if ($tlock{$tag}{$chan} && $topic ne $tlock{$tag}{$chan}) {
  75 		Irssi::print("%W>>%n tlock: changing topic back on $chan");
  76 		$server->send_raw("TOPIC $chan :$tlock{$tag}{$chan}");
  77 	}
  78 }
  79 
  80 Irssi::signal_add('event topic', 'sub_tlock');
  81 Irssi::command_bind('tlock', 'cmd_tlock');