#!/usr/bin/perl # # REF: resoopaoAT.pl # ResooSite v.0.9.6.6-3 -(p)Resoo 2002-2005 # (c)2005 - pascal blain / GNU GPL - General Public License # http://www.resoo.com/resoosite # pascal@resoo.org # ######## configuration mise en page ######## $scrversion = "AT"; ######## foot // head ######## sub foot_gen { print "\n"; print " \n"; print " \n"; print " \n"; print "
\n"; print " $font\n"; print "$signature\n"; print " $finfont\n"; print "
\n"; print "\n"; print "\n"; print "\n"; } sub head_gen { print "\n"; print "\n"; print "\n"; print " $titre\n"; print "\n"; print "$body2\n"; if ($marge_haut) { print "\"\"
"; } print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print " \n"; print "\n"; print "\n"; print "
\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; if ($bandeau) { print ""; print "\"bandeau"; print ""; } else { print "$fonttitre_ban$title$finfonttitre_ban"; } print " \n"; print " $fontstitre_ban\n"; print " $title\n"; print " $finfontstitre\n"; print "
\n"; print " $font_ban\n"; &get_date; print " $date_long\n"; print " $finfont\n"; print "
\n"; print " $fontpetite_ban\n"; print " $urlperso\n"; print "
\n"; print " $fontpetite_ban$email$finfontpetite\n"; print " $finfontpetite\n"; print "
\n"; print "
\n"; print "
\n"; } ########################################################################### # Haut de page bbs et haut de page de substitution pour mode texte sub head_bbs { print "\n"; print "\n"; print "\n"; print " $titre\n"; print "\n"; print "$body_bbs2\n"; if ($marge_haut) { print "\"\"
"; } print "
\n"; print "\n"; if ($use_head == 2) { print "\n"; print "\n"; print "\n"; print " \n"; print "\n"; print "\n"; print "
\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; if ($bandeau) { print ""; print "\"bandeau"; print ""; } else { print "$fonttitre_ban$title$finfonttitre"; } print " \n"; print " $fontstitre_ban\n"; print " $title\n"; print " $finfontstitre\n"; print "
\n"; print " $font_ban\n"; &get_date; print " $date_long\n"; print " $finfont\n"; print "
\n"; print " $fontpetite_ban\n"; print " $urlperso\n"; print "
\n"; print " $fontpetite_ban$email$finfontpetite\n"; print " $finfontpetite\n"; print "
\n"; print "
\n"; print "
\n"; } } ########################################################################### # Mise en page article sub pao_page_haut { &menuAT; print "\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \"\"\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\"\"\"\"\"\"\"\"\"\"\"\"
\n"; print "\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; ###### data col1 ############################################### print "$fontgrande_col\ \;
\n"; print "$resume

\n"; print "$finfontgrande\n"; ################################################################### print "
\n"; print " 		\n"; print "\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; ###### data col2 ############################################### if (-e "$dir_txt/$retour.txt") { print "
$fontRetour...$finfont
\n"; } else { print "
$fontRetour...$finfont
\n"; } print "
\n"; print "$fonttitre_col\n"; print "$titre\n"; print "$finfonttitre
\n"; print "$font_col\n"; if ($page ne "link") { print "Le $creation \n"; } if ($maj) { print " (mis à jour le $maj)\n"; } print "
\n"; if ($codepage == 1) { if ($auteur) { print "Proposer un lien au rédacteur de cette page\n"; } else { print "$title
\n"; } } else { if ($auteur) { print "Ecrire à l'auteur de l'article - \n"; } if ($bbs == "3") { print "Réagir à ce texte sur $forumtitre $title
\n"; } else { print "$title
\n"; } } print "$finfont\n"; print "\n"; print "\n"; print "
\n"; print "\n"; print "\n"; print "
\n"; } sub pao_page_bas { print "
\n"; print "$fontpetite_col
\ \;
\n"; print "$note\n"; print "$finfontpetite\n"; if (-e "$dir_txt/$retour.txt") { print "
$fontRetour...$finfont
\n"; } else { print "
$fontRetour...$finfont
\n"; } ########################################################################## print "
\n"; print "
\n"; print "\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; print "\n"; print "\n"; print "\n"; print " \n"; print " \n"; print " \n"; print "\n"; print "\n"; print "
\n"; print "$font_col\n"; if ($codepage == 1){ print "Accès Administrateur\n"; } elsif ($codepage > 9){ print "Accès Administrateur\n"; } else { print "Accès Administrateur\n"; } print "$finfont\n"; print " \n"; print "$fontgrande_col\n"; print "$title\n"; print "$finfontgrande\n"; print " \n"; if (($page ne "link") and ($compt == "3")) { print "
$fontpetiteCette page a été consultée $comp fois depuis le $creation.$finfontpetite
\n"; } elsif (($page eq "link") and ($compt > 1)) { print "
$fontpetiteCette page a été consultée $comp fois.$finfontpetite
\n"; } print "
\n"; print "
\n"; print "
\n"; } ########################################################################### # Mise en page mini sub pao_mini_haut{ &menuAT; print "\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \"\"\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\"\"\"\"\"\"\"\"\"\"\"\"
\n"; print "\n"; print " \n"; print " \n"; print " \n"; print "
\n"; ###### data col1 ############################################### ################################################################### print "
\n"; print " 		\n"; print "\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; ###### data col2 ############################################### print "
$fontRetour...$finfont
\n"; print "
\n"; } sub pao_mini_bas { print "

