#!/usr/bin/perl -w
# remd: éditer tts les variable d'environement dans un fichier html pour/par Perl
# Il fonctionne parfaitement _ alain Adelmar _ 26 Mai 2009 

use Cwd;
$dir = getcwd;

use DateFrench;
$format_affichage = "2";
$fr_date_file = datefichier($format_affichage, "1", $0);
$french_date_now =maintenant($format_affichage);

$file= "$dir\/rapVarEnv.html";
&pa2verite($file);


open F, ">$file" or die "ouverture du fichier impossible $!";
print F '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">' . "\n";
print F "<HTML\>\n";
print F '<meta http-equiv="Content-Type" content="text/html"; charset=iso-8859-1' . "\n\n";
print F '<link href="style.css" type="text/css" rel="stylesheet">' . "\n\n";
print F "<BODY\>\n";
print F "<HEAD\><TITLE\>Variables d'environnement<\/TITLE\><\/HEAD\>\n";
print F "<BR\>Test sur OS de type";
print F "<BR\><div align=\"center\"\><h1\>" . $^O . "<\/h1\><\/div\>\n";
print F "<HR\>";
print F "<BR\>Mon environement sur " . $^O . " est donc:\n<BR\>";
print F "<table cellpadding=\"0\" cellspacing=\"0\" border=\"0\" width=\"100\%\"\><BR\>\n";
print F "\t<tbody><BR>";

foreach $key (sort(keys %ENV)) {
	print F "\t<tr\>\n\t\t<td valign=\"top\"\>" . $key . "</td\>\n\t\t<td valign=\"top\"\>" . $ENV{$key} . "<br>\n\t\t</td\>\n\t<td valign=\"top\"\>\n";
}

print F "\t" . '</tbody>' . "\n" . '</table>' . "\n" . '<br>' . "\n";
print F "<HR\>\n";
print F '<div align="center">script ' . $0 . " écrit le $fr_date_file par Alain Adelmar " . '<a href="mailto:aadelmar@free.fr">aadelmar@free.fr</a>' . "\n";
print F "<BR\>utilisé le $french_date_now\n" . "<\/div\>\n";  
print F "</BODY>";

close F || die "damned $!";

sub pa2verite {
	my($file)=@_;
	my $i=0;

  while (-e $file) {
    $i++;
    $file = "$dir\\rapVarEnv_" . "$i" . "\.html";
  }
}

END;


