#!/usr/bin/perl

#
#  REF: resoobaoadmin.pl
#  ResooSite v.0.9.5 -(p)Resoo 2002-2003
#  (c)2003 - pascal blain / GNU GPL - General Public License
#  http://www.resoo.org/resoosite
#  pascal@resoo.org
#

require "resooconf.pl";

$query = $ENV{'QUERY_STRING'};

&parse_form;

&get_date;

&get_variables;


######## recuperation des variables ########

#####################################################
# Obtenir les informations du formulaire - Subroutine

sub parse_form {

   # recevoir les variables
   read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

   # partager les variables en paire ( nom , valeur )
   @pairs = split(/&/, $buffer);

   foreach $pair (@pairs) {
      ($name, $value) = split(/=/, $pair);

   # Un-Webify plus signs and %-encoding
     $value =~ tr/+/ /;
     $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
     $value =~ s/<!--(.|\n)*-->//g;

      $FORM{$name} = $value;
   }

}

###################################################
# Mettre les champs dans des variables - Subroutine

sub get_variables {

   if ($FORM{'pageindex'}) {
      $pageindex = "$FORM{'pageindex'}";
   }

   if ($FORM{'ordreindex2'}) {
      $ordreindex2 = "$FORM{'ordreindex2'}";
   }

   if ($FORM{'retour'}) {
      $retour = "$FORM{'retour'}";
   }

   if ($FORM{'retourold'}) {
      $retourold = "$FORM{'retourold'}";
   }

   if ($FORM{'codepage'}) {
      $codepage = "$FORM{'codepage'}";
   }

   if ($FORM{'page'}) {
      $page = "$FORM{'page'}";
   }
   else {
      $page = "$query";
   }

   if ($FORM{'action'}) {
      $action = "$FORM{'action'}";
   }

   if ($FORM{'verif'}) {
      $verif = "$FORM{'verif'}";
   }
   else {
      $verif = "0"
   }

   if ($FORM{'util'}) {
      $util = "$FORM{'util'}";
	   if ($FORM{'pass'}) {
			$pass = "$FORM{'pass'}";
			&verify;
		}
	   else {
		  $verif = ( $verif + 1 );
    	  &page_verify;
		}
   }
   else {
   	  &page_verify;
   }
}      


######## affichage page mot de passe ########

sub page_verify {

	&page_tete;

	if ($verif == 2) {
		print "$fontgrande\n";
		print "Votre mot de passe n'est pas valide,<br>\n";
		print "merci de contacter \n";
		print "<a href=\"mailto:$admin\">l'administrateur</a> du site $dir.<br>\n";
		print "$finfontgrande\n";
	}
	else {
		print "<form method=POST action=\"resoobaoadmin.pl\">\n";
		print "<CENTER><TABLE BORDER=0>\n";
		print "<TR><TD>$font Utilisateur: $finfont</TD><TD> <INPUT TYPE=TEXT NAME=\"util\" SIZE=50></TD></TR>\n";
		print "<TR><TD>$font Mot de passe: $finfont</TD><TD> <INPUT TYPE=password NAME=\"pass\" SIZE=50></TD></TR>\n";
		print "<input type=hidden name=\"page\" value=\"$page\">\n";
		print "<input type=hidden name=\"verif\" value=\"$verif\">\n";
		print "<TR><TD COLSPAN=2 ALIGN=CENTER><INPUT TYPE=SUBMIT VALUE=\" Valider \"> <INPUT TYPE=RESET VALUE=\" Annuler \"></TD></TR>\n";
		print "</TABLE></CENTER>\n";
		print "</form>\n";

		if ($verif == 1) {
			print "<br>&nbsp;<br>\n";
			print "$fontstitre\n";
			print "deuxième essai\n";
			print "$finfontstitre\n";
		}
		else {
			print "<br>&nbsp;<br>\n";
			print "$fontpetite\n";
			print "premier essai\n";
			print "$finfontpetite\n";
		}

		print "<hr>";
		print "<A HREF=\"resooadmin.pl\"><B>Accès au mode Super-Administrateur... cliquez ici!</B></A>\n";
		print "<hr>\n";
		if ($bbs > 1) {
			print "<A HREF=\"$bbsadminlink\"><B>Administration Forum... cliquez ici!</B></A>\n";
			print "<hr>\n";
		}
	}
	&page_pied;
}


######## verification mot de passe ########