\n"; print "$font\n"; print "$title
\n"; print "$finfont\n"; print "
$fontRetour...$finfont
\n"; ########################################################################## print "
\n"; print "
\n"; print "\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; print "\n"; print "\n"; print "\n"; print " \n"; print " \n"; print " \n"; print "\n"; print "\n"; print "
\n"; print "$font_col\n"; print "Accès Administrateur\n"; print "$finfont\n"; print " \n"; print "$fontgrande_col\n"; print "$title\n"; print "$finfontgrande\n"; print " \n"; print "
\n"; print "
\n"; print "
\n"; } ########################################################################### # Mise en page resooimg sub pao_img_haut{ &menuAT; print "\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \"\"\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\"\"\"\"\"\"\"\"\"\"\"\"
\n"; print "\n"; print " \n"; print " \n"; print " \n"; print "
\n"; ###### data col1 ############################################### ################################################################### print "
\n"; print " 		\n"; print "\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; ###### data col2 ############################################### print "
$fontRetour...$finfont
\n"; print "
\n"; } sub pao_img_bas { print "

\n"; print "$font\n"; if ($bbs == "3") { print "Réagir à cette page sur $forumtitre $title
\n"; } else { print "$title
\n"; } print "$finfont\n"; print "
$fontRetour...$finfont
\n"; ########################################################################## print "
\n"; print "
\n"; print "\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; print "\n"; print "\n"; print "\n"; print " \n"; print " \n"; print " \n"; print "\n"; print "\n"; print "
\n"; print "$font_col\n"; print "Accès Administrateur\n"; print "$finfont\n"; print " \n"; print "$fontgrande_col\n"; print "$title\n"; print "$finfontgrande\n"; print " \n"; if (!($query=~ /^\.\./)){ if ($compt == "3") { print "$fontpetite\n"; print "
Cette page a été consultée $comp fois.\n"; print "$finfontpetite\n"; } } print "
\n"; print "
\n"; print "
\n"; } ########################################################################### # Mise en page resoorep sub pao_rep_haut { &menuAT; print "\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \"\"\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\"\"\"\"\"\"\"\"\"\"\"\"
\n"; print "\n"; print " \n"; print " \n"; print " \n"; print "
\n"; ###### data col1 ############################################### ################################################################### print "
\n"; print " 		\n"; print "\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; ###### data col2 ############################################### print "
$fontRetour...$finfont
\n"; print "
\n"; ###### titre ############################################### print " $fonttitre_col\n"; if ($repprincipal eq "img"){ print "Répertoire image\n"; } else { print "$teletitre\n"; } print " $finfonttitre\n"; ################################################################### ###### rep courant ############################################### print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; print " $fontgrande_cel\n"; if ($rep_ico == 1){ print "[ $printpuce3 répertoire courant : $query ]\n"; } else{ print "[ \"\" répertoire courant : $query ]\n"; } print " $finfontgrande\n"; print "
\"\"
\n"; ################################################################### ###### data rep ############################################## if ($repprincipal eq "doc") { print "$font_col"; print "$repaidehp"; print "
"; print "$finfont\n"; } print "$fontgrande_col $reptitre$finfontgrande
\n"; print "$fontpetite_col \ \;
$finfontpetite\n"; } sub pao_rep_bas { ########################################################################## if ($repprincipal eq "doc") { print "$fontpetite_col\n"; print "
"; print "$repaidebp"; print "
"; print "$finfontpetite\n"; } print "
$fontRetour...$finfont
\n"; ########################################################################## print "
\n"; print "
\n"; print "\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; print "\n"; print "\n"; print "\n"; print " \n"; print " \n"; print " \n"; print "\n"; print "\n"; print "
\n"; print "$font_col\n"; print "Accès Administrateur\n"; print "$finfont\n"; print " \n"; print "$fontgrande_col\n"; print "$title\n"; print "$finfontgrande\n"; print " \n"; if ($repprincipal eq "doc") { if ($compt == "3") { print "$fontpetite\n"; print "
Cette page a été consultée $comp fois.\n"; print "$finfontpetite\n"; } } print "
\n"; print "
\n"; print "
\n"; } ########################################################################### # Mise en page resoobbs sub pao_bbs_haut { &menuAT; print "\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \"\"\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\"\"\"\"\"\"\"\"\"\"\"\"
\n"; print "\n"; print " \n"; print " \n"; print " \n"; print "
\n"; ###### data col1 ############################################### ################################################################### print "
\n"; print " 		\n"; print "\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; ###### data col2 ############################################### print "\n"; print "
\n"; ###### titre ############################################### print " $fonttitre_col\n"; if (( $page eq "bbs" ) or ($query =~ /.*faq.*/)) { if ( $page eq "bbs" ) { print "$forumtitre $title\n"; } else { print "Aide $forumtitre $title\n"; } } print " $finfonttitre\n"; ################################################################### ###### data bbs ############################################## } sub pao_bbs_bas { ###### email admin ############################################### print " $font_col\n"; print "Si vous avez un problème avec cette page, merci d'en informer "; print "$fontlien l'administrateur$finfont de ce site\n"; print " $finfont\n"; ########################################################################## print "\n"; ########################################################################## print "
\n"; print "
\n"; print "\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; print "\n"; print "\n"; print "\n"; print " \n"; print " \n"; print " \n"; print "\n"; print "\n"; print "
\n"; print "$font_col\n"; print "$fontlien Accès Modérateur$finfont\n"; print "$finfont\n"; print " \n"; print "$fontgrande_col\n"; print "$title\n"; print "$finfontgrande\n"; print " \n"; if ( $page eq "bbs" ) { if ($compt == "3") { print "$fontpetite\n"; print "
Cette page a été consultée $comp fois.\n"; print "$finfontpetite\n"; } } print "
\n"; print "
\n"; print "
\n"; } ########################################################################### # Menu bandeau AT sub menuAT { print "\n"; print " \n"; print " \n"; if ($retourfiles > 1) { if ($resooclick == 1) { print " \n"; print " \n"; } else { foreach $key (sort keys %indexfiles) { if (!($key =~ /^_\w_/)) { if ( $query ne $indexfiles{$key} ) { print " \n"; print " \n"; } else { print " \n"; print " \n"; } } } } } if ($bbs > "1") { print " \n"; print " \n"; } if ($rep > "1") { print " \n"; print " \n"; } if ($link > "1") { print " \n"; print " \n"; } if ($option1 == "2") { print " \n"; print " \n"; } if ($option2 == "2") { print " \n"; print " \n"; } if ($option3 == "2") { print " \n"; print " \n"; } print " \n"; print " \n"; print "
\n"; print " $fontgrande_cel\n"; print " Accès page:\ \;\n"; print " $finfontgrande\n"; print " \n"; print "
\n"; print "\n"; print "
\n"; print " 		\n"; print " $fontgrande_cel\n"; print " $fontgrande_cel$key$finfontgrande\n"; print " $finfontgrande\n"; print " \n"; print " $fontgrande_cel\n"; print " $key\n"; print " $finfontgrande\n"; print " \n"; print " $fontgrande_cel\n"; if ($page eq "bbs") { print " $forumtitre\n"; } else { print " $fontgrande_cel$forumtitre$finfontgrande\n"; } print " $finfontgrande\n"; print " \n"; print " $fontgrande_cel\n"; if ($page eq "doc") { print " $teletitre\n"; } else { print " $fontgrande_cel$teletitre$finfontgrande\n"; } print " $finfontgrande\n"; print " \n"; print " $fontgrande_cel\n"; if ($page eq "link") { print " $linktitre\n"; } else { print " $fontgrande_cel$linktitre$finfontgrande\n"; } print " $finfontgrande\n"; print " \n"; print " $fontgrande_cel\n"; print " $fontgrande_cel Option 1$finfontgrande\n"; print " $finfontgrande\n"; print " \n"; print " $fontgrande_cel\n"; print " $fontgrande_cel Option 2$finfontgrande\n"; print " $finfontgrande\n"; print " \n"; print " $fontgrande_cel\n"; print " $fontgrande_cel Option 3$finfontgrande\n"; print " $finfontgrande\n"; print "
\n"; } 1;