1 files changed, 87 insertions, 0 deletions
diff --git a/scripts/efnetorg.pl b/scripts/efnetorg.pl
new file mode 100644
index 0000000..200593b
--- /dev/null
+++ b/scripts/efnetorg.pl
@@ -0,0 +1,87 @@
+# include $whois_decip somewhere in your /FORMAT whois
+
+use Irssi 20011207;
+use strict;
+use vars qw($VERSION %IRSSI); 
+
+$VERSION = "1.2";
+
+%IRSSI = (
+    authors => "Espen Holm Nilsen",
+    contact => "holm\@blackedge.org",
+    name => "efnetorg",
+    description => "Print the real IP address of efnet.org clients when they join/part channels, and whois.",
+    license => "GPLv2 or later",
+    url => "http://www.holmnilsen.com/"
+);
+
+my $whois_decip = "";
+
+sub whois_signal {
+  my ($server, $data, $nick, $host) = @_;
+  my ($me, $nick, $user, $host) = split(" ", $data);
+     if($host eq "chat.efnet.org") {
+	$whois_decip = hex2dec($user);
+	} else {
+	$whois_decip = "";
+	}
+}
+
+sub expando_decip {
+  if($whois_decip ne "") {
+  return "(" . $whois_decip . ")";
+  } else {
+  return $whois_decip;
+  }
+ }
+
+sub hex2dec ($) {
+  my ($hexip) = @_;
+     my @iparr = split(//, $hexip);
+     my $decip = hex($iparr[0] . $iparr[1]) . "." . hex($iparr[2] . $iparr[3]) . "." . hex($iparr[4] . $iparr[5]) . "." . hex($iparr[6] . $iparr[7]);
+     return $decip;
+}
+
+sub client_part {
+  my ($server, $channame, $nick, $host) = @_;
+   $channame =~ s/^://;
+
+   my $channel = $server->channel_find($channame);
+
+   return unless ($host =~ /\@chat.efnet.org$/);
+   my @hostz = split("\@", $host);
+
+   my $ident = $hostz[0];
+   my $decip = hex2dec($ident);
+   $channel->printformat(MSGLEVEL_PARTS, 'part_efnetorg', $nick, $host, $decip, $channel->{name});
+   Irssi::signal_stop();
+   return 0;
+}
+
+sub client_join {
+  my ($server, $channame, $nick, $host) = @_;
+   $channame =~ s/^://;
+
+   my $channel = $server->channel_find($channame);
+
+   return unless ($host =~ /\@chat.efnet.org$/);
+   my @hostz = split("\@", $host);
+
+   my $ident = $hostz[0];
+   my $decip = hex2dec($ident);
+   $channel->printformat(MSGLEVEL_JOINS, 'join_efnetorg', $nick, $host, $decip, $channel->{name});
+   Irssi::signal_stop();
+   return 0;   
+
+}
+
+Irssi::theme_register([
+'join_efnetorg', '{channick_hilight $0} {chanhost_hilight $1} ({hilight $2}) has joined {channel $3}',
+'part_efnetorg', '{channick $0} {chanhost $1} ({hilight $2}) has left {channel $3}'
+]);
+
+Irssi::expando_create('whois_decip', \&expando_decip, { 'event 311' => 'None' } );
+Irssi::signal_add_first('event 311', 'whois_signal');
+Irssi::signal_add('message join', 'client_join');
+Irssi::signal_add('message part', 'client_part');
+