#!/usr/bin/perl

#
#  REF: resoolinkadmin.pl
#  ResooSite v.0.9.6.5 -(p)Resoo 2002-2005
#  (c)2005 - pascal blain / GNU GPL - General Public License
#  http://www.resoo.com/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;

	$value =~ s/<([^>]|\n)*>//g;

	$FORM{$name} = $value;
    }

}

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

sub get_variables {

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

    if ($FORM{'titre'}) {
	$titre = "$FORM{'titre'}";
	$renew = $titre;
	&unword;
	&ctrlline;
	$titre = $renew;
    }

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

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

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

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

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

    if ($FORM{'resume'}) {
	$resume = "$FORM{'resume'}";
	$renew = $resume;
	&unword;
	$resume = $renew;
	$resume =~ s/\n/<BR>/g;
    }

    if ($FORM{'note'}) {
	$note = "$FORM{'note'}";
	$renew = $note;
	&unword;
	&ctrlline;
	$note = $renew;
    }

#   if ($FORM{'lettrine'}) {
    if ($FORM{'linkRsort'}) {
	$linkRsort = "$FORM{'linkRsort'}";
    }
    if ($FORM{'linkSsort'}) {
	$linkSsort = "$FORM{'linkSsort'}";
    }
    if ($FORM{'linkLsort'}) {
	$linkLsort = "$FORM{'linkLsort'}";
    }

#   if ($FORM{'codehtml'}) {
   if ($FORM{'link_space'}) {
      $link_space = "$FORM{'link_space'}";
   }

#   if ($FORM{'coderesoohtml'}) {
   if ($FORM{'GUI'}) {
      $GUI = "$FORM{'GUI'}";
   }

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

#   if ($FORM{'article'}) {
#   }

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

    if ($FORM{'codeconsole'}) {
	$codeconsole = "$FORM{'codeconsole'}";
	if ($codeconsole eq "M"){
	    $linkcode0 = "$FORM{'linkcode0'}";
	    $linkcode1 = "$FORM{'linkcode1'}";
	    $linkcode2 = "$FORM{'linkcode2'}";
	    $linkcode3 = "$FORM{'linkcode3'}";
	    $linkcode4 = "$FORM{'linkcode4'}";
	}
    }

    if ($FORM{'linkline'}) {
	$linkline = "$FORM{'linkline'}";
	if ($FORM{'linklinectrl0'}) {$linklinectrl0 = "$FORM{'linklinectrl0'}";}
	else {$linklinectrl0 = "0";}
	if ($FORM{'linklinectrl1'}) {$linklinectrl1 = "$FORM{'linklinectrl1'}";}
	else {$linklinectrl1 = "0";}
    }

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

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

    if ($FORM{'util'}) {
	$util = "$FORM{'util'}";
	if ($util eq "LINK_GUI"){ ## la requete vient de la console publique
	    if ($gui_su) { ## et super admin est d'accord
		if ($gui_control) { ## si super admin impose password
		    if ($FORM{'passlink'}) {
			$passlink = "$FORM{'passlink'}";
			chomp($passlink);
			$passlink =~ s/\r//g;
			$passlink =~ s/\n/ /g;
			##### a voir: controle du nombre de caractères
			$util = "users";
			$action = "";
			&verify_GUI;
		    }
		    else {
			&erreurpass2;
		    }
		}
		else { ## si super admin n'impose PAS password
		    $util = "users";
		    $codeconsole = "M";
		    $codepage = 1;
		    $verif = 9;
		    $action = 5;
		    &action;
		}
	    }
	    else { ## et super admin n'est PAS d'accord
		&erreurpass2;
	    }
	}
	else{
	    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=\"resoolinkadmin.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>\n";
	    print "$fontstitre\n";
	    print "deuxième essai\n";
	    print "$finfontstitre\n";
	}
	else {
	    print "<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>;
    close(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;
	}
    }
}
sub verify_GUI {
    open(MAIN,"$private/$util.pass") || &erreurpass2;
    @main = <MAIN>;
    close(MAIN);
    foreach $main_line (@main) {
	chomp $main_line;
	if (($main_line =~ /^LNK$passlink$/) or ($main_line =~ /^ALL$passlink$/)) {
	    $codeconsole = "M";
	    $codepage = 1;
	    $verif = 9; #condition du titre page_erreur
	    $action = 5;
	}
    }
    if ($action == 5) {
	&action;
    }
    else {
	&erreurpass2;
    }
}

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

sub erreurpass2 {
    $verif = 2;
    &page_verify;
}


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

sub page_admin {

    &page_tete;

    if (($page>0) or ($page eq "link")) {

	open(MAIN2,"$dir_txt/$page.idx");
	@main2 = <MAIN2>;
	close (MAIN2);
	$titreold = $main2[0];
	$titreold =~ s/\n//;
	$renew = $titreold;
	&unword;
	$titreold = $renew;
	$titreold =~ s/\"/\&quot\;/g;
	$retourold = $main2[1];
	$retourold =~ s/\n//;
	$creationold = $main2[2];
	$creationold =~ s/\n//;
	$majold = $main2[3];   # inutile
	$majold =~ s/\n//;
	$auteurold = $main2[4];
	$auteurold =~ s/\n//;
	$resumeold = $main2[5];
	$resumeold =~ s/\n//;
	$renew = $resumeold;
	&unword;
	$resumeold = $renew;
	$noteold = $main2[6];
	$noteold =~ s/\n//;
	$noteold =~ s/\"/\&quot\;/g;
	$codepageold = $main2[9];
	$codepageold =~ s/\n//;
	$link_sort = $main2[7];
	$link_sort =~ s/\n//;
	@link_sort = split(/\|/,$link_sort);
	$linkRsortold = @link_sort[0];
	$linkSsortold = @link_sort[1];
	$linkLsortold = @link_sort[2];
	$link_spaceold = $main2[8];
	$link_spaceold =~ s/\n//;
	$GUIold = $main2[10];
	$GUIold =~ s/\n//;

	print "<CENTER><TABLE BORDER=0>\n";
	print "<form method=POST action=\"resoolinkadmin.pl\">\n";
	&hidden;
	print "<input type=hidden name=\"codeconsole\" value=\"\">\n";
	print "<input type=hidden name=\"codepage\" value=\"1\">\n";
	print "<input type=hidden name=\"verif\" value=\"9\">\n";
	print "<input type=hidden name=\"action\" value=\"5\">\n";
	print "<input type=hidden name=\"retour\" value=\"$retour\">\n";
	print "<TR><TD><hr width=\"600\"></TD></TR>\n";
	print "<TR><TD ALIGN=CENTER><INPUT TYPE=SUBMIT VALUE=\"  accès à la console d'administration des liens  \"></TD></TR>\n";
	print "</form>\n";
	print "<TR><TD><hr width=\"600\"></TD></TR>\n";
	print "</TABLE></CENTER>\n";

	print "<form method=POST action=\"resoolinkadmin.pl\">\n";
	print "<CENTER><TABLE BORDER=0>\n";
	if ($page ne "link"){
	    print "<TR><TD>$font Réactivation: $finfont</TD><TD>$font <INPUT TYPE=RADIO NAME=\"actual\" VALUE=\"0\"> oui    \n";
	    print "    <INPUT TYPE=RADIO NAME=\"actual\" VALUE=\"1\" checked> non $finfont</TD></TR>\n";
	    print "<TR><TD>$font Mise à jour du: $finfont</TD><TD> <INPUT TYPE=TEXT NAME=\"maj\" SIZE=15 VALUE=\"$date\">    \n";
	    print "    $fontpetite (article créé le $creationold";
	    if ($majold) {
		print " - m.a.j. du $majold";
	    }
	    print ") $finfontpetite</TD></TR>\n";
	}
	else {
	    print "<input type=hidden name=\"maj\" value=\"$date\">\n";
	}
	print "<input type=hidden name=\"creation\" value=\"$creationold\">\n";
	if ($page ne "link") {
	    print "<TR><TD>$font Titre: $finfont</TD><TD> <INPUT TYPE=TEXT NAME=\"titre\" SIZE=50 VALUE=\"$titreold\"></TD></TR>\n";
	}
	else {
	    print "<TR><TD>$font Titre: $finfont</TD><TD> <INPUT TYPE=hidden NAME=\"titre\" SIZE=50 VALUE=\"$linktitre\">$fontstitre$linktitre$finfontstitre</TD></TR>\n";
	}
	print "<TR><TD>$font Email auteur: $finfont</TD><TD> <INPUT TYPE=TEXT NAME=\"auteur\" SIZE=50 VALUE=\"$auteurold\"></TD></TR>\n";
	if ($page ne "link") {
	    print "<TR><TD>$font Retour: $finfont</TD><TD>";
	    if ($retourfiles > 1) {
		print "<SELECT NAME=\"retour\">";
		foreach $key (sort keys %indexfiles) {
		    if ( $retourold ne $indexfiles{$key} ) {
			print "<OPTION VALUE=\"$indexfiles{$key}\">$key";
		    }
		    else {
			print "<OPTION selected VALUE=\"$indexfiles{$key}\">$key";
		    }
		}
		print "</SELECT>\n";
	    }
	    else {
		foreach $key (sort keys %indexfiles) {
		    print "<INPUT TYPE=HIDDEN NAME=\"retour\" VALUE=\"$indexfiles{$key}\">";
		    print "$key\n";
		}
	    }
	}
	print "<INPUT TYPE=HIDDEN NAME=\"retourold\" VALUE=\"$retourold\">";
	print "</TD></TR>\n";
	print "<TR><TD COLSPAN=2>$font Présentation: $finfont<BR> <TEXTAREA NAME=\"resume\" ROWS=4 COLS=70 WRAP=VIRTUAL>\n";
	$resumeold =~ s/<BR>/\n/g;
	print "$resumeold";
	print "</TEXTAREA></TD></TR>\n";
	print "<TR><TD>$font Note: $finfont</TD><TD> <INPUT TYPE=TEXT NAME=\"note\" SIZE=50 VALUE=\"$noteold\"></TD></TR>\n";
	print "<TR><TD>$font Console utilisateur: $finfont</TD>";
	if ($gui_su){
	    print "<TD>$font <INPUT TYPE=RADIO NAME=\"GUI\" VALUE=\"1\"";
	    if ($GUIold == 1) {
		print " checked> oui       <INPUT TYPE=RADIO NAME=\"GUI\" VALUE=\"0\"> non<i></i>$finfont</TD></TR>\n";
	    }
	    else {
		print "> oui       <INPUT TYPE=RADIO NAME=\"GUI\" VALUE=\"0\" checked> non<i></i>$finfont</TD></TR>\n";
	    }
	}
	else {
	    print "<TD>$font Option non disponible (cf. super administrateur)$finfont</TD></TR>\n";
	}
	print "<TR><TD>$font Espacement: $finfont</TD><TD>$font <INPUT TYPE=RADIO NAME=\"link_space\" VALUE=\"1\"";
	if ($link_spaceold == 1) {
	    print " checked> double    <INPUT TYPE=RADIO NAME=\"link_space\" VALUE=\"0\"> simple<i></i>$finfont</TD></TR>\n";
	}
	else {
	    print "> double    <INPUT TYPE=RADIO NAME=\"link_space\" VALUE=\"0\" checked> simple<i></i>$finfont</TD></TR>\n";
	}
	print "<TR><TD>$font Classement: $finfont</TD><TD><hr></TD></TR>\n";
	print "<TR><TD>$font Rubriques: $finfont</TD><TD>$font <INPUT TYPE=RADIO NAME=\"linkRsort\" VALUE=\"1\"";
	if ($linkRsortold == 1) {
	    print " checked> ordre de saisie    <INPUT TYPE=RADIO NAME=\"linkRsort\" VALUE=\"2\"> saisie inverse    <INPUT TYPE=RADIO NAME=\"linkRsort\" VALUE=\"0\"> alpha<i></i>$finfont</TD></TR>\n";
	}
	elsif ($linkRsortold == 2) {
	    print "> ordre de saisie    <INPUT TYPE=RADIO NAME=\"linkRsort\" VALUE=\"2\" checked> saisie inverse    <INPUT TYPE=RADIO NAME=\"linkRsort\" VALUE=\"0\"> alpha<i></i>$finfont</TD></TR>\n";
	}
	else {
	    print "> ordre de saisie    <INPUT TYPE=RADIO NAME=\"linkRsort\" VALUE=\"2\"> saisie inverse    <INPUT TYPE=RADIO NAME=\"linkRsort\" VALUE=\"0\" checked> alpha<i></i>$finfont</TD></TR>\n";
	}
	print "<TR><TD>$font Sous-rubriques: $finfont</TD><TD>$font <INPUT TYPE=RADIO NAME=\"linkSsort\" VALUE=\"1\"";
	if ($linkSsortold == 1) {
	    print " checked> ordre de saisie    <INPUT TYPE=RADIO NAME=\"linkSsort\" VALUE=\"2\"> saisie inverse    <INPUT TYPE=RADIO NAME=\"linkSsort\" VALUE=\"0\"> alpha<i></i>$finfont</TD></TR>\n";
	}
	elsif ($linkSsortold == 2) {
	    print "> ordre de saisie    <INPUT TYPE=RADIO NAME=\"linkSsort\" VALUE=\"2\" checked> saisie inverse    <INPUT TYPE=RADIO NAME=\"linkSsort\" VALUE=\"0\"> alpha<i></i>$finfont</TD></TR>\n";
	}
	else {
	    print "> ordre de saisie    <INPUT TYPE=RADIO NAME=\"linkSsort\" VALUE=\"2\"> saisie inverse    <INPUT TYPE=RADIO NAME=\"linkSsort\" VALUE=\"0\" checked> alpha<i></i>$finfont</TD></TR>\n";
	}
	print "<TR><TD>$font Liens: $finfont</TD><TD>$font <INPUT TYPE=RADIO NAME=\"linkLsort\" VALUE=\"1\"";
	if ($linkLsortold == 1) {
	    print " checked> ordre de saisie    <INPUT TYPE=RADIO NAME=\"linkLsort\" VALUE=\"2\"> saisie inverse    <INPUT TYPE=RADIO NAME=\"linkLsort\" VALUE=\"0\"> alpha<i></i>$finfont</TD></TR>\n";
	}
	elsif ($linkLsortold == 2) {
	    print "> ordre de saisie    <INPUT TYPE=RADIO NAME=\"linkLsort\" VALUE=\"2\" checked> saisie inverse    <INPUT TYPE=RADIO NAME=\"linkLsort\" VALUE=\"0\"> alpha<i></i>$finfont</TD></TR>\n";
	}
	else {
	    print "> ordre de saisie    <INPUT TYPE=RADIO NAME=\"linkLsort\" VALUE=\"2\"> saisie inverse    <INPUT TYPE=RADIO NAME=\"linkLsort\" VALUE=\"0\" checked> alpha<i></i>$finfont</TD></TR>\n";
	}
	&hidden;
	print "<input type=hidden name=\"codepage\" value=\"1\">\n";
	print "<input type=hidden name=\"verif\" value=\"9\">\n";
	print "<input type=hidden name=\"action\" value=\"2\">\n";
	print "<TR><TD> <br> </TD><TD></TD></TR>\n";
	if ($page ne "link") {
	    print "<TR><TD COLSPAN=2 ALIGN=CENTER><INPUT TYPE=SUBMIT VALUE=\"   modifier l'article   \"></TD></TR>\n";
	    print "</TABLE></CENTER>\n";
	    print "</form>\n";
	    print "<form method=POST action=\"resoolinkadmin.pl\">\n";
	    print "<CENTER><TABLE BORDER=0>\n";
	    &hidden;
	    print "<input type=hidden name=\"verif\" value=\"9\">\n";
	    print "<input type=hidden name=\"action\" value=\"3\">\n";
	    print "<input type=hidden name=\"retourold\" value=\"$retourold\">\n";
	    print "<TR><TD><hr width=\"600\"></TD></TR>\n";
	    print "<TR><TD COLSPAN=2 ALIGN=CENTER><INPUT TYPE=SUBMIT VALUE=\"   supprimer l'article   \"></TD></TR>\n";
	}
	else {
	    print "<TR><TD COLSPAN=2 ALIGN=CENTER><INPUT TYPE=SUBMIT VALUE=\"   modifier cette page   \"></TD></TR>\n";
	}
	print "</TABLE></CENTER>\n";
	print "</form>\n";

	&creation_liens;

	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=\"$retour\">\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=\"resoobaoadmin.pl\">\n";
	&hidden;
	print "<input type=hidden name=\"verif\" value=\"9\">\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=\"   page B.A.O. administrateur   \"></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>$font<A HREF=\"resooadmin.pl\"><B>Accès au mode Super-Administrateur... cliquez ici!</B></A>$finfont</TD></TR>\n";
	print "<TR><TD><hr width=\"600\"></TD></TR>\n";
	if ($bbs > 1) {
	    print "<TR><TD ALIGN=CENTER>$font<A HREF=\"$bbsadminlink\"><B>Administration Forum... cliquez ici!</B></A>$finfont</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";
    }
    else {
	print "<form method=POST action=\"resoolinkadmin.pl\">\n";
	print "<CENTER><TABLE BORDER=0>\n";
	print "<TR><TD>$font Date de création: $finfont</TD><TD> <INPUT TYPE=TEXT NAME=\"creation\" SIZE=15 VALUE=\"$date\"></TD></TR>\n";
	print "<input type=hidden name=\"maj\" value=\"\">\n";
	print "<TR><TD>$font Titre: $finfont</TD><TD> <INPUT TYPE=TEXT NAME=\"titre\" SIZE=50></TD></TR>\n";
	print "<TR><TD>$font Email auteur: $finfont</TD><TD> <INPUT TYPE=TEXT NAME=\"auteur\" SIZE=50></TD></TR>\n";
	print "<TR><TD>$font Retour: $finfont</TD><TD>";
	if ($retourfiles > 1) {
	    print "<SELECT NAME=\"retour\">";
	    foreach $key (sort keys %indexfiles) {
		if ( $retour ne $indexfiles{$key} ) {
		    print "<OPTION VALUE=\"$indexfiles{$key}\">$key";
		}
		else {
		    print "<OPTION selected VALUE=\"$indexfiles{$key}\">$key";
		}
	    }
	    print "</SELECT>\n";
	}
	else {
	    foreach $key (sort keys %indexfiles) {
		print "<INPUT TYPE=HIDDEN NAME=\"retour\" VALUE=\"$indexfiles{$key}\">";
		print "$key\n";
	    }
	}
	print "</TD></TR>\n";
	print "<TR><TD COLSPAN=2>$font Présentation: $finfont<BR> <TEXTAREA NAME=\"resume\" ROWS=4 COLS=70 WRAP=VIRTUAL></TEXTAREA></TD></TR>\n";
	print "<TR><TD>$font Note: $finfont</TD><TD> <INPUT TYPE=TEXT NAME=\"note\" SIZE=50></TD></TR>\n";
	print "<TR><TD>$font Console utilisateur: $finfont</TD>";
	if ($gui_su){
	    print "<TD>$font <INPUT TYPE=RADIO NAME=\"GUI\" VALUE=\"1\"> oui       <INPUT TYPE=RADIO NAME=\"GUI\" VALUE=\"0\" checked> non<i></i>$finfont</TD></TR>\n";
	}
	else {
	    print "<TD>$font Option non disponible (cf. super administrateur)$finfont</TD></TR>\n";
	}
	print "<TR><TD>$font Espacement: $finfont</TD><TD>$font <INPUT TYPE=RADIO NAME=\"link_space\" VALUE=\"1\"> double    <INPUT TYPE=RADIO NAME=\"link_space\" VALUE=\"0\" checked> simple<i></i>$finfont</TD></TR>\n";
	print "<TR><TD>$font Classement: $finfont</TD><TD><hr></TD></TR>\n";
	print "<TR><TD>$font Rubriques: $finfont</TD><TD>$font <INPUT TYPE=RADIO NAME=\"linkRsort\" VALUE=\"1\"> ordre de saisie    <INPUT TYPE=RADIO NAME=\"linkRsort\" VALUE=\"2\"> saisie inverse    <INPUT TYPE=RADIO NAME=\"linkRsort\" VALUE=\"0\" checked> alpha<i></i>$finfont</TD></TR>\n";
	print "<TR><TD>$font Sous-rubriques: $finfont</TD><TD>$font <INPUT TYPE=RADIO NAME=\"linkSsort\" VALUE=\"1\"> ordre de saisie    <INPUT TYPE=RADIO NAME=\"linkSsort\" VALUE=\"2\"> saisie inverse    <INPUT TYPE=RADIO NAME=\"linkSsort\" VALUE=\"0\" checked> alpha<i></i>$finfont</TD></TR>\n";
	print "<TR><TD>$font Liens: $finfont</TD><TD>$font <INPUT TYPE=RADIO NAME=\"linkLsort\" VALUE=\"1\"> ordre de saisie    <INPUT TYPE=RADIO NAME=\"linkLsort\" VALUE=\"2\"> saisie inverse    <INPUT TYPE=RADIO NAME=\"linkLsort\" VALUE=\"0\" checked> alpha<i></i>$finfont</TD></TR>\n";
	&hidden;
	print "<input type=hidden name=\"codepage\" value=\"1\">\n";
	print "<input type=hidden name=\"verif\" value=\"9\">\n";
	print "<input type=hidden name=\"action\" value=\"1\">\n";
	print "<TR><TD><br> <br> </TD><TD></TD></TR>\n";
	print "<TR><TD COLSPAN=2 ALIGN=CENTER><INPUT TYPE=SUBMIT VALUE=\"   Créer l'article   \"> <INPUT TYPE=RESET VALUE=\" Annuler \"></TD></TR>\n";
	print "</TABLE></CENTER>\n";
	print "</form>\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=\"$retour\">\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=\"resoobaoadmin.pl\">\n";
	&hidden;
	print "<input type=hidden name=\"verif\" value=\"9\">\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=\"   page B.A.O. administrateur   \"></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>$font<A HREF=\"resooadmin.pl\"><B>Accès au mode Super-Administrateur... cliquez ici!</B></A>$fintfont</TD></TR>\n";
	print "<TR><TD><hr width=\"600\"></TD></TR>\n";
	if ($bbs > 1) {
	    print "<TR><TD ALIGN=CENTER>$font<A HREF=\"$bbsadminlink\"><B>Administration Forum... cliquez ici!</B></A>$finfont</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;
}

sub console_linkadmin {

########################################################
## codes console:
## aucun : affichage formulaire creation (sans message)
## C : affichage formulaire creation (avec message)
## CL: creation lien
## CR: creation rubrique
## CS: creation sous-rubrique
## M : affichage formulaire modification
## ML: modification lien
## MR: modification rubrique
## MS: modification sous-rubrique
## D : suppression

    &linkutil;

## affichage résultat d'opération
    if ($codeconsole eq "C"){
	print "$font Opération réalisée avec succès !! $finfont<br><br>\n";
    }

    print "<CENTER><TABLE BORDER=0>\n";
    print "<form method=POST action=\"resoolinkadmin.pl\">\n";
    &hidden;
    print "<input type=hidden name=\"codeconsole\" value=\"\">\n";
    print "<input type=hidden name=\"codepage\" value=\"1\">\n";
    print "<input type=hidden name=\"verif\" value=\"9\">\n";
    print "<input type=hidden name=\"action\" value=\"0\">\n";
    print "<input type=hidden name=\"retour\" value=\"$retour\">\n";
    print "<TR><TD><hr width=\"600\"></TD></TR>\n";
    print "<TR><TD ALIGN=CENTER><INPUT TYPE=SUBMIT VALUE=\"  retour page modification  \"></TD></TR>\n";
    print "</form>\n";
    print "<TR><TD><hr width=\"600\"></TD></TR>\n";
    print "</TABLE></CENTER>\n";


## affichage console modif
## modification de lien
    if ($codeconsole eq "MR"||$codeconsole eq "MS"||$codeconsole eq "ML"){
	@linkline = split(/\|/,$linkline);
	print "$font Modification: $finfont<br>\n";
	print "<form method=POST action=\"resoolinkadmin.pl\">\n";
	print "<CENTER><TABLE BORDER=1 WIDTH=\"100%\">\n";
	if ($codeconsole eq "MS"||$codeconsole eq "ML"){
	    if ($codeconsole eq "ML"){
		print "<TR><TD>$font<b> Lien </b>$finfont</TD><TD>";
		if ($TRsort + $TSsort) {
		    print "$font fils de $finfont";
		    print "<SELECT NAME=\"linkcode0\">";
		    if (!(@linkline[0]+@linkline[1])){print "<OPTION VALUE=\"0|0\" SELECTED>Rubrique: aucune";}
		    else{print "<OPTION VALUE=\"0|0\">Rubrique: aucune";}
		    foreach $line (@TSsort) {
			@line = split(/\|/,$line);
			if (!@line[1]){
			    if (@linkline[1]==@line[2]){print "<OPTION VALUE=\"@line[1]|@line[2]\" SELECTED>S/Rubrique: @line[0]";}
			    else{print "<OPTION VALUE=\"@line[1]|@line[2]\">S/Rubrique: @line[0]";}
			}
		    }
		    foreach $line (@TRsort) {
			@line = split(/\|/,$line);
			if ((@linkline[0]==@line[1]) and (!@linkline[1])){print "<OPTION VALUE=\"@line[1]|0\" SELECTED>Rubrique: @line[0]";}
			else{print "<OPTION VALUE=\"@line[1]|0\">Rubrique: @line[0]";}
			foreach $line2 (@TSsort) {
			    @line2 = split(/\|/,$line2);
			    if (@line[1] == @line2[1]){
				if (@linkline[1]==@line2[2]){print "<OPTION VALUE=\"@line2[1]|@line2[2]\" SELECTED>S/Rubrique: @line2[0]";}
				else{print "<OPTION VALUE=\"@line2[1]|@line2[2]\">S/Rubrique: @line2[0]";}
			    }
			}
		    }
		}
	    }
	    else{
		print "<input type=hidden name=\"linklinectrl0\" value=\"$linklinectrl0\">\n";
		print "<input type=hidden name=\"linklinectrl1\" value=\"$linklinectrl1\">\n";
		print "<input type=hidden name=\"linkcode1\" value=\"@linkline[1]\">\n";
		print "<TR><TD>$font<b> Sous-rubrique </b>$finfont</TD><TD>";
		if ($TRsort) {
		    print "$font fille de $finfont";
		    print "<SELECT NAME=\"linkcode0\">";
		    if (!@linkline[0]){print "<OPTION VALUE=\"0\" SELECTED>Rubrique: aucune";}
		    else{print "<OPTION VALUE=\"0\">Rubrique: aucune";}
		    foreach $line (@TRsort) {
			@line = split(/\|/,$line);
			if (@linkline[0]==@line[1]){print "<OPTION VALUE=\"@line[1]\" SELECTED>Rubrique: @line[0]";}
			else{print "<OPTION VALUE=\"@line[1]\">Rubrique: @line[0]";}
		    }
		}
	    }
	    print "</SELECT>\n";
	}
	else{
	    print "<TR><TD>$font<b> Rubrique </b>$finfont</TD><TD>";
	    print "<input type=hidden name=\"linkcode0\" value=\"@linkline[0]\">\n";
	    print "<input type=hidden name=\"linkcode1\" value=\"@linkline[1]\">\n";
	}
    	print "</TD></TR>\n";
	print "<TR><TD>$font Titre: $finfont</TD><TD> <INPUT TYPE=TEXT NAME=\"linkcode3\" SIZE=50 VALUE=\"@linkline[3]\">$font (*) $finfont</TD></TR>\n";
	if ($codeconsole eq "ML"){
	    print "<TR><TD>$font URL: $finfont</TD><TD> <INPUT TYPE=TEXT NAME=\"linkcode2\" SIZE=50 VALUE=\"@linkline[2]\">$font (**) $finfont</TD></TR>\n";
	}
	elsif ($codeconsole eq "MS"){
	    print "<input type=hidden name=\"linkcode2\" value=\"..\">\n";
	}
	else{
	    print "<input type=hidden name=\"linkcode2\" value=\".\">\n";
	}
	print "<TR><TD>$font Description: $finfont</TD><TD> <INPUT TYPE=TEXT NAME=\"linkcode4\" SIZE=50 VALUE=\"@linkline[4]\"></TD></TR>\n";
	&hidden;
	print "<input type=hidden name=\"linkline\" value=\"$linkline\">\n";
	print "<input type=hidden name=\"codeconsole\" value=\"M\">\n";
	print "<input type=hidden name=\"codepage\" value=\"1\">\n";
	print "<input type=hidden name=\"verif\" value=\"9\">\n";
	print "<input type=hidden name=\"action\" value=\"5\">\n";
	print "<TR><TD COLSPAN=2 ALIGN=CENTER><INPUT TYPE=SUBMIT VALUE=\"      modifier      \"></TD></TR>\n";
	print "</TABLE></CENTER>\n";
	print "</form>\n";
	print "$fontpetite (*): champs obligatoire pour un commentaire  /  (**): champs obligatoire pour un lien $finfontpetite\n";
	print "<br><br>\n";
	print "<TABLE><TR><TD><hr width=\"600\"></TD></TR></TABLE>\n";
	print "<br>\n";
    }

## liste modification de lien
    @lnk=@Tsort;
    print "<CENTER><TABLE BORDER=1 WIDTH=\"100%\">\n";
    foreach $line (@lnk) {
	@line = split(/\|/,$line);
	$linkline = "@line[1]|@line[2]|@line[3]|@line[0]|@line[4]";
	if (@line[3] eq "."){
	    print "<TR><TD>$font Rub:<b> @line[0] </b>$finfont</TD>";
	    print "<TD><form method=POST action=\"resoolinkadmin.pl\">\n";
	    &hidden;
	    print "<input type=hidden name=\"linkline\" value=\"$linkline\">\n";
	    print "<input type=hidden name=\"codeconsole\" value=\"MR\">\n";
	    print "<input type=hidden name=\"codepage\" value=\"1\">\n";
	    print "<input type=hidden name=\"verif\" value=\"9\">\n";
	    print "<input type=hidden name=\"action\" value=\"5\">\n";
	    print "<INPUT TYPE=SUBMIT VALUE=\"  Modif  \"></form></TD>\n";
	    print "<TD><form method=POST action=\"resoolinkadmin.pl\">\n";
	    &hidden;
	    print "<input type=hidden name=\"linkline\" value=\"$linkline\">\n";
	    print "<input type=hidden name=\"linklinectrl0\" value=\"@line[1]\">\n";
	    print "<input type=hidden name=\"linklinectrl1\" value=\"@line[2]\">\n";
	    print "<input type=hidden name=\"codeconsole\" value=\"D\">\n";
	    print "<input type=hidden name=\"codepage\" value=\"1\">\n";
	    print "<input type=hidden name=\"verif\" value=\"9\">\n";
	    print "<input type=hidden name=\"action\" value=\"5\">\n";
	    print "<INPUT TYPE=SUBMIT VALUE=\"  Suppr  \"></form></TD>\n";
	    print "</TR>\n";
	}
	elsif (@line[3] eq ".."){
	    print "<TR><TD>$font S/rub:<b><i> @line[0] </i></b>$finfont</TD>";
	    print "<TD><form method=POST action=\"resoolinkadmin.pl\">\n";
	    &hidden;
	    print "<input type=hidden name=\"linkline\" value=\"$linkline\">\n";
	    print "<input type=hidden name=\"linklinectrl0\" value=\"@line[1]\">\n";
	    print "<input type=hidden name=\"linklinectrl1\" value=\"@line[2]\">\n";
	    print "<input type=hidden name=\"codeconsole\" value=\"MS\">\n";
	    print "<input type=hidden name=\"codepage\" value=\"1\">\n";
	    print "<input type=hidden name=\"verif\" value=\"9\">\n";
	    print "<input type=hidden name=\"action\" value=\"5\">\n";
	    print "<INPUT TYPE=SUBMIT VALUE=\"  Modif  \"></form></TD>\n";
	    print "<TD><form method=POST action=\"resoolinkadmin.pl\">\n";
	    &hidden;
	    print "<input type=hidden name=\"linkline\" value=\"$linkline\">\n";
	    print "<input type=hidden name=\"linklinectrl0\" value=\"@line[1]\">\n";
	    print "<input type=hidden name=\"linklinectrl1\" value=\"@line[2]\">\n";
	    print "<input type=hidden name=\"codeconsole\" value=\"D\">\n";
	    print "<input type=hidden name=\"codepage\" value=\"1\">\n";
	    print "<input type=hidden name=\"verif\" value=\"9\">\n";
	    print "<input type=hidden name=\"action\" value=\"5\">\n";
	    print "<INPUT TYPE=SUBMIT VALUE=\"  Suppr  \"></form></TD>\n";
	    print "</TR>\n";
	}
	else{
	    if (@line[3]){
	    print "<TR><TD>$font Lien: @line[0] $finfont</TD>";
	    }
	    else {
	    print "<TR><TD>$font Comm:<i> @line[0] </i>$finfont</TD>";
	    }
	    print "<TD><form method=POST action=\"resoolinkadmin.pl\">\n";
	    &hidden;
	    print "<input type=hidden name=\"linkline\" value=\"$linkline\">\n";
	    print "<input type=hidden name=\"codeconsole\" value=\"ML\">\n";
	    print "<input type=hidden name=\"codepage\" value=\"1\">\n";
	    print "<input type=hidden name=\"verif\" value=\"9\">\n";
	    print "<input type=hidden name=\"action\" value=\"5\">\n";
	    print "<INPUT TYPE=SUBMIT VALUE=\"  Modif  \"></form></TD>\n";
	    print "<TD><form method=POST action=\"resoolinkadmin.pl\">\n";
	    &hidden;
	    print "<input type=hidden name=\"linkline\" value=\"$linkline\">\n";
	    print "<input type=hidden name=\"codeconsole\" value=\"D\">\n";
	    print "<input type=hidden name=\"codepage\" value=\"1\">\n";
	    print "<input type=hidden name=\"verif\" value=\"9\">\n";
	    print "<input type=hidden name=\"action\" value=\"5\">\n";
	    print "<INPUT TYPE=SUBMIT VALUE=\"  Suppr  \"></form></TD>\n";
	    print "</TR>\n";
	}
    }
    print "</TABLE></CENTER>\n";

    &creation_liens;

    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";
}


######## 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";
    if (-e "$dir_txt/$retour.txt") {
	print "<div align=\"right\"><A HREF=\"resooindex.pl?$retour\"><B>Retour...</B></A></div>\n";
    }
    else {
	print "<div align=\"right\"><A HREF=\"resoopage.pl?$retour\"><B>Retour...</B></A></div>\n";
    }
    print "<br>\n";
    print "$fonttitre\n";
    if ( $verif == 9 ) {
	if ( $action == "4" ) {
	    print "Oups ! Erreur...\n";
	}
	else {
	    if ($page) {
		if ($action == "1") {
		    print "Création article lien\n";
		}
		elsif ($action == "5") {
		    print "Administration des liens\n";
		}
		else {
		    if ($page == "link"){
			print "Modification $linktitre\n";
		    }
		    else {
			print "Suppression / Modification\n";
		    }
		}
	    }
	    else {
		print "Création article lien\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";
    if (-e "$dir_txt/$retour.txt") {
	print "<div align=\"right\"><A HREF=\"resooindex.pl?$retour\"><B>Retour...</B></A></div>\n";
    }
    else {
	print "<div align=\"right\"><A HREF=\"resoopage.pl?$retour\"><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 (gestion des liens)

sub action {

    &check;  # verifie les champs obligatoire

    if ($action == 3) {
	$delfic1 = "$dir_txt/$page.txt";
	unlink ($delfic1);
	$delfic2 = "$dir_txt/$page.idx";
	unlink ($delfic2);
	$delfic3 = "$dir_comp/$page.cmp";
	unlink ($delfic3);
    }
    elsif ($action == 5 ) {
	if ($codeconsole eq "D") { ## controle code enfant pour rubrique et sous rubrique
	    open(MAIN4,"$dir_txt/$page.txt") || die $!;
	    @lnk=<MAIN4>;
	    close(MAIN4);
	    open(MAIN5,">$dir_txt/$page.txt") || die $!;
	    foreach $line(@lnk){
		if ($line ne "$linkline\n"){
		    if ($linklinectrl1){ ## suppression sous rubrique
			$line =~ s/^$linklinectrl0\|$linklinectrl1\|/$linklinectrl0\|0\|/;
		    }
		    elsif ($linklinectrl0){ ## sinon suppression rubrique
			$line =~ s/^$linklinectrl0\|/0\|/;
		    }
		    print MAIN5 $line;
		}
	    }
	    close(MAIN5);
	    $codeconsole = "C";
	}
	if ($codeconsole eq "M") { ## controle code enfant pour sous rubrique
	    if ($linkcode0 =~ /.*\|.*/){
		$newlinkline = "$linkcode0|$linkcode2|$linkcode3|$linkcode4\n";
	    }
	    else{
		$newlinkline = "$linkcode0|$linkcode1|$linkcode2|$linkcode3|$linkcode4\n";
	    }
	    if ($linkline){
		open(MAIN4,"$dir_txt/$page.txt") || die $!;
		@lnk=<MAIN4>;
		close(MAIN4);
		open(MAIN5,">$dir_txt/$page.txt") || die $!;
		foreach $line(@lnk){
		    if ($line ne "$linkline\n"){
			if ($linklinectrl1){ ## modif de sous rubrique
			    $line =~ s/^$linklinectrl0\|$linklinectrl1\|/$linkcode0\|$linklinectrl1\|/;
			}
			print MAIN5 $line;
		    }
		}
		print MAIN5 "$newlinkline";
		close(MAIN5);
	    }
	    else{
		open(MAIN5,">>$dir_txt/$page.txt") || die $!;
		print MAIN5 "$newlinkline";
		close(MAIN5);
	    }
	    $codeconsole = "C";
	}
    }
    elsif ($action != 4 ) {
	## si creation, recuperer le numero de fichier
	if ($action == 1) {
	    &get_numb;
	    $page = "$numb";
	    ## creer ou ecraser le fichier txt
	    open(MAIN5,">$dir_txt/$page.txt") || die $!;
	    print MAIN5 "";
	    close(MAIN5);
	}
	## creer ou ecraser le fichier idx
	open(MAIN4,">$dir_txt/$page.idx") || die $!;
	print MAIN4 "$titre\n";
	print MAIN4 "$retour\n";
	print MAIN4 "$creation\n";
	print MAIN4 "$maj\n";
	print MAIN4 "$auteur\n";
	print MAIN4 "$resume\n";
	print MAIN4 "$note\n";
	print MAIN4 "$linkRsort|$linkSsort|$linkLsort\n"; ### lettrine
	print MAIN4 "$link_space\n"; ### codehtml
	print MAIN4 "$codepage\n";
	print MAIN4 "$GUI\n"; ### coderesoohtml
	close(MAIN4);
    }	

    if ($page ne "link") {
	&maj_index;
    }

    &page_tete;

    print "$fontgrande\n";

    if ($action == 1) {
	print "Création de page terminée :<br>\n";
	print "<a href=\"resoopage.pl?$page\">Page \# $page</a><br><br>\n";
    }
    if ($action == 2) {
	print "Modification de page terminée :<br>\n";
	print "<a href=\"resoopage.pl?$page\">Page \# $page</a><br><br>\n";
    }
    if ($action == 3) {
	print "Suppression de page terminée<br><br>\n";
    }
    if ($action == 4) {
	print "Erreur: champs \"$error\"  $mesgerror.<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) and ($util ne "users")) {
	&console_linkadmin;
    }
    if (($util eq "users") and ($action != 4)) {
	print "Création de lien acceptée :<br>\n";
	print "<a href=\"resoopage.pl?$page\">Retour page précédente</a><br><br>\n";
    }
    if ($util ne "users") {
	print "<form method=POST action=\"resoopageadmin.pl\">\n";
	print "<CENTER><TABLE BORDER=0>\n";
	print "<TR><TD><hr width=\"600\"></TD></TR>\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=\"   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 != 3) and ($action != 5)) {  # si suppression ou modif lien, on passe
#		if (!$article) {
#		$error = "article";
#		$action = "4";
#		$mesgerror = "non servi";
#		}
	if (!$resume) {
	    $error = "résumé";
	    $action = 4;
	    $mesgerror = "non servi";
	}
	if (!$titre) {
	    $error = "titre";
	    $action = 4;
	    $mesgerror = "non servi";
	}
	if (($page ne "link") and (!($creation =~ /^(\d{2})\/(\d{2})\/(\d{4})$/))) {
	    $error = "date de création";
	    $action = 4;
	    $mesgerror = "non valide";
	}
	if (($maj) and (!($maj =~ /^(\d{2})\/(\d{2})\/(\d{4})$/))) {
	    $error = "date de mise a jour";
	    $action = 4;
	    $mesgerror = "non valide";
	}
	if (($auteur) and (!($auteur =~ /^\S+\@\S+$/))) {
	    $error = "email auteur";
	    $action = 4;
	    $mesgerror = "non valide";
	}
    }
    if (($action == 5) and ($codeconsole eq "M")) {
	if ($linkcode2 eq "."||$linkcode2 eq ".."){
	    if (!$linkcode3){
		$error = "obligatoire";
		$action = 4;
		$mesgerror = "non servi";
	    }
	}
	else{
	    if ((!$linkcode2) and (!$linkcode3)){
		$error = "obligatoire";
		$action = 4;
		$mesgerror = "non servi";
	    }
	    if (($linkcode2) and (!($linkcode2 =~ /^\S+$/))){
		$error = "URL";
		$action = "4";
		$mesgerror = "URL incorrecte (les espaces sont interdits)";
	    }
	    if (($linkcode2) and (!$linkcode3)){
		$linkcode3 = $linkcode2;
	    }
	}
    }
}

sub maj_index {
    if (($action != 4) and ($action != 5)) { # si pas d'erreur
	&maj_date;
	if ( $retour ne $retourold ) {
	    open(MAIN6,"$dir_txt/$retour.lst") || die $!;
	    @art = <MAIN6>;
	    close (MAIN6);
	    if ($action != 3) { #si ce n'est pas une suppression
		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);
	    if ($action != 1) { #si ce n'est pas une creation
		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);
	    }
	}
	else {
	    if ($actual != 1) { # si actualisation non invalide
		open(MAIN6,"$dir_txt/$retour.lst") || die $!;
		@art = <MAIN6>;
		close (MAIN6);
		open(MAIN6,">$dir_txt/$retour.lst") || die $!;
		if ($action != 3) { #si ce n'est pas une suppression
		    # cree la nouvelle ligne
		    print MAIN6 "$page\n";
		}
		foreach $line (@art) {
		    if ($action != 1) { #si ce n'est pas une creation
			# cherche et supprime l'ancienne ligne
			if ($line =~ /^$page$/) {
			    $line = ""
			    }
		    }
		    # recopie le reste du fichier
		    print MAIN6 "$line";
		}
		close(MAIN6);
	    }
	}
    }
}

sub creation_liens {
    print "<CENTER><TABLE BORDER=0>\n";
    print "<TR><TD><hr width=\"600\"></TD></TR>\n";
    print "<TR><TD>$fontstitre Création de liens / rubriques / etc.:$finfontstitre</TD></TR>\n";
    print "</TABLE></CENTER>\n";

    &linkutil;

## creation de lien
    print "<form method=POST action=\"resoolinkadmin.pl\">\n";
    print "<CENTER><TABLE BORDER=1 WIDTH=\"100%\">\n";
    print "<TR><TD>$font<b> Lien </b>$finfont</TD><TD>";
    if ($TRsort + $TSsort) {
	print "$font fils de $finfont";
	print "<SELECT NAME=\"linkcode0\">";
	print "<OPTION VALUE=\"0|0\">Rubrique: aucune";
	foreach $line (@TSsort) {
	    @line = split(/\|/,$line);
	    if (!@line[1]){
		print "<OPTION VALUE=\"@line[1]|@line[2]\">S/Rubrique: @line[0]";
	    }
	}
	foreach $line (@TRsort) {
	    @line = split(/\|/,$line);
	    print "<OPTION VALUE=\"@line[1]|@line[2]\">Rubrique: @line[0]";
	    foreach $line2 (@TSsort) {
		@line2 = split(/\|/,$line2);
		if (@line[1] == @line2[1]){
		    print "<OPTION VALUE=\"@line2[1]|@line2[2]\">S/Rubrique: @line2[0]";
		}
	    }
	}
	print "</SELECT>\n";
    }
    print "</TD></TR>\n";
    print "<TR><TD>$font Titre: $finfont</TD><TD> <INPUT TYPE=TEXT NAME=\"linkcode3\" SIZE=50 VALUE=\"\">$font (*) $finfont</TD></TR>\n";
    print "<TR><TD>$font URL: $finfont</TD><TD> <INPUT TYPE=TEXT NAME=\"linkcode2\" SIZE=50 VALUE=\"\">$font (**) $finfont</TD></TR>\n";
    print "<TR><TD>$font Description: $finfont</TD><TD> <INPUT TYPE=TEXT NAME=\"linkcode4\" SIZE=50 VALUE=\"\"></TD></TR>\n";
    &hidden;
    print "<input type=hidden name=\"codeconsole\" value=\"M\">\n";
    print "<input type=hidden name=\"codepage\" value=\"1\">\n";
    print "<input type=hidden name=\"verif\" value=\"9\">\n";
    print "<input type=hidden name=\"action\" value=\"5\">\n";
    print "<TR><TD COLSPAN=2 ALIGN=CENTER><INPUT TYPE=SUBMIT VALUE=\"   créer le lien (ou commentaire)   \"></TD></TR>\n";
    print "</TABLE></CENTER>\n";
    print "</form>\n";
    print "$fontpetite (*): champs obligatoire pour un commentaire  /  (**): champs obligatoire pour un lien $finfontpetite\n";
    print "<br><br>\n";

## cration de rubrique
    print "<form method=POST action=\"resoolinkadmin.pl\">\n";
    print "<CENTER><TABLE BORDER=1 WIDTH=\"100%\">\n";
    print "<TR><TD>$font<b> Rubrique </b>$finfont</TD><TD></TD></TR>\n";
    print "<TR><TD>$font Titre: $finfont</TD><TD> <INPUT TYPE=TEXT NAME=\"linkcode3\" SIZE=50 VALUE=\"\">$font (*) $finfont</TD></TR>\n";
    print "<TR><TD>$font Description: $finfont</TD><TD> <INPUT TYPE=TEXT NAME=\"linkcode4\" SIZE=50 VALUE=\"\"></TD></TR>\n";
    &hidden;
    print "<input type=hidden name=\"codeconsole\" value=\"M\">\n";
    $linkRlast++;
    print "<input type=hidden name=\"linkcode0\" value=$linkRlast>\n";
    print "<input type=hidden name=\"linkcode1\" value=\"0\">\n";
    print "<input type=hidden name=\"linkcode2\" value=\".\">\n";
    print "<input type=hidden name=\"codepage\" value=\"1\">\n";
    print "<input type=hidden name=\"verif\" value=\"9\">\n";
    print "<input type=hidden name=\"action\" value=\"5\">\n";
    print "<TR><TD COLSPAN=2 ALIGN=CENTER><INPUT TYPE=SUBMIT VALUE=\"   créer la rubrique   \"></TD></TR>\n";
    print "</TABLE></CENTER>\n";
    print "</form>\n";
    print "$fontpetite (*): champs obligatoire pour une rubrique $finfontpetite\n";
    print "<br><br>\n";

## creation de sous-rubrique
    print "<form method=POST action=\"resoolinkadmin.pl\">\n";
    print "<CENTER><TABLE BORDER=1 WIDTH=\"100%\">\n";
    print "<TR><TD>$font<b> Sous-rubrique </b>$finfont</TD><TD>";
    if ($TRsort) {
	print "$font fille de $finfont";
	print "<SELECT NAME=\"linkcode0\">";
	print "<OPTION VALUE=\"0\">Rubrique: aucune";
	foreach $line (@TRsort) {
	    @line = split(/\|/,$line);
	    print "<OPTION VALUE=\"@line[1]\">Rubrique: @line[0]";
	}
	print "</SELECT>\n";
    }
    print "</TD></TR>\n";
    print "<TR><TD>$font Titre: $finfont</TD><TD> <INPUT TYPE=TEXT NAME=\"linkcode3\" SIZE=50 VALUE=\"\">$font (*) $finfont</TD></TR>\n";
    print "<TR><TD>$font Description: $finfont</TD><TD> <INPUT TYPE=TEXT NAME=\"linkcode4\" SIZE=50 VALUE=\"\"></TD></TR>\n";
    &hidden;
    print "<input type=hidden name=\"codeconsole\" value=\"M\">\n";
    $linkSlast++;
    print "<input type=hidden name=\"linkcode1\" value=$linkSlast>\n";
    print "<input type=hidden name=\"linkcode2\" value=\"..\">\n";
    print "<input type=hidden name=\"codepage\" value=\"1\">\n";
    print "<input type=hidden name=\"verif\" value=\"9\">\n";
    print "<input type=hidden name=\"action\" value=\"5\">\n";
    print "<TR><TD COLSPAN=2 ALIGN=CENTER><INPUT TYPE=SUBMIT VALUE=\"   créer la sous-rubrique   \"></TD></TR>\n";
    print "</TABLE></CENTER>\n";
    print "</form>\n";
    print "$fontpetite (*): champs obligatoire pour une sous-rubrique $finfontpetite\n";
    print "<br><br>\n";
}

sub helpnote {
    print "<CENTER><TABLE BORDER=0>\n";
    print "<TR><TD>$font";
    print " <br>\n";
    print " <b>- Aide -</b><br>\n";
    print "$fintfont</TD></TR>";
    print "<TR><TD>$font";
    print " <br>\n";
    print " chaque lien peut se présenter (au minimum)<br><br>\n";
    print " <b>\&oslash\;</b> soit sous la forme *mon_URL*<br>\n";
    print "    (le titre du lien sera l'URL en question)<br><br>\n";
    print " <b>\&oslash\;</b> soit sous la forme *mon_URL|Mon Titre*<br>\n";
    print "    (le titre du lien sera alors \"Mon Titre\")<br>\n";
    print " <br>\n";
    print " par exemple:<br><b>\n";
    print " *http://www.resoo.com/resoosite|Le site d'info ResooSite*</b><br>\n";
    print " s'affichera :  <b>o <a href=\"http://www.resoo.com/resoosite\">Le site d'info Resoosite</a></b><br>\n";
    print "    et<br><b>\n";
    print " *http://www.resoo.com/resoosite*</b><br>\n";
    print " s'affichera :  <b>o <a href=\"http://www.resoo.com/resoosite\">http://www.resoo.com/resoosite</a></b><br>\n";
    print " <br>\n";
    print " <u>Option:</u><br>\n";
    print " - Si le protocole est précisé, les liens peuvent pointer une url http:// ou ftp:// et le lien s'ouvrira dans une nouvelle fenêtre.<br>\n";
    print " - Si le protocole est omis, c'est http:// qui est automatiquement rajouté, et le lien s'ouvrira dans la fenêtre par défaut.<br>\n";
    print " - Pour les liens avec titre, un simple \"|\" de séparation provoque l'ouverture du lien dans une nouvelle fenêtre, pour forcer l'ouverture dans la fenêtre par défaut, utiliser un double \"||\" de séparation.<br>\n";
    print " - Il est possible d'inhiber le saut de ligne automatique avant un lien, pour cela faire terminer le mien par un signe \"-\"<br>\n";
    print "  ( par exemple *http://www.resoo.com/resoosite*- )<br>\n";
    print " <br>\n";
    print " Optionnellement, il est possible d'inclure des lignes débutant par<br>\n";
    print " R_ (suivi d'un titre de Rubrique)<br>\n";
    print " S_ (suivi d'un titre de Sous-rubrique)<br>\n";
    print " _ (suivi d'un commentaire ou d'une description)<br>\n";
    print " _ (seul, pour créer une ligne Vide)<br>\n";
    print " _--- (pour créer une trait horizontal de séparation)<br>\n";
    print " <br>\n";
    print " <b>toutes les autres lignes de textes (ou vide) seront ignorées à l'affichage !!</b><br>\n";
    print " <br>\n";
    print " pour faire reconnaitre une adresse email \"cliquable\" dans une ligne Rubrique, Commentaire, etc. il suffit de l'entourer de 2 étoiles (par exemple: *admin\@resoo.com*)<br>\n";
    print " <br>\n";
    print " l'ordre d'affichage des lignes sera identique à l'ordre de saisie<br>\n";
    print " <br>\n";
    print "$finfont</TD></TR>\n";
    print "</TABLE></CENTER>\n";
}