[nexuiz-commits] r8275 - trunk/server/rcon2irc

[DONOTREPLY at icculus.org]

Author: fruitiex
Date: 2009-11-12 14:34:24 -0500 (Thu, 12 Nov 2009)
New Revision: 8275

Added:
   trunk/server/rcon2irc/showlogins.pl
Log:
rcon2irc plugin: allow people to view who (tries to) log in to the irc admin feature


Added: trunk/server/rcon2irc/showlogins.pl
===================================================================
--- trunk/server/rcon2irc/showlogins.pl	                        (rev 0)
+++ trunk/server/rcon2irc/showlogins.pl	2009-11-12 19:34:24 UTC (rev 8275)
@@ -0,0 +1,48 @@
+# Nexuiz rcon2irc plugin by Merlijn Hofstra licensed under GPL - showlogins.pl
+# Place this file inside the same directory as rcon2irc.pl and add the full filename to the plugins.
+
+{ my %sl = (
+	show_success => 1,
+	show_failed => 1,
+	failed_interval => 60,
+); $store{plugin_showlogins} = \%sl; }
+
+sub out($$@);
+sub schedule($$);
+
+schedule sub {
+	my ($timer) = @_;
+	if ($store{plugin_showlogins}->{failed_attempts}) {
+		# Generate hostmakes
+		my %temp = undef;
+		my @hostmasks = grep !$temp{$_}++, @{ $store{plugin_showlogins}->{failed_attempts} };
+		
+		foreach my $mask (@hostmasks) {
+			my $count = 0;
+			foreach (@{ $store{plugin_showlogins}->{failed_attempts} }) {
+				$count++ if ($_ eq $mask);
+			}
+			
+			out irc => 0, "PRIVMSG $config{irc_channel} :\00305* login failed\017 \00304$mask\017 tried to become an IRC admin \00304$count\017 times";
+		}
+		
+		$store{plugin_showlogins}->{failed_attempts} = undef;
+	}
+	schedule $timer => $store{plugin_showlogins}->{failed_interval};;
+} => 1;
+
+[ irc => q{:(([^! ]*)![^ ]*) (?i:PRIVMSG) [^&#%]\S* :(.*)} => sub {
+	my ($hostmask, $nick, $command) = @_;
+	my $sl = $store{plugin_showlogins};
+	
+	if ($command eq "login $config{irc_admin_password}") {
+		out irc => 0, "PRIVMSG $config{irc_channel} :\00310* login\017 $nick is now logged in as an IRC admin" if ($sl->{show_success});
+		return 0;
+	}
+	
+	if ($command =~ m/^login/i && $sl->{show_failed}) {
+		push @{ $store{plugin_showlogins}->{failed_attempts} }, $hostmask;
+	}
+	
+	return 0;
+} ],