use strict;
use warnings;
use Xchat qw(:all);

register(
	"NSLookup",
	"1.0000",
	"Shell out to nslookup to do DNS lookup",
);

hook_command( "nslookup", sub {
	my (undef, @args) = @{$_[0]};
	
	if( open( my $ns_output, "nslookup @args|" ) ) {
		my $output = do { local $/; <$ns_output> };
		$output =~ tr/\t/ /;
		prnt "$output";
	} else {
		prnt "Unable to start nslookup: $!";
	}
	return EAT_XCHAT;
});