#!/usr/bin/perl
#
# external.pl (c) 2002 by Benjamin Schweizer <gopher at h07 dot org>
#                         http://www.redsheep.de/
#
#######################################################################

# this script is called by 'echolot -X external.pl'
# it is given an ip address as $1, a default string as $2 and
# its output's first line is the host description

# output is "default-[netbios|domain|date|default]"

if (($name = `./netbios.pl $ARGV[0] $ARGV[1]`) ne $ARGV[1]) {
	print $ARGV[1] . "-" . $name;
} else {
	if (($name = `./domain.pl $ARGV[0] $ARGV[1]`) ne $ARGV[1] and $name ne "3(NXDOMAIN)") {
		print $ARGV[1] . "-" . $name;
	} else {
		if (($name = `./date.pl $ARGV[0] $ARGV[1]`) ne $ARGV[1]) {
			print $ARGV[1] . "-" . $name;
		} else {
			print $ARGV[1];
		}
	}
}