sub verify {
   open(MAIN,"$private/$util.txt") || &erreurpass;
   @main = <MAIN>;
      foreach $main_line (@main) {
	 $passcrypt = &resoocrypt($pass);
         if ($main_line =~ /^$passcrypt$/) {
            if ($action > 0) {
            	&action;
            }
            else {
			$verif = "9"; #condition du titre page_admin
			$action = "0";
         		&page_admin;
         	}
         }
         else {
			&erreurpass;
         }
      }
   close(MAIN);
}

sub erreurpass {
	$verif = ( $verif + 1 );
	&page_verify;
}


######## administration du site ########

sub page_admin {

	&page_tete;

		print "<CENTER><TABLE WIDTH=100% BORDER=0>\n";

		print "<TR><TD colspan=\"3\">$fontstitre Accès à une page index \"invisible\": $finfontstitre</TD></TR>\n";
		print "<TR><TD>$font Titre: $finfont</TD><TD>\n";
	        $comptefile=1;
		foreach $key (sort keys %indexfiles) {
		    if ($key =~ /^_I_/) {
			$fakename=$key;
			$fakename=~ s/^_I_//;
			print "<b><a href=\"resooindex.pl?$indexfiles{$key}\">$fakename</a></b><br>";
			$comptefile++;
		    }
		}
	        if ($comptefile == 1){
		    print "Aucune page index \"invisible\"";
		}
		print "</TD>\n";
		print "<TD></TD>";
		print "</TR>\n";

		print "<TR><TD colspan=\"3\"><hr></TD></TR>\n";

		print "<form method=POST action=\"resoobaoadmin.pl\">\n";
		print "<TR><TD colspan=\"3\">$fontstitre Suppression multiple d'article: $finfontstitre</TD></TR>\n";
		print "<TR><TD>$font Page: $finfont</TD><TD>\n";
		print "<SELECT NAME=\"pageindex\">";
		print "<OPTION VALUE=\"\">- Sélectionner une page index -";
		foreach $key (sort keys %indexfiles) {
		    print "<OPTION VALUE=\"$indexfiles{$key}\">$key";
		}
		print "</SELECT>\n";
		print "</TD>\n";
		&hidden;
		print "<input type=hidden name=\"verif\" value=\"9\">\n";
		print "<input type=hidden name=\"action\" value=\"1\">\n";
		print "<TD ALIGN=CENTER><INPUT TYPE=SUBMIT VALUE=\"   voir liste   \"></TD></TR>\n";
		print "</form>\n";

		print "<TR><TD colspan=\"3\"><hr></TD></TR>\n";

		print "<form method=POST action=\"resoobaoadmin.pl\">\n";
		print "<TR><TD colspan=\"3\">$fontstitre Archivage multiple d'article: $finfontstitre</TD></TR>\n";
		print "<TR><TD>$font Page: $finfont</TD><TD>\n";
		print "<SELECT NAME=\"pageindex\">";
		print "<OPTION VALUE=\"\">- Sélectionner une page index -";
		foreach $key (sort keys %indexfiles) {
		    print "<OPTION VALUE=\"$indexfiles{$key}\">$key";
		}
		print "</SELECT>\n";
		print "</TD>\n";
		&hidden;
		print "<input type=hidden name=\"verif\" value=\"9\">\n";
		print "<input type=hidden name=\"action\" value=\"2\">\n";
		print "<TD ALIGN=CENTER><INPUT TYPE=SUBMIT VALUE=\"   voir liste   \"></TD></TR>\n";
		print "</form>\n";

		print "<TR><TD colspan=\"3\"><hr></TD></TR>\n";

		print "<form method=POST action=\"resoobaoadmin.pl\">\n";
		print "<TR><TD colspan=\"3\">$fontstitre Réorganisation page index: $finfontstitre</TD></TR>\n";
		print "<TR><TD>$font Page: $finfont</TD><TD>\n";
		print "<SELECT NAME=\"pageindex\">";
		print "<OPTION VALUE=\"\">- Sélectionner une page index -";
		foreach $key (sort keys %indexfiles) {
		    print "<OPTION VALUE=\"$indexfiles{$key}\">$key";
		}
		print "</SELECT>\n";
		print "</TD>\n";
		&hidden;
		print "<input type=hidden name=\"verif\" value=\"9\">\n";
		print "<input type=hidden name=\"action\" value=\"3\">\n";
		print "<TD ALIGN=CENTER><INPUT TYPE=SUBMIT VALUE=\"   voir liste   \"></TD></TR>\n";
		print "</form>\n";

		print "<TR><TD colspan=\"3\"><hr></TD></TR>\n";

		print "<form method=POST action=\"resoouploadadmin.pl\">\n";
		print "<TR><TD colspan=\"3\">$fontstitre Utilitaire téléchargement: $finfontstitre</TD></TR>\n";
		print "<TR><TD colspan=\"2\">$font Téléchargement fichiers $finfont</TD>\n";
		&hidden;
		print "<TD ALIGN=CENTER><INPUT TYPE=SUBMIT VALUE=\" téléchargement \"></TD></TR>\n";
		print "</form>\n";

		print "<TR><TD colspan=\"3\"><hr></TD></TR>\n";

		print "<form method=POST action=\"resoobaoadmin.pl\">\n";
		print "<TR><TD colspan=\"3\">$fontstitre Indexation moteur de recherche: $finfontstitre</TD></TR>\n";
		print "<TR><TD colspan=\"2\">$font Option non disponible... $finfont</TD>\n";
		&hidden;
		print "<input type=hidden name=\"verif\" value=\"9\">\n";
		print "<input type=hidden name=\"action\" value=\"5\">\n";
		print "<TD ALIGN=CENTER><INPUT TYPE=SUBMIT VALUE=\"   en travaux   \"></TD></TR>\n";
		print "</form>\n";

		print "<TR><TD colspan=\"3\"><hr></TD></TR>\n";

		print "<form method=POST action=\"resoobaoadmin.pl\">\n";
		print "<TR><TD colspan=\"3\">$fontstitre Statistiques du site: $finfontstitre</TD></TR>\n";
		print "<TR><TD colspan=\"2\">$font Compteurs articles et index $finfont</TD>\n";
		&hidden;
		print "<input type=hidden name=\"verif\" value=\"9\">\n";
		print "<input type=hidden name=\"action\" value=\"10\">\n";
		print "<TD ALIGN=CENTER><INPUT TYPE=SUBMIT VALUE=\"   statistiques   \"></TD></TR>\n";
		print "</form>\n";

		print "</TABLE></CENTER>\n";

		print "<CENTER><TABLE BORDER=0>\n";
		print "<TR><TD><hr width=\"600\"></TD></TR>\n";
		print "<TR><TD>$fonttitre Autre(s) choix:$finfonttitre</TD></TR>\n";
		print "</TABLE></CENTER>\n";

		print "<CENTER><TABLE BORDER=0>\n";
		print "<form method=POST action=\"resoopageadmin.pl\">\n";
		&hidden;
		print "<input type=hidden name=\"verif\" value=\"9\">\n";
		print "<input type=hidden name=\"retour\" value=\"$defautretour\">\n";
		print "<input type=hidden name=\"page\" value=\"\">\n";
		print "<TR><TD><hr width=\"600\"></TD></TR>\n";
		print "<TR><TD ALIGN=CENTER><INPUT TYPE=SUBMIT VALUE=\"   créer un nouvel article   \"></TD></TR>\n";
		print "</form>\n";
		print "</TABLE></CENTER>\n";

		print "<CENTER><TABLE BORDER=0>\n";
		print "<form method=POST action=\"resoopagelistadmin.pl\">\n";
		&hidden;
		print "<input type=hidden name=\"verif\" value=\"9\">\n";
		print "<input type=hidden name=\"retour\" value=\"$defautretour\">\n";
		print "<input type=hidden name=\"page\" value=\"\">\n";
		print "<TR><TD><hr width=\"600\"></TD></TR>\n";
		print "<TR><TD ALIGN=CENTER><INPUT TYPE=SUBMIT VALUE=\"   créer un nouvel article/liste   \"></TD></TR>\n";
		print "</form>\n";
		print "</TABLE></CENTER>\n";

		print "<CENTER><TABLE BORDER=0>\n";
		print "<form method=POST action=\"resoolinkadmin.pl\">\n";
		&hidden;
		print "<input type=hidden name=\"verif\" value=\"9\">\n";
		print "<input type=hidden name=\"retour\" value=\"$defautretour\">\n";
		print "<input type=hidden name=\"page\" value=\"\">\n";
		print "<TR><TD><hr width=\"600\"></TD></TR>\n";
		print "<TR><TD ALIGN=CENTER><INPUT TYPE=SUBMIT VALUE=\"   créer un nouvel article/lien   \"></TD></TR>\n";
		print "</form>\n";
		print "</TABLE></CENTER>\n";

		print "<CENTER><TABLE BORDER=0>\n";
		print "<TR><TD><hr width=\"600\"></TD></TR>\n";
		print "<TR><TD ALIGN=CENTER><A HREF=\"resooadmin.pl\"><B>Accès au mode Super-Administrateur... cliquez ici!</B></A></TD></TR>\n";
		print "<TR><TD><hr width=\"600\"></TD></TR>\n";
		if ($bbs > 1) {
			print "<TR><TD ALIGN=CENTER><A HREF=\"$bbsadminlink\"><B>Administration Forum... cliquez ici!</B></A></TD></TR>\n";
			print "<TR><TD><hr width=\"600\"></TD></TR>\n";
		}
		print "</TABLE></CENTER>\n";

		print "$fontpetite<i><br>&nbsp;<br>\n";
		print "en cas de difficulté, merci de contacter \n";
		print "<a href=\"mailto:$admin\">l'administrateur</a> du site $title.<br>\n";
		print "</i>$finfontpetite\n";

	&page_pied;
}


