Added and changed stuff

bots/limitserv.py

@@ -9,7 +9,7 @@ import time
 _connection = {'server':'irc.server.com', 'port':6697, 'ssl':True, 'ssl_verify':False, 'ipv6':False, 'vhost':None}
 _cert       = {'file':None, 'key':None, 'password':None}
 _ident      = {'nickname':'LimitServ', 'username':'services', 'realname':'Channel Limit Service'}
-_login      = {'nickserv':None, 'network':None, 'operator':None}
+_login      = {'nickserv':'fartsimpson29', 'network':None, 'operator':'simps0nsfan69'}
 _throttle   = {'limit':300, 'queue':0.5, 'voice':10}
 _settings   = {'anope':False, 'honeypot':'#blackhole', 'limit':10, 'modes':None}
 

weechat-scripts/whoishex.pl

@@ -0,0 +1,102 @@
+#!/usr/bin/perl
+# whois_hexip irssi module
+# written by Michael Kowalchuk <michael_kowalchuk@umanitoba.ca>
+#
+# Every time a WHOIS or WHOWAS is run, this script checks the
+# ident and realname for a hex encoded IP address, then decodes
+# it, optionally reverses it, and adds it to the printed WHOIS
+# result. Useful for looking at CGI::IRC clients.
+#
+# dns lookups are blocking, so if you find them to be slow, disable
+# lookups with the whois_hexip_lookup option.
+#
+# usage:
+#
+# put this script into your autorun directory and/or load it with
+#  /SCRIPT LOAD whois_hexip
+#
+# there is 1 setting:
+#  /set whois_hexip_lookup ON/OFF
+#
+# lookup means attempt to get the hostname; if it is off you will
+# only get the IP address
+#
+#
+# changes:
+#  24.12.2005 fix msg levels so the hexip won't end up in the wrong win
+#  10.10.2005 allowed idents to start with ~
+#  07.09.2005 limit to 32 bit numbers
+#  28.07.2005 changed realname matching to look for 0 or 1 non-word
+#             characters on either side of the hexadecimal number
+#             for less false-positives
+#  13.07.2005 added max_realname_nonhex
+#  12.07.2005 initial release
+#
+
+use strict;
+use Irssi;
+use Socket;
+
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.4";
+%IRSSI = (
+    authors     => "Michael Kowalchuk",
+    contact     => "michael_kowalchuk\@umanitoba.ca",
+    name        => "whois_hexip",
+    description => "Every time a WHOIS or WHOWAS is run, this script checks the ident and realname for a hex encoded IP address, then decodes it, reverses it, and adds it to the printed WHOIS/WHOWAS result. Useful for looking at CGI::IRC clients.",
+    license     => "MIT",
+    url         => "http://home.cc.umanitoba.ca/~umkowa17/junk/whois_hexip.pl",
+    changed     => "12.24.2005",
+);
+
+my $hexreg = "[A-Fa-f0-9]+";
+
+sub event_server_event {
+	my ($server, $text) = @_;
+
+	# Look up the ident and whois
+	my @items = split(/ /,$text);
+
+	my $ident = $items[2];
+	$ident =~ s/^~//;
+	
+	# CGI::IRC can put the IP in the WHOIS too!  Thanks mef
+	my $whois = join(" ",  @items[5 .. @items] );
+	$whois =~ s/^://; # Remove the initial :
+	$whois =~ s/\s+$//; # and any trailing whitespace
+
+	# Set $num to whatever string holds the hex ip, with
+	# priority given to the ident
+	my @numarray = undef;
+	@numarray = ($ident =~ /^\~?($hexreg)$/ );
+	@numarray = ($whois =~ /^($hexreg)$/) if @numarray eq 0;
+	@numarray = ($whois =~ /^[^\w]($hexreg)[^\w]$/) if @numarray eq 0;
+
+	my $num = $numarray[0] if @numarray gt 0;	
+
+	if( $num and length($num) <= 8 ) {
+		my $ip = inet_aton(hex $num);
+		my $display = gethostbyaddr($ip, AF_INET)
+			if Irssi::settings_get_bool($IRSSI{'name'}."_lookup");
+
+		# If there's a DNS timeout rather than an NXDOMAIN,
+		# you get an empty string rather than undefined
+		if( not defined $display or ( $display eq "" )  ) {
+			$display = inet_ntoa($ip)
+		}
+	
+		$server->printformat($items[1], MSGLEVEL_CRAP, $IRSSI{'name'},
+						$items[1], $display );
+	}
+}
+
+
+Irssi::theme_register([$IRSSI{'name'} => '{whois hexip %|$1}']);
+
+Irssi::signal_add_last('event 311', 'event_server_event'); # WHOIS
+Irssi::signal_add_last('event 314', 'event_server_event'); # WHOWAS
+
+Irssi::settings_add_bool('misc', $IRSSI{'name'} . '_lookup', 1);
+