#!/usr/bin/perl

#
#  REF: resoobbsconfadmin.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";
require "resoobbsconf.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;
     $value =~ s/\"/\\\"/g;

      $FORM{$name} = $value;
   }

}

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

sub get_variables {

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

   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 "$fontstitre\n";
		print "Vous êtes en mode \"Super Administrateur\":<br>\n";
		print "$finfontstitre<br>\n";
		print "<form method=POST action=\"resooadmin.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";
		}

	}
	&page_pied;
}


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

sub verify {
   open(MAIN,"$private/$util.su") || &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 BORDER=0 width=600>\n";

######## configuration forum ######################################################
	print "<tr><TD width=200></TD><TD width=200></TD><TD width=200></TD></tr>";

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

	print "<form method=POST action=\"resoobbsconfadmin.pl\">\n";
	print "<TR><TD colspan=\"3\">$fontstitre Création d'un modérateur: $finfontstitre</TD></TR>\n";
	print "<TR><TD>$font Nom: $finfont</TD><TD> <INPUT TYPE=TEXT NAME=\"utilnew\" SIZE=40 VALUE=\"\"></TD>";
	print "<TD> </TD>\n";
	print "<TR><TD>$font Mot de passe: $finfont</TD><TD> <INPUT TYPE=password NAME=\"passnew\" SIZE=40 VALUE=\"\"></TD>\n";
	print "<TD> </TD>\n";
	print "<TR><TD>$font   2° saisie: $finfont</TD><TD> <INPUT TYPE=password NAME=\"passnew2\" SIZE=40 VALUE=\"\"></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=\"   création   \"></TD></TR>\n";
	print "</form>\n";

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

	print "<form method=POST action=\"resoobbsconfadmin.pl\">\n";
	print "<TR><TD colspan=\"3\">$fontstitre Suppression d'un modérateur: $finfontstitre</TD></TR>\n";
	print "<TR><TD>$font Nom: $finfont</TD><TD>";
	print " <INPUT TYPE=TEXT NAME=\"utilnew\" SIZE=40 VALUE=\"\"></TD>\n";
	&hidden;
	print "<input type=hidden name=\"verif\" value=\"9\">\n";
	print "<input type=hidden name=\"action\" value=\"6\">\n";
	print "<TD ALIGN=CENTER><INPUT TYPE=SUBMIT VALUE=\"   suppression   \"></TD></TR>\n";
	print "</form>\n";

######## modération ################################################################
	print "<form method=POST action=\"resoobbsconfadmin.pl\">\n";
	print "<tr><TD colspan=\"3\"><hr></TD></tr>";
	print "<TR><TD colspan=\"3\">$fontstitre Options modération: $finfontstitre</TD></TR>\n";

	print "<tr><TD colspan=\"3\"><hr></TD></tr>";
	print "<TR><TD>$font Mode modération: $finfont</TD><TD colspan=\"2\">$font <INPUT TYPE=RADIO NAME=\"moderation2\" VALUE=\"1\" ";
	if ($moderation == "1") { print "checked"; }
	print "> oui    \n";
	print "    <INPUT TYPE=RADIO NAME=\"moderation2\" VALUE=\"0\" ";
	if (!$moderation) { print "checked"; }
	print "> non  $finfont</TD></TR>\n";

	print "<tr><TD colspan=\"3\"><hr></TD></tr>";
	print "<TR><TD>$font Autoriser mot de passe utilisateur: $finfont</TD><TD>$font <INPUT TYPE=RADIO NAME=\"use_upass2\" VALUE=\"2\" ";
	if ($use_upass == "2") { print "checked"; }
	print "> oui    \n";
	print "    <INPUT TYPE=RADIO NAME=\"use_upass2\" VALUE=\"1\" ";
	if ($use_upass == "1") { print "checked"; }
	print "> non  $finfont</TD>\n";
	print "<TD>$font (option en service si modération) $finfont</TD></TR>";

	print "<tr><TD colspan=\"3\"><hr></TD></tr>";
	print "<TR><TD>$font Email modérateur: $finfont</TD><TD> <INPUT TYPE=TEXT NAME=\"email_mod2\" SIZE=30 VALUE=\"$email_mod\"></TD><TD>$font (par défaut : $email) $finfont</TD></tr>\n";

	print "<tr><TD colspan=\"3\"><hr></TD></tr>";
	print "<TR><TD>$font Nom du modérateur: $finfont</TD><TD COLSPAN=2> <INPUT TYPE=TEXT NAME=\"bbsname_mod2\" SIZE=50 VALUE=\"$bbsname_mod\"></TD></tr>\n";

	print "<tr><TD colspan=\"3\"><hr></TD></tr>";
	print "<TR><TD>$font Titre \"effacé\": $finfont</TD><TD COLSPAN=2> <INPUT TYPE=TEXT NAME=\"bbssubject_eff2\" SIZE=50 VALUE=\"$bbssubject_eff\"></TD></tr>\n";

	print "<tr><TD colspan=\"3\"><hr></TD></tr>";
	print "<TR><TD>$font Message \"effacé\": $finfont</TD><TD COLSPAN=2> <TEXTAREA NAME=\"bbsbodymess_eff2\" ROWS=3 COLS=60 WRAP=VIRTUAL>";
	$bbsbodymess_eff =~ s/<br>/\n/g;
	print "$bbsbodymess_eff";
	print "</textarea>";
	print "</TD></tr>\n";
	
######## configuration du script ##################################################
	print "<tr><TD colspan=\"3\"><hr></TD></tr>";
	print "<tr><TD width=200></TD><TD width=200></TD><TD width=200></TD></tr>";
	print "<TR><TD colspan=\"3\">$fontstitre Configuration du script $finfontstitre</TD></TR>\n";
	print "<tr><TD colspan=\"3\"><hr></TD></tr>";

	print "<TR><TD>$font Lien \"Voir l'aide\": $finfont</TD><TD colspan=\"2\">$font <INPUT TYPE=RADIO NAME=\"show_faq2\" VALUE=\"1\" ";
	if ($show_faq == "1") { print "checked"; }
	print "> oui    \n";
	print "    <INPUT TYPE=RADIO NAME=\"show_faq2\" VALUE=\"0\" ";
	if (!$show_faq) { print "checked"; }
	print "> non  $finfont</TD></TR>\n";

	print "<tr><TD colspan=\"3\"><hr></TD></tr>";
	print "<TR><TD>$font Autoriser du code html: $finfont</TD><TD colspan=\"2\">$font <INPUT TYPE=RADIO NAME=\"allow_html2\" VALUE=\"1\" ";
	if ($allow_html == "1") { print "checked"; }
	print "> oui    \n";
	print "    <INPUT TYPE=RADIO NAME=\"allow_html2\" VALUE=\"0\" ";
	if (!$allow_html) { print "checked"; }
	print "> non  $finfont</TD></TR>\n";

	print "<INPUT TYPE=hidden NAME=\"allow_links2\" VALUE=\"0\">";
#	print "<tr><TD colspan=\"3\"><hr></TD></tr>";
#	print "<TR><TD>$font Inclure un champs \"lien\": $finfont</TD><TD colspan=\"2\">$font <INPUT TYPE=RADIO NAME=\"allow_links2\" VALUE=\"1\" ";
#	if ($allow_links == "1") { print "checked"; }
#	print "> oui    \n";
#	print "    <INPUT TYPE=RADIO NAME=\"allow_links2\" VALUE=\"0\" ";
#	if (!$allow_links) { print "checked"; }
#	print "> non  $finfont</TD></TR>\n";

	print "<INPUT TYPE=hidden NAME=\"allow_img2\" VALUE=\"0\">";
#	print "<tr><TD colspan=\"3\"><hr></TD></tr>";
#	print "<TR><TD>$font Inclure un champs \"image\": $finfont</TD><TD colspan=\"2\">$font <INPUT TYPE=RADIO NAME=\"allow_img2\" VALUE=\"1\" ";
#	if ($allow_img == "1") { print "checked"; }
#	print "> oui    \n";
#	print "    <INPUT TYPE=RADIO NAME=\"allow_img2\" VALUE=\"0\" ";
#	if (!$allow_img) { print "checked"; }
#	print "> non  $finfont</TD></TR>\n";

	print "<INPUT TYPE=hidden NAME=\"quote_text2\" VALUE=\"0\">";
#	print "<tr><TD colspan=\"3\"><hr></TD></tr>";
#	print "<TR><TD>$font Inclure un champs \"image\": $finfont</TD><TD colspan=\"2\">$font <INPUT TYPE=RADIO NAME=\"quote_text2\" VALUE=\"1\" ";
#	if ($quote_text == "1") { print "checked"; }
#	print "> oui    \n";
#	print "    <INPUT TYPE=RADIO NAME=\"quote_text2\" VALUE=\"0\" ";
#	if (!$quote_text) { print "checked"; }
#	print "> non  $finfont</TD></TR>\n";

	print "<tr><TD colspan=\"3\"><hr></TD></tr>";
	print "<TR><TD>$font Reprendre le \"titre\": $finfont</TD><TD colspan=\"2\">$font <INPUT TYPE=RADIO NAME=\"subject_line2\" VALUE=\"2\" ";
	if ($subject_line == "2") { print "checked"; }
	print "> oui (éditable)   \n";
	print "    <INPUT TYPE=RADIO NAME=\"subject_line2\" VALUE=\"1\" ";
	if ($subject_line == "1") { print "checked"; }
	print "> oui (non-éditable)   \n";
	print "    <INPUT TYPE=RADIO NAME=\"subject_line2\" VALUE=\"0\" ";
	if (!$subject_line) { print "checked"; }
	print "> non  $finfont</TD></TR>\n";

	print "<tr><TD colspan=\"3\"><hr></TD></tr>";
	print "<TR><TD>$font Indiquer l'heure: $finfont</TD><TD colspan=\"2\">$font <INPUT TYPE=RADIO NAME=\"use_time2\" VALUE=\"1\" ";
	if ($use_time == "1") { print "checked"; }
	print "> oui    \n";
	print "    <INPUT TYPE=RADIO NAME=\"use_time2\" VALUE=\"0\" ";
	if (!$use_time) { print "checked"; }
	print "> non  $finfont</TD></TR>\n";

######## configuration affichage ###################################################
	print "<tr><TD colspan=\"3\"><hr></TD></tr>";
	print "<TR><TD colspan=\"3\">$fontstitre Configuration de l'affichage $finfontstitre</TD></TR>\n";
	print "<tr><TD colspan=\"3\"><hr></TD></tr>";

	print "<TR><TD>$font Lister les messages:: $finfont</TD><TD colspan=\"2\">$font <INPUT TYPE=RADIO NAME=\"show_mesg2\" VALUE=\"1\" ";
	if ($show_mesg == "1") { print "checked"; }
	print "> par date    \n";
	print "    <INPUT TYPE=RADIO NAME=\"show_mesg2\" VALUE=\"0\" ";
	if (!$show_mesg) { print "checked"; }
	print "> par fil de discussion  $finfont</TD></TR>\n";

	print "<tr><TD colspan=\"3\"><hr></TD></tr>";
	print "<TR><TD colspan=\"2\">$font Nombre de sujets affichés par page (page index): $finfont</TD><TD> <INPUT TYPE=TEXT NAME=\"defautnumtopic2\" SIZE=4 VALUE=\"$defautnumtopic\"></TD></tr>\n";

	print "<tr><TD colspan=\"3\"><hr></TD></tr>";
	print "<TR><TD colspan=\"2\">$font Nombre de messages affichés par page (page index): $finfont</TD><TD> <INPUT TYPE=TEXT NAME=\"defautnummesg2\" SIZE=4 VALUE=\"$defautnummesg\"></TD></tr>\n";

	print "<tr><TD colspan=\"3\"><hr></TD></tr>";
	print "<TR><TD colspan=\"2\">$font Décalage maximum des réponses: $finfont</TD><TD> <INPUT TYPE=TEXT NAME=\"decroche2\" SIZE=4 VALUE=\"$decroche\"></TD></tr>\n";

	print "<tr><TD colspan=\"3\"><hr></TD></tr>";
	print "<TR><TD>$font Afficher haut de page standard: $finfont</TD><TD colspan=\"2\">$font <INPUT TYPE=RADIO NAME=\"use_head2\" VALUE=\"2\" ";
	if ($use_head == "2") { print "checked"; }
	print "> oui    \n";
	print "    <INPUT TYPE=RADIO NAME=\"use_head2\" VALUE=\"1\" ";
	if ($use_head == "1") { print "checked"; }
	print "> non  (affichage texte) $finfont</TD></TR>\n";

	print "<tr><TD colspan=\"3\"><hr></TD></tr>";
	print "<TR><TD>$font Afficher cadre message: $finfont</TD><TD colspan=\"2\">$font <INPUT TYPE=RADIO NAME=\"use_cadre2\" VALUE=\"1\" ";
	if ($use_cadre == "1") { print "checked"; }
	print "> oui    \n";
	print "    <INPUT TYPE=RADIO NAME=\"use_cadre2\" VALUE=\"0\" ";
	if (!$use_cadre) { print "checked"; }
	print "> non  (texte seul) $finfont</TD></TR>\n";

	print "<tr><TD colspan=\"3\"><hr></TD></tr>";
	print "<TR><TD>$font Police (message): $finfont</TD><TD> <INPUT TYPE=TEXT NAME=\"bbsfontface2\" SIZE=20 VALUE=\"$bbsfontface\"></TD><td>$font (par défaut: $police2) $finfont</td></tr>\n";

	print "<tr><TD colspan=\"3\"><hr></TD></tr>";
	print "<TR><TD>$font Couleur police (message): $finfont</TD><TD> <INPUT TYPE=TEXT NAME=\"bbsfontcolor2\" SIZE=20 VALUE=\"$bbsfontcolor\"></TD><td>$font (par défaut: $couleur) $finfont</td></tr>\n";

	print "<tr><TD colspan=\"3\"><hr></TD></tr>";
	print "<TR><TD>$font Taille police (message): $finfont</TD><TD>$font <INPUT TYPE=RADIO NAME=\"bbsfontsize2\" VALUE=\"1\" ";
	if ($bbsfontsize == "1") { print "checked"; }
	print "> 1   \n";
	print "<INPUT TYPE=RADIO NAME=\"bbsfontsize2\" VALUE=\"2\" ";
	if ($bbsfontsize == "2") { print "checked"; }
	print "> 2   \n";
	print "<INPUT TYPE=RADIO NAME=\"bbsfontsize2\" VALUE=\"3\" ";
	if ($bbsfontsize == "3") { print "checked"; }
	print "> 3   \n";
	print "<INPUT TYPE=RADIO NAME=\"bbsfontsize2\" VALUE=\"4\" ";
	if ($bbsfontsize == "4") { print "checked"; }
	print "> 4 $finfont</TD><td>$fontbbs Exemple, taille par defaut: $taille_standard $finfontbbs</td></tr>\n";

	print "<tr><TD colspan=\"3\"><hr></TD></tr>";
	print "<TR><TD>$font Couleur cadre (titre): $finfont</TD><TD> <INPUT TYPE=TEXT NAME=\"couleur_bbs12\" SIZE=20 VALUE=\"$couleur_bbs1\"></TD><td bgcolor=\"$couleur_bbs1\">$fontbbs Exemple $finfontbbs</td></tr>\n";

	print "<tr><TD colspan=\"3\"><hr></TD></tr>";
	print "<TR><TD>$font Couleur cadre (mess.): $finfont</TD><TD> <INPUT TYPE=TEXT NAME=\"couleur_bbs22\" SIZE=20 VALUE=\"$couleur_bbs2\"></TD><td bgcolor=\"$couleur_bbs2\">$fontbbs Exemple $finfontbbs</td></tr>\n";

####################################################################################

	&hidden;
	print "<input type=hidden name=\"verif\" value=\"9\">\n";
	print "<input type=hidden name=\"action\" value=\"9\">\n";

	print "<tr><TD colspan=\"3\"><hr><br></TD></tr>";
	print "<TD colspan=\"3\" ALIGN=CENTER><INPUT TYPE=SUBMIT VALUE=\"   valider les modifications   \"><INPUT TYPE=RESET VALUE=\"   annuler les modifications   \"></TD></TR>\n";
	print "</form>\n";



	print "<tr><TD colspan=\"3\"><br><hr><br><br></TD></tr>";
	print "<tr><TD colspan=\"3\">$fonttitre Autres modifications: $finfonttitre</TD></tr>";
	print "<tr><TD colspan=\"3\"><br><hr><br><br></TD></tr>";

######## page faq ################################################################
	print "<TR><TD colspan=\"3\">$fontstitre Page F.A.Q.: $finfontstitre $font (mode édition)$finfont</TD></TR>\n";

	print "<form method=POST action=\"resoobbsconfadmin.pl\">\n";
	&hidden;
	print "<input type=hidden name=\"verif\" value=\"9\">\n";
	print "<input type=hidden name=\"action\" value=\"8\">\n";

	print "<TR><TD COLSPAN=3><TEXTAREA NAME=\"pagehelp\" ROWS=20 COLS=80 WRAP=VIRTUAL>";
	open (PAGEFAQ, "$dir_bbs/$faqfile") || &badcheck3;
	@pagefaq = <PAGEFAQ>;
	close (PAGEFAQ);
	foreach $line (@pagefaq) {
	$line =~ s/\\\"/\"/g;
#	$line =~ s/\n//g;
#	$line =~ s/<br>/\n/g;
	print "$line";
	}
	print "</TEXTAREA></TD></tr>\n";

	print "<TD colspan=\"3\" ALIGN=CENTER><INPUT TYPE=SUBMIT VALUE=\"   valider le texte   \"><INPUT TYPE=RESET VALUE=\"   annuler modif.  \"></TD></TR>\n";
	print "</form>\n";

	print "<tr><TD colspan=\"3\"><br><hr><br><br></TD></tr>";

######## log modérateurs ################################################################
	print "<TR><TD colspan=\"3\">$fontstitre Modérateurs: $finfontstitre $font (affichage pour info seulement)$finfont</TD></TR>\n";

	print "<TR><TD COLSPAN=3 ALIGN=CENTER><TEXTAREA NAME=\"utilisateurs\" ROWS=10 COLS=50 WRAP=VIRTUAL>";
	open (PAGELOG, "private/util.log") || &badcheck5;
	@pagelog = <PAGELOG>;
	close (PAGELOG);
	print "Modérateurs :\n\n";
	foreach $line (@pagelog) {
	    if ($line =~ /^TXT/) {
	    unless ($line =~ /^TXTadminresoo$/) {
		$line =~ s/^TXT//;
		print "    - [admin] $line\n";
	    }
	    }
	    if ($line =~ /^BBS/) {
	    unless ($line =~ /^BBSadminresoo$/) {
		$line =~ s/^BBS//;
		print "    - $line\n";
	    }
	    }
	}
	print "</TEXTAREA></TD></tr>\n";

	print "<tr><TD colspan=\"3\"><br><hr><br><br></TD></tr>";

######## password utilisateur ################################################################
	print "<TR><TD colspan=\"3\">$fontstitre Mot de passe utilisateur: $finfontstitre $font (un mot de passe par ligne)$finfont</TD></TR>\n";

	print "<form method=POST action=\"resoobbsconfadmin.pl\">\n";
	&hidden;
	print "<input type=hidden name=\"verif\" value=\"9\">\n";
	print "<input type=hidden name=\"action\" value=\"7\">\n";

	print "<TR><TD COLSPAN=3 ALIGN=CENTER><TEXTAREA NAME=\"passutil\" ROWS=3 COLS=50 WRAP=VIRTUAL>";
	open (PWDUTIL, "private/forum.pass") || &badcheck6;
	@pwdutil = <PWDUTIL>;
	close (PWDUTIL);
	foreach $line (@pwdutil) {
	    print "$line";
	}
	print "</TEXTAREA></TD></tr>\n";

	print "<TD colspan=\"3\" ALIGN=CENTER><INPUT TYPE=SUBMIT VALUE=\"   valider la liste   \"><INPUT TYPE=RESET VALUE=\"   annuler modif.  \"></TD></TR>\n";
	print "</form>\n";

	print "<tr><TD colspan=\"3\"><br><hr><br><br></TD></tr>";

######## fond de formulaire ################################################################

	print "<form method=POST action=\"resooadmin.pl\">\n";
	&hidden;
	print "<input type=hidden name=\"action\" value=\"\">\n";
	print "<input type=hidden name=\"page\" value=\"\">\n";
	print "<TR><TD COLSPAN=3 ALIGN=CENTER><INPUT TYPE=SUBMIT VALUE=\"   retour page Super Admin ?  \"></TD></TR>\n";
	print "</TABLE></CENTER>\n";
	print "</form>\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 configuration ($forumtitre)\n";
		}
	}
	else {
		print "Saisie du mot de passe $fontstitre(super-admin)$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 = 1 ###(creation)
# action = 2 ###(modification)
# action = 3 ###(suppression)
# action = 4 (erreur)
# action = 5 (creation modérateur)
# action = 6 (suppression modérateur)
# action = 7 (creation liste password util)
# action = 8 (modif fichier aide)
# action = 9 (config)
# action = 10 ###(stat)

sub action {

	&check;

	&page_tete;

	print "$fontgrande\n";

	if ($action == "5" ) {
	## creer le fichier bbs
		open(MAIN7,">$private/$utilnew.bbs") || die $!;
		$passnew = &resoocrypt($passnew);
		print MAIN7 "$passnew\n";
		close(MAIN7);
		chmod 0600, "$private/$utilnew.bbs";
		&logutil("BBS$utilnew");
	}

	if ($action == "6" ) {
		$delfic1 = "$private/$utilnew.bbs";
		unlink ($delfic1);
		&delogutil("BBS$utilnew");
	}

	if ($action == "7" ) {
	## creer le fichier forum.pass
		open(MAIN7,">$private/forum.pass") || &badcheck7;
		$passutil =~ s/\r//g;
		print MAIN7 "$passutil";
		close(MAIN7);
		chmod 0600, "$private/forum.pass";
	}

	if ($action == "8" ) {
	## modifier le fichier faq
		open(MAIN7,">$dir_bbs/$faqfile") || &badcheck4;
#		$pagehelp =~ s/\n/<br>/g;
#		$pagehelp =~ s/\r/\n/g;
		$pagehelp =~ s/\\\"/\"/g;
		$renew = $pagehelp;
		&unword;
		$pagehelp = $renew;
		print MAIN7 "$pagehelp";
		close(MAIN7);
	}

	if ($action == "9" ) {

		%champs=('show_faq2', 'show_faq', 'allow_html2', 'allow_html', 'allow_links2', 'allow_links',
		 'allow_img2', 'allow_img', 'use_time2', 'use_time', 'quote_text2', 'quote_text', 'subject_line2', 'subject_line',
		 'show_mesg2', 'show_mesg', 'defautnumtopic2', 'defautnumtopic', 'defautnummesg2', 'defautnummesg',
		 'decroche2', 'decroche', 'moderation2', 'moderation', 'bbsfontface2', 'bbsfontface', 'bbsfontsize2', 'bbsfontsize',
		 'bbsfontcolor2', 'bbsfontcolor', 'couleur_bbs12', 'couleur_bbs1', 'couleur_bbs22', 'couleur_bbs2',
		 'email_mod2', 'email_mod', 'bbsname_mod2', 'bbsname_mod', 'bbssubject_eff2', 'bbssubject_eff',
		 'bbsbodymess_eff2', 'bbsbodymess_eff', 'use_head2', 'use_head', 'use_upass2', 'use_upass', 'use_cadre2', 'use_cadre');

		open (CNF, "resoobbscnf.pl") || &badcheck;
		@cnf = <CNF>;
		close (CNF);
		open (CNF, ">resoobbscnf.pl") || &badcheck2;
		foreach $line (@cnf) {
			print CNF "$line";
		        last if ($line =~ /\#EDIT/);
		}
		print CNF "\n";
		foreach $champs (sort keys %champs){
			print CNF "\$$champs{$champs} \= \"$$champs\"\;\n";
		}
		print CNF "\n";
		print CNF "1\;\n";
		close (CNF);
	}
	if ($action == "4") {
		print "Erreur: $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";
	}
	if ($action == "5") {
		print "Création modérateur \"$utilnew\" effectuée !<br><br>\n";
	}
	if ($action == "6") {
		print "Suppression modérateur \"$utilnew\" effectuée !<br><br>\n";
	}
	else {
		print "Mise à jour configuration ...OK \!<br><br>\n";
	}
	print "<form method=POST action=\"resooadmin.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 Super 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 check {
	if ($action == "5") {
		if (!$utilnew) {
		$error = "\"nom\" non servi";
		$action = "4";
		}
		if ((!$passnew) or (!$passnew2)) {
		$error = "\"mot de passe\" non servi";
		$action = "4";
		}
		if ($passnew ne $passnew2) {
		$error = "\"mot de passe\" : les deux saisies sont différentes...";
		$action = "4";
		}
		if (open (F, "$private/$utilnew.bbs")) {
		$error = "\"nom\" (Modérateur déjà existant)";
		close(F);
		$action = "4";
		}
	}
	if ($action == "6") {
		if (!$utilnew) {
		$error = "\"nom\" non servi";
		$action = "4";
		}
		if (!open (F, "$private/$utilnew.bbs")) {
		$error = "\"nom\" (Modérateur inconnu)";
		close(F);
		$action = "4";
		}
	}
	if ($action == "9") {
		$email_mod2 =~ s/\@/\\\@/g;
		$bbsbodymess_eff =~ s/\n/<br>/g;
		$signature2 =~ s/\"/\\\"/g;
		$signature2 =~ s/\(c\)/\&copy\;/g;
	}
}

sub badcheck {
	$error = "Fichier resoobbscnf.pl absent...";
	$action = "4";
}

sub badcheck2 {
	$error = "Impossible d'écrire dans le fichier resoobbscnf.pl...";
	$action = "4";
}

sub badcheck3 {
	$error = "Fichier faq absent...";
	$action = "4";
}

sub badcheck4 {
	$error = "Impossible d'écrire dans le fichier faq...";
	$action = "4";
}

sub badcheck5 {
	$error = "Fichier util.log absent...";
	$action = "4";
}

sub badcheck6 {
	$error = "Fichier pass (utilisteur) absent...";
	$action = "4";
}

sub badcheck7 {
	$error = "Impossible d'écrire dans le fichier pass...";
	$action = "4";
}