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

$VERSION = "1.0";

%IRSSI = (
    authors    => "Jilles Tjoelker",
    contact    => "jilles\@stack.nl",
    name       => "old_map",
    description=> "Display hyperion 1.0.2 /MAP properly",
    license    => "Feel free to alter anything conform your own liking.",
);

sub event_map {
# :hyperion.test 377 jilles :  `-services.
	my $t = $_[1];
	$t =~ s/^[^ ]* //;
	$t =~ s/^://;
	$_[0]->print('', $t, MSGLEVEL_CRAP);
	Irssi::signal_stop();
}

sub event_endofmap {
# :hyperion.test 378 jilles :End of /MAP list.
	my $t = $_[1];
	$t =~ s/^[^ ]* //;
	$t =~ s/^://;
	$_[0]->print('', $t, MSGLEVEL_CRAP);
	Irssi::signal_stop();
}

Irssi::signal_add('event 377', 'event_map');
Irssi::signal_add('event 378', 'event_endofmap');