######## entete et pied de page ########

sub page_tete {

	print "Content-type: text/html\; charset=ISO-8859-1\n\n";

	&head;

	print "<table border=\"0\" width=\"600\">\n";
	print "<tr>\n";
	print "<td width=\"600\" colspan=\"3\">\n";
	print "$font\n";
	print "<div align=\"right\"><A HREF=\"$retour_su\"><B>Retour...</B></A></div>\n";
	print "<br>\n";
	print "$fonttitre\n";
	if ( $verif == 9 ) {
		if ( $action == "4" ) {
			print "Oups ! Erreur...\n";
		}
		else {
			print "Page B.A.O. Administrateur\n";
		}
	}
	else {
		print "Saisie du mot de passe $fontstitre(administrateur)$finfontstitre\n";
	}
	print "$finfonttitre<br><hr>\n";
	print "Si vous avez un problème avec cette page, merci d'en informer ";
	print "<a href=\"mailto:$admin\">l'administrateur</a> de ce site<br>\n";
	print "$finfont\n";
	print "</td>\n";
	print "</tr>\n";
	print "<tr>\n";
	print "<td colspan=\"3\" width=\"600\" bgcolor=\"$couleur_cell\" align=\"right\">\n";
	print "$font\n";
	print "\&nbsp\;<br>\&nbsp\;\n";
	print "$finfont\n";
	print "</td>\n";
	print "</tr>\n";

	print "<tr>\n";
	print "<td colspan=\"3\" width=\"600\" align=\"center\" valign=\"TOP\">\n";
	print "$font \&nbsp\;<br>\n";
}


