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


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

my $AddrMAC=shift @ARGV;
my $host=&GetHostByMac($AddrMAC);
if ( $host ) {
#    $host = (split '\.', $host)[0];
	my $type = $hostlist{$host}{'type'};
	my $tmpname=shift @ARGV;
	( -f $tmpname ) || die "Fichier '$tmpname' non trouv\n";
	if ( open( TMP, ">$tmpname") ) {
		print TMP "$type:$host\n";
		close TMP;
		exit 0;
	}
}

print "\@mac $AddrMAC non trouve";
exit 1;
