#!/usr/bin/perl
# ARG @mac tmpfile


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

my $AddrMAC=shift @ARGV;

my $host=&GetHostByMac($AddrMAC);
if ( $host ) {
	$host = (split '\.', $host)[0];
	my $tmpname=shift @ARGV;
	if ( -f $tmpname ) {
		if ( open( TMP, ">$tmpname") ) {
			print TMP "$host\n";
			close TMP;
			
			my $hostdir="$deploydir/computers/$host";
			if ( ! -d $hostdir ) {
				mkdir $hostdir, 0755;
			}
			`chown pulse2: $hostdir`;
			if ( open (HOSTNAME, ">$hostdir/hostname") ) {
				print HOSTNAME $host;
				close HOSTNAME;
			}
			
			exit 0;
		}
	} else {
		print "Fichier non trouv $tmpname\n";		
	}
} else {
	print "\@mac $AddrMAC non trouve";	
}
exit 1;
