#!/usr/bin/perl
# ARG numkey @mac
# key via stdout
# error via stderr


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

my $numkey=shift @ARGV;
my $AddrMAC=shift @ARGV;

#my $host=&GetHostByMac($AddrMAC);
#if ($host) $host = (split '\.', $host)[0];
if ( $numkey eq 1 ) {
	if ( -f "/etc/rembo.conf" ) {
		open (KEY, "/etc/rembo.conf");
		my @key = <KEY>;
		close KEY;
		foreach(@key) {
			print $1 if m/^NetPassword \"(\S+)\"/;
		}
		exit 0;
	} else {
		print STDERR "Fichier non trouv $tmpname\n";
	}
} elsif ( $numkey eq 2 ) {
	if ( -f "/home/kwartz/deploy/id_ecdsa" ) {
		open (KEY, "/home/kwartz/deploy/id_ecdsa");
        my @key = <KEY>;
        close KEY;
		foreach(@key) {
			print;
		}
		exit 0;
	} else {
		print STDERR "Fichier non trouve $tmpname\n";
	}
} else {
	print STDERR "\@mac $AddrMAC non trouve";
}
exit 1;
