#!/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 $hostname=shift @ARGV;


my $host = $hostlist{$hostname};
if ( $host && $UUID) {
    $hostlist{$hostname}{'uuid'} = $UUID;
    &UpdateHostList();
    exit 0;
}
exit 1;