#!/usr/bin/perl

#rajoute restricted et un password dans les entrées de lilo pour vérouiller le démarrage

$fichier='/etc/lilo.conf';
open (IN,$fichier) or die $!;
	my @contenu=<IN>;
close (IN);

$newline="\trestricted\n\tpassword=ungrospasswordici\n";
$timeout=600;
rename($fichier, $fichier.'.old');

open (FIC, '>'.$fichier) or die $!;
$chaine = join "" , @contenu;
$chaine=~s/^(\s.*)(label.*?\n)/$1$2$newline/gm;
$chaine=~s/(timeout=)(.*?\n)/$1$timeout\n/gm;
if ($chaine=~m/windows/) {
	$chaine=~s/(default=)(.*?\n)/$1"windows"\n/gm;
}
print FIC $chaine;
close (FIC);
print(`chmod go-rwx $fichier`);
print(`lilo`);