use strict;
use Irssi;
use vars qw($VERSION %IRSSI);

$VERSION = "1.0";

%IRSSI = (
    authors    => "Jilles Tjoelker",
    contact    => "jilles\@stack.nl",
    name       => "map_hopcount",
    description=> "Shows hop counts in /MAP",
    license    => "BSD (revised)",
);

Irssi::theme_register(['map' => '$0']);

sub event_map {
	my ($server, $args, $nick, $address) = @_;

	$args =~ s/^\S+ //;
	$args =~ s/^://;
	if ($args =~ /^([^a-zA-Z]*)([a-zA-Z]\S+\.\S+)(.*| )(Users.*)$/) {
		$args = $1.$2.$3."(".(length($1)/4).") ".$4;
	}
	$server->printformat('', MSGLEVEL_CRAP, 'map', $args);
}

Irssi::signal_add('event 015', 'event_map');
#Irssi::signal_add('event 017', 'event_mapend');