#!/opt/net/GNU/bin/perl
use CGI qw(:all);
use CGI::Carp;

$SERVEUR_HOME_DIR='/u/dessi3/palmero/www/local/saves/';

$MOT_DE_PASSE="admin";
$INDEX=$SERVEUR_HOME_DIR.'index.ind';
$SERV_NAME=server_name;


#on transfere les donnees de l'index dans 4 tableaux
open (ININDEX,"<".$INDEX);
$NOFICHIERS=1;

while ($DATA=<ININDEX>) {
  
  $LISTNOM[$NOFICHIERS]=$DATA;
  
  $DATA=<ININDEX>;
  $LISTTITRE[$NOFICHIERS]=$DATA;
  
  $DATA=<ININDEX>;
  $LISTTYPE[$NOFICHIERS]=$DATA;
  
  $DATA=<ININDEX>;
  $LISTREF[$NOFICHIERS]=$DATA;
  $NOFICHIERS=$NOFICHIERS+1;
}
close ININDEX;

  print header(),start_html(-title=>'Suppression d\'un enregistrement',-author=>'palmero@essi.fr',-background=>'../grayish.jpg');
if (param(passwd)) {
  if (param(passwd) eq $MOT_DE_PASSE) {
    
    
    $CHOIXPROG=param(choix);

    param(choix)=~m/(.*)\/.[^\/]*/;
    $DIRR=$1;
    
    #On reecrit l'index global
    open (OUTINDEX,">".$INDEX);
    for ( $I=1 ; $I<$NOFICHIERS ; $I++) {
      
      if ($CHOIXPROG ne $LISTREF[$I])
	{
	  print OUTINDEX $LISTNOM[$I],$LISTTITRE[$I],$LISTTYPE[$I],$LISTREF[$I];
	}
    }
    close OUTINDEX;

    #on supprime l'espace qui a ete ajoute je sais pas ou
    param(choix)=~m/(.*)\s*/;
    
    #Voici le nom des fichiers (sans les extensions)
    $CHOIXPROG=$1;

    # on supprime les fichiers

    system ("\\rm $CHOIXPROG.dsc $CHOIXPROG.exe");
    if (-e($CHOIXPROG.".env")) {
      system ("\\rm $CHOIXPROG.env");
    }
    if (-e($CHOIXPROG.".src")) {
      system ("\\rm $CHOIXPROG.src");
    }
    rmdir $DIRR;

    
    #on recharge les tables
    
    open (ININDEX,"<".$INDEX);
    $NOFICHIERS=1;
    
    while ($DATA=<ININDEX>) {
  
      $LISTNOM[$NOFICHIERS]=$DATA;
      
      $DATA=<ININDEX>;
      $LISTTITRE[$NOFICHIERS]=$DATA;
      
      $DATA=<ININDEX>;
      $LISTTYPE[$NOFICHIERS]=$DATA;
      
      $DATA=<ININDEX>;
      $LISTREF[$NOFICHIERS]=$DATA;
      
      $NOFICHIERS=$NOFICHIERS+1;
    }
    close ININDEX;
    
  }
  
  
  
  else {
    print center(h2("Mot de Passe erron&eacute;")),hr;
  }
}


  print "<TABLE WIDTH=\"100\%\" NOSAVE>",  
  "<TR> <TH>",
  center(h1("Suppression d\'un enregistrement")),
  "</TH><TH>",
  "<DIV ALIGN=right><A HREF=\"../index.html\"> <IMG SRC=\"../backhome.gif\"></A></DIV>",
  "</TH></TR></TABLE>",


  hr,center(strong("Choisissez l'enregistrement que vous souhaitez effacer, puis entrez le mot de passe (Le password est \'admin\' ... Supprimer cette parenth&egrave;se par la suite, et changer le password)")),
  hr,
  center(h3("Programmes Disponibles")),
  start_form();
print "<TABLE BORDER WIDTH=\"100\%\" NOSAVE>",
  "<TR> <TH>",
  "Titre du programme",
  "</TH>",
  "<TH>",
  "Nom de l'auteur",
  "</TH>",
  "<TH>",
  "Type du programme",
  "</TH>",
  "<TH>",
  "Selection",
  "</TH> </TR>";

for ($I=1 ; $I<$NOFICHIERS ; $I++) {
  print "<TR> <TD> <CENTER> $LISTNOM[$I] </CENTER> </TD>",
  "<TD> <CENTER> $LISTTITRE[$I] </CENTER> </TD>",
  "<TD> <CENTER> $LISTTYPE[$I] </CENTER> </TD> ";
  if ($I==1) {
    print "<TD> <CENTER> <input type=\"radio\" name=\"choix\" value=\"$LISTREF[$I]\" checked > </CENTER> </TD> </TR>"; }
  else {
    print "<TD> <CENTER> <input type=\"radio\" name=\"choix\" value=\"$LISTREF[$I]\"> </CENTER> </TD> </TR>"; }
}
print "</TABLE>";

print center(h3("Mot de Passe :")),p,
  center(password_field("passwd","",30)),hr,
  center(reset,"-------",submit("bouton","Supprimer")),
  end_form,
  end_html;