#!/usr/bin/perl -w
#!perl -w    # uncomment for Windows environement         
# remd: liste le contenu des repertoires désiré dans un fichier rep.html et un rep.dat.*
# écris par Alain Adelmar pour Unix-like, tourne mieux que dir_h, peut être utiliser   *
# sur M$ environement en uncommentant les lignes adéquates _ version: 2.1 du 5/11/2003 *
# 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"     *
#--------------------------------------------------------------------------------------* 
$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";
print "Indiquez le dossier a traiter:\n";
chomp($d = <STDIN>);

opendir R, "$d" or die "Ouverture repertoire impossible $!";
   print "$x\n$al\n$x\n";
   foreach $file(sort readdir R){
      $file = "$file\n";
      print $file;
      push @repertoire, $file;
   }        
closedir R or die "Fermeture du repertoire impossible $!";

#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 F, ">$fout" or die "Ouverture du fichier rep impossible $!";
   print F "<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";
   print F "Edité automatiquement par le script rep\.pl le: " .localtime(time) . "\nn\'effé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: " .localtime(time) . "\nn\'efféctuez pas de modifications (SVP)\.\n";
   foreach $ft(@repertoire) {
      chomp $ft;
      print F "\t<a href=\"$ft\"\>$ft<\/a\><br\>\n";
      print FDAT "$ft\n";
      # damned avec remd: je pourrai carrement afficher le commentaire à coté du liens (but no alias sur Windows)
      }
   close FDAT || die "Fartoi encoula granda connasse, 30000 fois saloperie ce ptain de $fout_dat
ne veut pas ce fermer $!";
close F or die "Fermeture impossible bordel $!";

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

END;
