#!/usr/bin/perl
# ARG mac requested_menu

# maj menu par dfaut poste
# ex apres image passe en mode dmarrage immdiat par dfaut

require '/usr/lib/kwartz/control/deploy.pl'; 	 

my $AddrMAC=shift @ARGV;

my $menu= uc($AddrMAC);
$menu =~s/\://g;
my $hostmenu="$deploydir/bootmenus/$menu";
my $default=shift @ARGV;
if ( -f $hostmenu ) {
	system("/bin/sed -e 's/^default [0-9]/default $default/' -i $hostmenu");
}