From: bw1 <redacted>
Date: Wed, 9 May 2018 20:14:47 +0000 (+0200)
Subject: [cloneprot] remove cloneprot.pl
X-Git-Url: http://git.99rst.org/?a=commitdiff_plain;h=e0ffe674f84f22a1977291e1a025af1aefd6a882;p=irssi-scripts.irssi.org.git

[cloneprot] remove cloneprot.pl
---

diff --git a/scripts/cloneprot.pl b/scripts/cloneprot.pl
deleted file mode 100644
index 2e51721..0000000
--- a/scripts/cloneprot.pl
+++ /dev/null
@@ -1,89 +0,0 @@
-use strict;
-use vars qw($VERSION %IRSSI);
-use Irssi;
-    
-$VERSION = "1.11";
-%IRSSI = (
-                     authors     => "Rick (strlen) Jansen",
-                     contact     => "strlen\@shellz.nl",
-                     name        => "cloneprot",
-                     description => "Parses OperServ notices to make autokill aliases from clonewarnings",
-                     license     => "GPL/1",
-                     url         => "http://www.shellz.nl/",
-                     changed     => "Wed Mar 13 20:26:46 CET 2002",
-);
-
-my ($lastmask, $clones, $trig, $hostmask, $username, $hostname);
-
-sub event_callback {
-	my ($server, $data, $sender, $address) = @_;
-	my $count = 0;
-	if ($sender eq $server->{address}) {
-		if ($data =~ /from OperServ: CLONES\((\d+)\): /) {
-			$clones = $1;
-			$trig = $clones + 2;
-			if ($data =~ /((\S+)\@(\S+))/) {
-				$hostmask = $1;
-				$username = $2;
-				$hostname = $3;
-				if ($hostmask eq $lastmask) {
-					$count++;
-					Irssi::print("[Warning #$count] $clones clones.");
-					Irssi::print("[[/tk (1h)] - [/ak 1|2 (6h)] - [/tr ($trig)] - [/cw 1|2 (/who)]]");
-				} else {
-					$server->command("/who $hostname");
-					Irssi::print("[Warning #1: $clones clones.");
-					Irssi::print("[1: $hostmask] - [2: $hostname]");
-					Irssi::print("[[/tk (1h)] - [/ak 1|2 (6h)] - [/tr ($trig)] - [/cw 1|2 (/who)]]");
-					$count=1;
-				}
-				Irssi::signal_stop();
-			}
-		}
-	}
-}
-
-sub cw_callback {
-	my ($mode,$server) = @_;
-	if ($mode == 1) {
-		$server->command("/who $hostmask");
-	} elsif ($mode == 2) {
-		$server->command("/who $hostname");
-	} else {
-		Irssi::print("Usage: /cw 1|2");
-	}
-}
-
-sub tk_callback {
-	my ($null,$server) = @_;
-	$server->command("/msg operserv tempakill $hostname Don't clone on SorceryNet.");
-}
-
-sub ak_callback {
-	my ($mode,$server) = @_;
-	if ($mode == 1) {
-		$server->command("/msg operserv autokill 6 $hostmask Don't clone on SorceryNet.");
-	} elsif ($mode == 2) {
-		$server->command("/msg operserv autokill 6 *!*\@$hostname Don't clone on SorceryNet.");
-	} else {
-		Irssi::print("Usage: /ak 1|2");
-	}
-}
-
-sub tr_callback {
-	my ($mode,$server) = @_;
-	if ($mode == 1) {
-	$server->command("/msg operserv trigger $username\@$hostname $trig");
-	} elsif ($mode == 2) {
-	$server->command("/msg operserv trigger $hostname $trig");
-	} else {
-		Irssi::print("Usage: /tr 1|2");
-	}
-}
-
-Irssi::command_bind("tk","tk_callback");
-Irssi::command_bind("ak","ak_callback");
-Irssi::command_bind("tr","tr_callback");
-Irssi::command_bind("cw","cw_callback");
-
-Irssi::signal_add("server event","event_callback");