#!/usr/bin/perl -w
#!perl -w          
# remd: script Perl en latin1 (ISO 8859-1) écrit par Alain Adelmar v:2.2 Mars 2004 Pessac*
# Il liste le contenu des repertoires désiré dans un fichier rep.html et un rep.dat.     *
# requier le module FrDate.pm pour l'affichage de (la date et l'heure en français)       *
# écris par Alain Adelmar aadelmar@numericable.fr utilisable / tout OS (Linux, Micro$oft)* 
# Multi environement (UNIX-Like, MicroSoft, msys, cygwin)_ version:2.2 du 20/03/2004     *
# On peut demander ou avoir le résultat: a) repertoire courant ou b)repertoire lister    *
# Enjoyed, that's a aadelmar's script, fun free and french     "hé, ouai mon pote"       *
#---------------------script Perl en latin1 (ISO-8859-1)---------------------------------* 

use Cwd;
$dir = cwd;

use DateFrench;
$format_affichage = 21;
$opt_date_file = 1;
$french_date_now = maintenant($format_affichage);

$i = $j =0;
$x ="*-" x 25;
$al = "\t=== A_l_a_i_n -\/\/- A_d_e_l_m_a_r ===      |";
print "$x\n$al\n\n$x\n\n";

if (@ARGV) {
  $d = $ARGV[0];
  unless (-d $d) {
    print "Indiquez le dossier a traiter:\n";
    chomp($d = <STDIN>);
  }
}
else {
  print "usage:rep2html\npour lister le rep courant, ou\nrep2html /home/common/we/doc\n";
  print "\ndonc trouver dans rep.html le listage du repertoire courant\n";
  $d = $dir;
}


format STDOUT_TOP =
Page @ << 
$% 

         Fichier                                  Date
======================                        ===========================
.




#if ($d =~/\w\\$/) {   # M$
if ($d =~/\w\/$/) {
   $fout = "$d" . "rep.html";
   $fout_dat = "$d" . "rep.dat";
   }
else {
  $fout = "$d" . "\/rep" . "\.html";
  $fout_dat = "$d" . "\/rep" . "\.dat";
  while (-e $fout) {
    $fout = "$d" . "\/rep_" . "$i\.html";
    $i++;
      }
   while (-e $fout_dat) {
      $fout_dat = "$d" . "\/rep_" . "$j\.dat";
      $j++;
      }
   }                

open(STDOUT, ">:utf8", "$fout") or die "Ouverture de $fout impossible $!";
print STDOUT "<HTML\>\n\t<head\>\n\t\t<meta http-equiv=\"Content-Type\" content=\"text\/html;
charset=iso-8859-1\"\>\n\t\t<meta name=\"author\" content=\"adelmar alain et
Perl\"\>\n\t<\/head\>\n<body\><br>\n<table width=100%\>";
print STDOUT "Edit&eacute; automatiquement par le script rep\.pl le: " . $french_date_now . "\nn\'eff&eacute;ctuez pas
de modifications (SVP)\.\n<hr\>\n";
open FDAT, ">$fout_dat" or die "Screugneugneu $fout_dat ne veux pas souvrir $!";
print FDAT "Edité automatiquement par le script rep\.pl le: " . $french_date_now . "\nn\'efféctuez pas de modifications (SVP)\.\n";   

opendir R, "$d" or die "Ouverture repertoire impossible $!";
   print "$x\n$al\n$x\n";
   foreach $file(sort readdir R){
      next if(-d $file);
      
      $ff= '<a href="' . $file . '">' . $file . '</a>';
      $fr_date_file = datefichier($format_affichage, $opt_date_file, $file);
      write STDOUT;
      $file_dat = "$file" . ',' . "$fr_date_file\n";
      print FDAT "$file_dat";
   }        
closedir R or die "Fermeture du repertoire impossible $!";

close FDAT;
print STDOUT '</table></body></html>';
close STDOUT;


  
print "\n\nUn fichier $fout a été créé ainsi qu'un fichier $fout_dat\nBonne journée\nalain\n";


format STDOUT =
<tr><td>@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< </td> <td>   @<<<<<<<<<<<<<<<<<<<<<<<<<< </td><br></tr>
$ff, $fr_date_file
.

# parfait


END;