#!/usr/bin/perl

my %hash = ();

for $FILE ("/usr/share/msec/level.0", "/usr/share/msec/level.1", "/usr/share/msec/level.2", "/usr/share/msec/level.3", "/usr/share/msec/level.4", "/usr/share/msec/level.5") {

	open (FH, $FILE) or die "$!";

	while (<FH>) {
		@tab=split;
		shift(@tab) if ($tab[0] eq "set_security_conf");
		$var=shift(@tab);
		$val=join(" ",@tab);
		$hash{$var}{$FILE}=$val;
	}
}

print "\{| border=\"1\"\n|- bgcolor=\"#FFDAB9\"\n!Liste d'actions/Niveau de Sécurité!!	Aucun (0)!!	Très Faible (1)!!	Standard (2)!!	Élevé (3)!!	Plus Élevé (4)!!	Paranoïaque (5)\n";


for $key ( sort keys %hash ) {
	print "|-\n|$key ";
	for $key2 ( sort keys %{ $hash{$key} } ) {
		print "|| $hash{$key}{$key2}";
	}
	print "\n";
}

print "\|\}\n"