#!/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) {
    rename $fout, "$fout" . "\.bak";
    #$fout = "$d" . "\/rep_" . "$i\.html";
    #$i++;
  }
  while (-e $fout_dat) {
    rename $fout_dat, "$fout_dat" . "\.bak";
    #$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 rep2html\.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)
}
print FDAT "\n<br\><hr\><br\>script Perl d Alain Adelmar<\/HTML\>\n";
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;