# 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');