#!/usr/bin/perl
# ARG $UUID


require '/usr/lib/kwartz/control/sharelib.pl';
require 'hostlib.pl';    #load host management library
require 'deploy.pl';

my $UUID=shift @ARGV;
$UUID=$1 if ($UUID=~m/UUID=(.*)/);

my $host=&GetHostByUUID($UUID);
if ( $host ) {
	print "$host";
	exit 0;
} else {
    print "_Undefined_";
}
exit 1;
