#!/usr/bin/perl

#
#  ResooSite v.0.9.3 - Resoo 2002-2003
#  resooconfadmin2.pl
#

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;
     $value =~ s/\"/\\\"/g;

      $FORM{$name} = $value;
   }

}

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

sub get_variables {

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

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

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

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

   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";
	print "<form method=POST action=\"resooconfadmin2.pl\">\n";

######## configuration des scripts ################################################
	print "<tr><TD width=200></TD><TD width=200></TD><TD width=200></TD></tr>";
	print "<TR><TD colspan=\"3\">$fontstitre Configuration des scripts $finfontstitre</TD></TR>\n";
	print "<tr><TD colspan=\"3\"><hr></TD></tr>";

######## URL ######################################################################
	print "<tr><TD width=200></TD><TD width=200></TD><TD width=200></TD></tr>";
	print "<TR><TD colspan=\"3\">$fontstitre URL: $finfontstitre</TD></TR>\n";

	print "<tr><TD colspan=\"3\"><hr></TD></tr>";
	print "<TR><TD>$font Répertoire du site: $finfont</TD><TD> <INPUT TYPE=TEXT NAME=\"dir2\" SIZE=25 VALUE=\"$dir\"></TD><td></td></tr>\n";
	
	print "<tr><TD colspan=\"3\"><hr></TD></tr>";
	print "<TR><TD>$font Nom du serveur: $finfont</TD><TD> <INPUT TYPE=TEXT NAME=\"server2\" SIZE=25 VALUE=\"$server\"></TD><td></td></tr>\n";
	
######## constantes ################################################################
	print "<tr><TD colspan=\"3\"><hr></TD></tr>";
	print "<TR><TD colspan=\"3\">$fontstitre Constantes: $finfontstitre</TD></TR>\n";

	$signature =~ s/\"/\\\"/g;
	$signature =~ s/\&copy\;/\(c\)/g;
	print "<tr><TD colspan=\"3\"><hr></TD></tr>";
	print "<TR><TD>$font Signature des pages: $finfont</TD><TD COLSPAN=2> <INPUT TYPE=TEXT NAME=\"signature2\" SIZE=65 VALUE=\"$signature\"></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></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";

######## page index ################################################################
	print "<tr><TD colspan=\"3\"><hr></TD></tr>";
	print "<TR><TD colspan=\"3\">$fontstitre Page index: $finfontstitre $font (affichage pour info seulement)$finfont</TD></TR>\n";

	$repaidebp =~ s/\"/\&quot\;/g;
	$repaidebp =~ s/<br>/\n/g;
	print "<TR><TD COLSPAN=3><TEXTAREA NAME=\"pageindex\" ROWS=20 COLS=80 WRAP=VIRTUAL>";
	open (PAGEINDEX, "../index.html") || &badcheck;
	@pageindex = <PAGEINDEX>;
	close (PAGEINDEX);
	foreach $line (@pageindex) {
	print "$line";
	}
	print "</TEXTAREA></TD></tr>\n";


######## log utilisateurs ################################################################
	print "<tr><TD colspan=\"3\"><hr></TD></tr>";
	print "<TR><TD colspan=\"3\">$fontstitre Utilisateurs: $finfontstitre $font (affichage pour info seulement)$finfont</TD></TR>\n";

	$repaidebp =~ s/\"/\&quot\;/g;
	$repaidebp =~ s/<br>/\n/g;
	print "<TR><TD COLSPAN=3 ALIGN=CENTER><TEXTAREA NAME=\"utilisateurs\" ROWS=15 COLS=50 WRAP=VIRTUAL>";
	open (PAGELOG, "private/util.log") || &badcheck;
	@pagelog = <PAGELOG>;
	close (PAGELOG);
	print "Super Administrateurs :\n\n";
	foreach $line (@pagelog) {
	    if ($line =~ /^SU/) {
	    unless ($line =~ /^SUadminresoo$/) {
		$line =~ s/^SU//;
		print "    - $line\n";
	    }
	    }
	}
	print "\n\n";
	print "Administrateurs :\n\n";
	foreach $line (@pagelog) {
	    if ($line =~ /^TXT/) {
	    unless ($line =~ /^TXTadminresoo$/) {
		$line =~ s/^TXT//;
		print "    - $line\n";
	    }
	    }
	}
	print "\n\n";
	print "Modérateurs :\n\n";
	foreach $line (@pagelog) {
	    if ($line =~ /^BBS/) {
	    unless ($line =~ /^BBSadminresoo$/) {
		$line =~ s/^BBS//;
		print "    - $line\n";
	    }
	    }
	}
	print "</TEXTAREA></TD></tr>\n";


######## 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\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=\"resooindex.pl?$defautretour\"><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 (2)\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=\"resooindex.pl?$defautretour\"><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 admin)
# action = 6 ###(suppression admin)
# action = 7 ###(creation super admin)
# action = 8 ###(suppression super admin)
# action = 9 (config)
# action = 10 ###(stat)

sub action {

	&check;

	&page_tete;

	print "$fontgrande\n";

	if ($action == "9" ) {

		%champs=('dir2', 'dir','server2', 'server', 'signature2',  'signature');

		open (CNF, "resoourl.pl") || &badcheck;
		@cnf = <CNF>;
		close (CNF);
		open (CNF, ">resoourl.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";
		}
		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";
	}
	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 == "9") {
		$signature2 =~ s/\"/\\\"/g;
		$signature2 =~ s/\(c\)/\&copy\;/g;
	}
}

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

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