Adding upstream version 20231031.upstream/20231031upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 320 insertions, 0 deletions

diff --git a/scripts/operit.pl b/scripts/operit.pl
new file mode 100644
index 0000000..60f3181
--- /dev/null
+++ b/scripts/operit.pl
@@ -0,0 +1,320 @@
+### operit.pl (c) 2002, 2003 Petr Baudis <pasky@ucw.cz>
+#
+## Perform certain action (invite/op/...) on request authenticated by the
+## IRC operator status.
+#
+## See http://pasky.ji.cz/~pasky/dev/irssi/ for the latest version.
+#
+## Thanks to:
+## mofo <mick@mofo.nl>			(patches)
+## Garion <garion@dnsspam.nl>		(ideas)
+## Borys <borys@irc.pl>			(ideas)
+## devastor <devastor@idiosynkrasia.net>(bug reports)
+## babar <babar@magicnet.org>		(delay patch)
+#
+## $Id: operit.pl,v 1.14 2003/09/06 12:27:11 pasky Exp pasky $
+#
+# $Log: operit.pl,v $
+# Revision 1.14  2003/09/06 12:27:11  pasky
+# Okay, so while I'm at it updated other instance of my email addy, copyright, bunch of grammar fixes and documented the operit_public_delay variable.
+#
+# Revision 1.13  2003/09/06 12:25:09  pasky
+# Updated my email addy.
+#
+# Revision 1.12  2003/09/06 12:23:50  pasky
+# Added support for randomly delayed operit - if operit is public, the delay is zero to five seconds by default - this helps greatly if there is a lot of operit-enabled clients on a channel. Patch by Babar <babar@magicnet.org> and me.
+#
+# Revision 1.11  2003/03/20 08:58:18  pasky
+# Match whole channel, not random part, when checking for deny_channels and deny_hosts. So you can deny operits at #iraq but still allow them at #iraqlive ;-). Thanks to viha for cooperation during testing.
+#
+# Revision 1.10  2002/11/29 16:51:46  pasky
+# Don't play with channels we aren't on. Fixes occassional 'can't call method command on undefined value'; thanks to devastor for a report.
+#
+# Revision 1.9  2002/10/19 13:12:34  pasky
+# Introduced operit_allow_public (by default on), which toggles accepting of public (on-channel) operit requests. Idea by Borys.
+#
+# Revision 1.8  2002/10/13 12:33:13  pasky
+# We don't care about /^operit [^!#&]/ anymore. Thanks fly to Garion for suggestion.
+#
+# Revision 1.7  2002/10/07 14:16:58  pasky
+# Added operit_show_requests bool setting (by default 1, that is same behaviour as now).
+#
+# Revision 1.6  2002/09/01 12:27:08  pasky
+# Erm, compilation fixes.
+#
+# Revision 1.5  2002/09/01 12:24:24  pasky
+# Allow specification of more channels separated by a comma in requests. Changed default value of operit_hosts_deny to something harmless. Patch by mofo <mick@mofo.nl>.
+#
+# Revision 1.4  2002/03/13 13:17:36  pasky
+# remove one debug message accidentally left there
+#
+# Revision 1.3  2002/03/12 18:02:37  pasky
+# invait actually works now
+#
+# Revision 1.2  2002/02/05 17:47:13  pasky
+# fixed many things :^). now it basically works how it should...
+#
+# Revision 1.1  2002/02/05 16:47:09  pasky
+# Initial revision
+#
+#
+###
+
+### Inspired by Operit-2.01b+enge script for ircII+ clients by
+## - Viha   (Viha@Theblah.Org)
+#  - Karzan (Kari@Theblah.Org)
+#
+## Credits also go to:
+#  - LuckyS  (lucky@binet.lv)              [bug  reports]
+#  - Fusion  (fusion@nuts.edu)             [bug  reports]
+#  - RA^v^EN (raven@sky.siol.org)          [bug  reports]
+#  - tumble  (tumble@openface.ca)          [beta testing]
+#  - koopal  (andre@nl.uu.net)             [script ideas]
+#  - pt      (primetime@wnol.net)          [script ideas]
+#  - delta   (delta@rus.uni-stuttgart.de)  [script ideas]
+#  - pht     (svobodam@irc.vsp.cz)         [bug  reports]
+#  - enge    (engerim@magicnet.org)        [modifications]
+#
+### The most recent version can always be found at
+#           http://www.vip.fi/~viha/irc/
+###
+
+use strict;
+
+use vars qw ($VERSION %IRSSI $rcsid);
+
+$rcsid = '$Id: operit.pl,v 1.14 2003/09/06 12:27:11 pasky Exp pasky $';
+($VERSION) = '$Revision: 1.14 $' =~ / (\d+\.\d+) /;
+%IRSSI = (
+          name        => 'operit',
+          authors     => 'Petr Baudis',
+          contact     => 'pasky@ucw.cz',
+          url         => 'http://pasky.ji.cz/~pasky/dev/irssi/',
+          license     => 'BSD',
+          description => 'Perform certain action (invite/op/...) on request authenticated by the IRC operator status.'
+         );
+
+
+use Irssi 20021117; # timeout_add_once
+use Irssi::Irc;
+
+
+my $queue = 0;   # already queued an operit? (when?)
+my $disp = 0;    # already displayed kind notice about already queued operit?
+my $cmd = "";    # command issued
+my $target = ""; # who issued the command
+my $chan = "";   # object of the command
+
+my $coperit = 0;
+my $cinvait = 0;
+my $cdamode = 0;
+my $mpublic = 0;
+
+
+sub event_privmsg {
+  my ($server, $data, $nick, $address) = @_;
+  my ($msgtarget, $text) = split(/ :/, $data, 2);
+
+  return if (Irssi::settings_get_bool("operit_deny"));
+
+  if ($text =~ s/^(invait|operit|damode)( .*)?$/$2/i) {
+    if (uc($msgtarget) eq uc($server->{nick})) {
+      $mpublic = 0;
+    } else {
+      return unless (Irssi::settings_get_bool("operit_allow_public"));
+      $mpublic = 1;
+    }
+
+    if (time - $queue < 10) {
+      Irssi::print "Operit currently deactivated or queued. Request ignored."
+	if (time - $disp > 20);
+      $disp = time;
+      return;
+    }
+
+    $cmd = $1; $target = $nick; $queue = 0; $disp = 0;
+
+#    if ($msgtarget eq $N or $cmd eq 'invait') {
+    if (1) {
+      ($_, $chan) = split /\s+/, $text; # oh.. oh well :)
+      my $a = 0;
+
+      $chan = $msgtarget if (not $chan and $msgtarget ne $server->{nick});
+      return unless ($chan =~ /^[#!&]/);
+
+      foreach (split /\s+/, Irssi::settings_get_str("operit_chans")) {
+        s/\./\\./;
+	s/\*/.*/g;
+	if ($chan =~ /^$_$/i) {
+	  $a++;
+	}
+      }
+
+      unless ($a) {
+	Irssi::print "Unauthorized $cmd $chan by $target (not in operit_chans)" if (Irssi::settings_get_bool("operit_show_requests"));
+	return;
+      }
+      
+      foreach (split /\s+/, Irssi::settings_get_str("operit_chans_deny")) {
+        s/\./\\./;
+	s/\*/.*/g;
+	if ($chan =~ /^$_$/i) {
+	  Irssi::print "Unauthorized $cmd $chan by $target (in operit_chans_deny)" if (Irssi::settings_get_bool("operit_show_requests"));
+	  return;
+	}
+      }
+      
+      foreach (split /^\s+$/, Irssi::settings_get_str("operit_hosts_deny")) {
+        s/\./\\./;
+	s/\*/.*/g;
+	if ($address =~ /$_/i) {
+	  Irssi::print "Unauthorized $cmd $chan by $target <$address> (in operit_hosts_deny)" if (Irssi::settings_get_bool("operit_show_requests"));
+	  return;
+	}
+      }
+
+      $queue = time;
+      
+      $server->redirect_event("userhost", 1, $target, 0, 'redir userhost_operit_error',
+			      {"event 302" => "redir userhost_operit"});
+
+      $server->command("USERHOST $target");
+    }
+  }
+}
+
+sub event_userhost_error {
+  Irssi::print "Operit userhost on $target failed, aborting the action...";
+
+  $queue = $disp = 0;
+}
+
+
+sub event_userhost_operit {
+  my ($server, $data) = @_;
+  my ($mynick, $reply) = split(/ +/, $data);
+  my ($nick, $user, $host) = $reply =~ /^:(.*)=.(.*)@(.*)/;
+  
+  unless ($nick =~ s/\*$//) {
+    Irssi::print "$target requested UNAUTHORIZED $cmd on channel $chan" if (Irssi::settings_get_bool("operit_show_requests"));
+    return;
+  }
+  
+  Irssi::print "$target requested $cmd on channel $chan" if (Irssi::settings_get_bool("operit_show_requests"));
+
+  foreach my $chansplit (split(/\,/, $chan)) {
+    my $channel = $server->channel_find($chansplit);
+
+    next unless ($channel);
+
+    if (lc($cmd) eq "operit") {
+      if ($mpublic) {
+	my $precision = 10; # Delay precision (10 = 1/10s)
+	my $rdelay = int(rand(Irssi::settings_get_str("operit_public_delay") * $precision)) * 1000 / $precision;
+
+	Irssi::print "Waiting " . ($rdelay / 1000) . " seconds before executing PUBLIC $cmd for $target on $chan";
+	Irssi::timeout_add_once($rdelay + 11, sub { # XXX why + 10 ? --pasky
+			my ($target, $channel) = @{$_[0]};
+			my ($tgrec) = $channel->nick_find($target);
+        		$channel->command("op $target") unless ($tgrec and $tgrec->{'op'});
+		}, [ $target, $channel ]);
+      } else {
+        $channel->command("op $target");
+      }
+      $coperit++;
+      
+    } elsif (lc($cmd) eq "invait") {
+      $server->command("invite $target $chansplit");
+      $cinvait++;
+    
+    } elsif (lc($cmd) eq "damode") {
+      $server->command("notice $target mode for $chansplit is +$channel->{mode}");
+      $cdamode++;
+    }
+  }
+
+  $queue = $disp = 0;
+}
+
+
+sub event_ctcp {
+  my ($server, $data, $nick, $address, $target) = @_;
+
+  return if (Irssi::settings_get_bool("operit_deny"));
+
+  if ($data =~ /^operit/i) {
+    Irssi::print "$nick requested operit thru CTCP... no way!" if (Irssi::settings_get_bool("operit_show_requests"));
+    $server->command("NOTICE $nick ssshht!");
+    Irssi::signal_stop();
+  }
+}
+
+
+sub cmd_operit {
+  my ($data, $server, $channel) = @_;
+  
+  if ($data =~ /^(usage|help)/i) {
+
+    foreach (split /\n/, <<USAGEE
+Operit:
+
+Local commands
+
+operit usage      - This help.
+operit help       - This help.
+operit status     - Display statistical information.
+
+Remote commands
+
+operit #chan      - Op the person in question on #chan.     (req. *)
+invait #chan      - Invait the person in question to #chan. (req. *)
+damode #chan      - Give the person in question the modes of #chan. (req. *)
+
+Variables
+
+operit_chans      - The channelmask operit/invait is permitted on. (* is *)
+operit_chans_deny - The channel(s) operit/invait is not permitted on. (* is *)
+operit_hosts_deny - The user\@host(s) operit/invait is not permitted from. (* is *)
+operit_deny       - Toogle this ON if you don't actually want invait/operit to function.
+operit_show_requests
+                  - Toogle this OFF if you don't want to see messages about operit requests.
+operit_allow_public
+                  - Toogle this OFF if you don't want requests written on channels to be proceeded.
+operit_public_delay
+		  - Set this to 0 if you don't want random delay between request and action.
+USAGEE
+	) {
+      Irssi::print $_;
+    }
+    
+  } elsif ($data =~ /^status/i) {
+    my $ctotal = $coperit + $cinvait + $cdamode;
+
+    Irssi::print "Operit $VERSION Status:";
+    Irssi::print "The last person to request $cmd was $target [$chan].";
+    Irssi::print "This session has served $coperit op-requests, $cinvait invite-requests and $cdamode mode-requests.";
+    Irssi::print "Making a total of $ctotal succesful requests.";
+    
+  } else {
+    Irssi::print "Excuse moi, sir? I guess that you want /operit usage ..?";
+  }
+}
+
+
+Irssi::command_bind("operit", "cmd_operit");
+Irssi::signal_add("redir userhost_operit", "event_userhost_operit");
+Irssi::signal_add("redir userhost_operit_error", "event_userhost_error");
+Irssi::signal_add("default ctcp msg", "event_ctcp");
+Irssi::signal_add("event privmsg", "event_privmsg");
+
+
+Irssi::settings_add_str("operit", "operit_chans", "#* !*");
+Irssi::settings_add_str("operit", "operit_chans_deny", "#ircophackers");
+Irssi::settings_add_str("operit", "operit_hosts_deny", "*!*@*.lamehost1 *lamehost2");
+Irssi::settings_add_bool("operit", "operit_deny", 0);
+Irssi::settings_add_bool("operit", "operit_show_requests", 1);
+Irssi::settings_add_bool("operit", "operit_allow_public", 1);
+Irssi::settings_add_str("operit", "operit_public_delay", 5);
+
+
+Irssi::print("Operit $VERSION loaded... see command 'operit usage'");