#!/usr/bin/perl

$param = shift; 


$id=`whoami`;
chomp $id;
if ($id ne "root") {
	print "Il faut être 'root' pour pouvoir installer la configuration standard\n";
	exit;
}

system("cp bin/* /usr/local/bin/");
system("cp etc/* /usr/local/etc/");
system("/usr/local/bin/raf");
system("/usr/local/bin/adaf");

system("chmod +s /sbin/fdisk");