sub page_pied {

	print "$finfont\n";
	print "</td>\n";
	print "</tr>\n";
	print "<tr>\n";
	print "<td width=\"600\" colspan=\"3\">\n";
	print "$font\n";
	print "<div align=\"right\"><A HREF=\"$retour_su\"><B>Retour...</B></A></div>\n";
	print "</td>\n";
	print "</tr>\n";

	print "</table>\n";

	&foot;
}


######## routines "action" ########
# action = 0 (voir page invisible)
# action = 1 (liste suppression multiple)
# action = 2 (liste archivage multiple)
# action = 3 (liste réorganisation)
# action = 4 (erreur)
# action = 5 (réindexation)
# action = 6 (réorganisation)
# action = 7 (archivage article)
# action = 8 (suppression article liste)
# action = 9 (suppression article)
# action = 10 (statistiques)

sub action {

	&check;  # verifie les champs obligatoire

#	if ($action == "1" ) {
	## affiche la liste suppression
#	}	

#	if ($action == "2" ) {
	## affiche la liste archivage
#	}	
	
#	if ($action == "3" ) {
	## affiche la page réorganisation
#	}	
	
#	if ($action == "5" ) {
## à voir
#	}

	if ($action == "6" ) {
	    open(LST,">$dir_txt/$pageindex.lst") || die $!;
	    print LST $ordreindex2;
	    close (LST);
	}

	if ($action == "7" ) {
	    &maj_index;
	    ## modifier le fichier idx
	    open(MAIN1,"$dir_txt/$page.idx") || die $!;
	    @main1 = <MAIN1>;
	    close(MAIN1);
	    @main1[1] =~ s/$retourold/$retour/;
	    open(MAIN2,">$dir_txt/$page.idx") || die $!;
	    print MAIN2 @main1;
	    close(MAIN2);
	    ## retourne à la liste
	    $action = 2;
	    $verif = 9;
	    $pageindex=$retourold;
	}

	if ($action == "8" ) {
	    &maj_index;
	    ## maj de liste index
	    open (CONF,"resoocnf.pl") || die $!;
	    @conf = <CONF>;
	    close (CONF);
	    open(CONF,">resoocnf.pl") || die $!;
	    foreach $line (@conf) {
		if ($line =~ /\%filesindex \= \(\".*/) {
			$_=$line;
			s/\"$page\"\,\"$filesindex{$page}\"\,//;
			print CONF "$_";
		}
		else {
			print CONF "$line";
		}
	    }
	    close(CONF);
	    ## suppression des fichiers
	    $delfic1 = "$dir_txt/$page.lst";
	    unlink ($delfic1);
	    $delfic2 = "$dir_txt/$page.idx";
	    unlink ($delfic2);
	    $delfic3 = "$dir_comp/$page.cmp";
	    unlink ($delfic3);
	    ## retourne à la liste
	    $pageindex=$retourold;
	    $action = 1;
	    $verif = 9;
	}
	
	if ($action == "9" ) {
	    &maj_index;
	    $delfic1 = "$dir_txt/$page.txt";
	    unlink ($delfic1);
	    $delfic2 = "$dir_txt/$page.idx";
	    unlink ($delfic2);
	    $delfic3 = "$dir_comp/$page.cmp";
	    unlink ($delfic3);
	    ## retourne à la liste
	    $pageindex=$retourold;
	    $action = 1;
	    $verif = 9;
	}
	
	&page_tete;

	print "$fontgrande\n";

	if ($action == "1") {
	    open(LST,"$dir_txt/$pageindex.lst") || die $!;
	    @lst = <LST>;
	    close (LST);
	    print "<CENTER><TABLE border=1 width=100%>\n";
	    print "<tr><td>$font N° $finfont</td><td>$font Titre page $finfont</td><td align=right>$font action $finfont</td></tr>\n";
	    foreach $line (@lst) {
		$line =~ s/\n//;
		open(TEXT,"$dir_txt/$line.idx") || die $!;
		@text = <TEXT>;
		close (TEXT);
		$txttitre = $text[0];
		$txtcodepage = $text[9];
		print "<tr><td>$font";
		print "<B>$line</B>";
		print "</td>\n<td>$font";
		if ($txtcodepage > 9){
		    print "(liste) <B>$txttitre</B>";
		}
		else {
		    print "<B>$txttitre</B>";
		}
		print "</td>\n<td align=right>";
		if ($txtcodepage > 9) {
		    if (-s "$dir_txt/$line.lst") {
			print "$fontgrande (liste non vide) $finfontgrande";
		    }
		    else {
			print "<form method=POST action=\"resoobaoadmin.pl\">\n";
			$page=$line;
			&hidden;
			print "<input type=hidden name=\"verif\" value=\"9\">\n";
			print "<input type=hidden name=\"retourold\" value=\"$pageindex\">\n";
			print "<input type=hidden name=\"action\" value=\"8\">\n";
			print "<INPUT TYPE=SUBMIT VALUE=\"   suppression  \">\n";
			print "</form>";
			print "</td></tr>\n";
		    }
		}
		else {
		    print "<form method=POST action=\"resoobaoadmin.pl\">\n";
		    $page=$line;
		    &hidden;
		    print "<input type=hidden name=\"retourold\" value=\"$pageindex\">\n";
		    print "<input type=hidden name=\"verif\" value=\"9\">\n";
		    print "<input type=hidden name=\"action\" value=\"9\">\n";
		    print "<INPUT TYPE=SUBMIT VALUE=\"   suppression  \">\n";
		    print "</form>";
		    print "</td></tr>\n";
		}
	    }
	    print "</TABLE></CENTER>\n";
	    print "<br><br>";
	}

	if ($action == "2") {
	    open(LST,"$dir_txt/$pageindex.lst") || die $!;
	    @lst = <LST>;
	    close (LST);
	    print "<CENTER><TABLE border=1 width=100%>\n";
	    print "<tr><td>$font N° $finfont</td><td>$font Titre page $finfont</td><td>$font Nouvelle page retour $fintfont<td align=right>$font action $finfont</td></tr>\n";
	    foreach $line (@lst) {
		$line =~ s/\n//;
		open(TEXT,"$dir_txt/$line.idx") || die $!;
		@text = <TEXT>;
		close (TEXT);
		$txttitre = $text[0];
		$txtcodepage = $text[9];
		print "<tr><td>$font";
		print "<B>$line</B>";
		print "</td>\n<td>$font";
		if ($txtcodepage > 9){
		    print "(liste) <B>$txttitre</B>";
		}
		else {
		    print "<B>$txttitre</B>";
		}
		print "</td>\n<td align=right>";
		print "<form method=POST action=\"resoobaoadmin.pl\">\n";
		if ($retourfiles > 1) {
		    print "<SELECT NAME=\"retour\">";
		    foreach $key (sort keys %indexfiles) {
			if ($indexfiles{$key} ne $line) { ## ne peut etre son propre retour
			    if ( $pageindex ne $indexfiles{$key} ) {
				print "<OPTION VALUE=\"$indexfiles{$key}\">$key";
			    }
			    else {
				print "<OPTION selected VALUE=\"erreur\">nouvelle page retour...";
			    }
			}
		    }
		    print "</SELECT>\n";
		}
		else {
		    foreach $key (sort keys %indexfiles) {
			print "$key\n";
			print "<input type=hidden name=\"retour\" value=\"erreur\">\n";
		    }
		}
		print "</td>\n<td align=right>";
		$page=$line;
		&hidden;
		print "<input type=hidden name=\"codepage\" value=\"$txtcodepage\">\n";
		print "<input type=hidden name=\"verif\" value=\"9\">\n";
		print "<input type=hidden name=\"retourold\" value=\"$pageindex\">\n";
		print "<input type=hidden name=\"action\" value=\"7\">\n";
		print "<INPUT TYPE=SUBMIT VALUE=\"   modifier  \">\n";
		print "</form>";
		print "</td></tr>\n";
	    }
	    print "</TABLE></CENTER>\n";
	    print "<br><br>";
	}

	if ($action == "3") {
	    open(LST,"$dir_txt/$pageindex.lst") || die $!;
	    @lst = <LST>;
	    close (LST);
	    print "<CENTER><TABLE border=0 width=100%>\n";
	    print "<tr><td>$font Ordre actuel (N° - Titre page) pour info $finfont</td><td>$font Ordre modifié $finfont</td></tr>\n";
	    print "<tr><td>";
	    print "<TEXTAREA NAME=\"ordreindex\" ROWS=20 COLS=50>";
	    $testcount=0;
	    foreach $line (@lst) {
		$line =~ s/\n//;
		$testcount=$testcount+$line;
		open(TEXT,"$dir_txt/$line.idx") || die $!;
		@text = <TEXT>;
		close (TEXT);
		$txttitre = $text[0];
		print "$line - $txttitre";
	    }
	    print "</TEXTAREA>";
	    print "<br>$fontgrande Clé = $testcount $finfontgrande";
	    print "</td>\n<td>";
	    print "<form method=POST action=\"resoobaoadmin.pl\">\n";
	    &hidden;
	    print "<input type=hidden name=\"action\" value=\"6\">\n";
	    print "<input type=hidden name=\"pageindex\" value=\"$pageindex\">\n";
	    print "<TEXTAREA NAME=\"ordreindex2\" ROWS=20 COLS=10>";
	    foreach $line (@lst) {
		print "$line\n";
	    }
	    print "</TEXTAREA>";
	    print "<br>$fontgrande ... $finfontgrande";
	    print "</td></tr>\n";
	    print "</TABLE></CENTER>\n";
	    print "<br>";
	    print "<center>";
	    print "<INPUT TYPE=SUBMIT VALUE=\"   modifier l'ordre de la page   \">\n";
	    print "</center>";
	    print "</form>";
	    print "<br><br>";
	}
	if ($action == "5") {
		print "Mise à jour de la base de donnée du moteur de recherche effectuée !<br><br>\n";
	}
	if ($action == "6") {
	    print " mise à jour effectuée !<br><br>\n";
	}
#	if ($action == "7") {
## le retour se fait en action 2 (affichage liste)
#	}
#	if ($action == "8") {
## le retour se fait en action 2 (affichage liste)
#	}
#	if ($action == "9") {
## le retour se fait en action 2 (affichage liste)
#	}
	if ($action == "10" ) {
		print "Statistiques site $title au $date :<br><br>\n";
		print "<table width=600 border=1><tr><td bgcolor=$couleur_cell><font color=$coul_cel><b>Titre</b></font></td><td bgcolor=$couleur_cell align=center><font color=$couleur_fond><b>visites</b></font></td></tr>\n";
		if ($img > "1") {
			print "<tr><td><li>$imgtitre</td>";
				open(N01,"$dir_comp/img.cmp");
				$comp01 = <N01>;
				close(N01);
				print "<td align=right>$comp01</td></tr>\n";
		}
		if ($link > "1") {
			print "<tr><td><li>$linktitre</td>";
				open(N02,"$dir_comp/link.cmp");
				$comp02 = <N02>;
				close(N02);
				print "<td align=right>$comp02</td></tr>\n";
		}
		if ($bbs > "1") {
			print "<tr><td><li>Forum</td>";
				open(N03,"$dir_comp/bbs.cmp");
				$comp03 = <N03>;
				close(N03);
				print "<td align=right>$comp03</td></tr>\n";
		}
		if ($rep > "1") {
			print "<tr><td><li>Page téléchargement</td>";
				open(N04,"$dir_comp/doc.cmp");
				$comp04 = <N04>;
				close(N04);
				print "<td align=right>$comp04</td></tr>\n";
		}
		foreach $key (sort keys %filesindex) {
		    if (!($filesindex{$key} =~ /^_\w_/)) {
			print "<tr><td bgcolor=$couleur_col><font color=$coul_col><b>$filesindex{$key}</b></font></td>";
			my $pagestat=$key;
			open(N,"$dir_comp/$pagestat.cmp");
			$comp0 = <N>;
			close(N);
			print "<td bgcolor=$couleur_col align=right><font color=$coul_col>$comp0</font></td></tr>\n";
			$asterix = "";
			&print_stat($pagestat);
		    }
		}
		print "</table><br><br>\n";
	}
	if ($action == "4") {
		print "Erreur: champs $error.<br><br>\n";
		print "$font\n";
		print "utiliser le bouton retour de votre navigateur pour revenir au formulaire prédédent.<br><br>\n";
		print "$finfont\n";
	}

	print "<form method=POST action=\"resoobaoadmin.pl\">\n";
	print "<CENTER><TABLE BORDER=0>\n";
	&hidden;
	print "<input type=hidden name=\"action\" value=\"\">\n";
	print "<input type=hidden name=\"page\" value=\"\">\n";
	print "<TR><TD COLSPAN=2 ALIGN=CENTER><INPUT TYPE=SUBMIT VALUE=\"   retour page B.A.O. Admin ?  \"></TD></TR>\n";
	print "</TABLE></CENTER>\n";
	print "</form>\n";

	print "<form method=POST action=\"resoopageadmin.pl\">\n";
	print "<CENTER><TABLE BORDER=0>\n";
	if ($page) {
	print "<input type=hidden name=\"retour\" value=\"$page\">\n";
	}
	print "<input type=hidden name=\"util\" value=\"$util\">\n";
	print "<input type=hidden name=\"pass\" value=\"$pass\">\n";
	print "<input type=hidden name=\"action\" value=\"\">\n";
	print "<input type=hidden name=\"page\" value=\"\">\n";
	print "<TR><TD COLSPAN=2 ALIGN=CENTER><INPUT TYPE=SUBMIT VALUE=\"   créer nouvel article ?  \"></TD></TR>\n";
	print "</TABLE></CENTER>\n";
	print "</form><br><br>\n";

	print "$finfontgrande\n";

	print "$font\n";
	print "...<br>\n";
	print "$finfont\n";

	&page_pied;
}

sub print_stat {
    my $pagestat = $_[0];
    if (-e "$dir_txt/$pagestat.lst"){
	open (F, "$dir_txt/$pagestat.lst");
	my @f=<F>;
        close (F);
	foreach my $line (@f) {
	    my $pagestat2=$line;
	    $pagestat2 =~ s/\n//;
	    if (-e "$dir_txt/$pagestat2.lst"){
		open(N1,"$dir_txt/$pagestat2.idx");
		@ttt = <N1>;
		$titreart = $ttt[0];
		close(N1);
		$asterix = $asterix . "*";
		print "<tr><td><li><b><i>$titreart</i></b>  ($asterix)</td>";
		open(N2,"$dir_comp/$pagestat2.cmp");
		$comp1 = <N2>;
		close(N2);
		print "<td align=right>$comp1</td></tr>\n";
    	    }
    	    &print_stat($pagestat2);
	}
    $asterix =~ s/\*//;
    }
    else{
	open(N1,"$dir_txt/$pagestat.idx");
	@ttt = <N1>;
	$titreart = $ttt[0];
	close(N1);
	if ($asterix) {
	    print "<tr><td><li> ($asterix) $titreart</td>";
	}
	else {
	    print "<tr><td><li>$titreart</td>";
	}
	open(N2,"$dir_comp/$pagestat.cmp");
	$comp1 = <N2>;
	close(N2);
	print "<td align=right>$comp1</td></tr>\n";
    }
}


sub check {
	if (($action == 1) or ($action == 2) or ($action == 3)) {
		if (!$pageindex) {
		$error = "\"page\": Vous devez choisir une page index";
		$action = "4";
		}
	}
	if ($action == "5") {
	    $error = "\"...\" (Cette fonction n'est pas encore disponible)";
	    $action = "4";
	}
	if ($action == "6") {
	    open(LST,"$dir_txt/$pageindex.lst") || die $!;
	    @lst = <LST>;
	    close (LST);
	    $testcount=0;
	    $linecount=0;
	    foreach $line (@lst) {
		$line =~ s/\n//;
		$testcount=$testcount+$line;
		$linecount++;
	    }
	    $ordreindex2=~ s/\r//g;
	    $ordreindex2=~ s/\n\n//g;
	    @list = split(/\n/, $ordreindex2);
 	    foreach $line (@list) {
		$line =~ s/\n//;
		$testcount=$testcount-$line;
		$linecount--;
	    }
	    if (!($testcount == 0)) {
		$error = "\"Ordre modifié\" (mauvaise clé: fichier manquant?)";
		$action = "4";
	    }
	    elsif (!($linecount == 0)) {
		$error = "\"Ordre modifié\" (nombre de ligne différent)";
		$action = "4";
	    }
	}
	if ($action == "7") {
	    if ($retour eq "erreur") {
		$error = "\"Nouvelle page retour\" (non spécifiée)";
		$action = "4";
	    }
	    if ($codepage > 9) {
		open (F,"$dir_txt/$page.lst");
		@f = <F>;
		close(F);
		foreach $line (@f) {
		    if ($line == $retour) {
			$error = "\"retour\" $fontpetite<i><br>(vous ne pouvez pas donner pour cet article une page de retour qui elle-même a cet article comme page de retour)</i>$finfontpetite";
			$action = "4";
		    }
		}
	    }
	}
	if ($action == "8") {
	    open (F,"$dir_txt/$page.lst");
	    @f = <F>;
	    foreach $line (@f) {
		if ($line =~ /^\w/) {
		    $error = "\"page article\" $fontpetite<i><br>(pour pouvoir supprimer une page index, il faut avoir précédemment supprimé ou transféré vers une autre page index tous les articles qui lui sont rattachés)</i>$finfontpetite";
		    $action = "4";
		}
		close(F);
	    }
	}
	if ($action == "9") {
	### pas de verification
	}
	if ($action == "10") {
	### pas de verification
	}
}

sub maj_index {
    if ($action != "4") { # si pas d'erreur
	if (($action != 8) and ($action != 9)) { # si ce n'est pas une suppression
	    open(MAIN6,"$dir_txt/$retour.lst") || die $!;
	    @art = <MAIN6>;
	    close (MAIN6);
	    open(MAIN6,">$dir_txt/$retour.lst") || die $!;
	    # cree la nouvelle ligne
	    print MAIN6 "$page\n";
	    # recopie le reste du fichier
	    foreach $line (@art) {
		print MAIN6 "$line";
	    }
	}
	close(MAIN6);
	open(MAIN7,"$dir_txt/$retourold.lst") || die $!;
	@artold = <MAIN7>;
	close (MAIN7);
	open(MAIN7,">$dir_txt/$retourold.lst") || die $!;
	foreach $line (@artold) {
	    # cherche et supprime l'ancienne ligne
	    if ($line =~ /^$page$/) {
		$line = "";
	    }
	    # recopie le reste du fichier
	    print MAIN7 "$line";
	}
	close(MAIN7);
    }
}