#!/usr/bin/perl # # REF: resoopaoSN.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 = "SN"; ######## configuration utilisateur ######## ##total 600 :| 170 | 30 | 200 | 30 | 170 | ## bbs | L1 | ## ... | L5L6 | L4 | L5L6 | ## bas | L5 | L2 | ## page | L5 | L6 | L3 | ## ... | L5L6 | L3 | ## | 30 | 30 | 540 | ## rep | L6 | L6 | L7 | $L1="600"; $L2="430"; $L3="400"; $L4="200"; $L5L6="200"; $L5="170"; $L6="30"; $L7="540"; ######## foot // head ######## sub foot_gen { print "\n"; 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 "$titre\n"; print "$body\n"; print "
\n"; if ($marge_haut) { print "\"\"
"; } print "\n"; print " \n"; print " \n"; print " \n"; print "
\n"; print "
"; if ($bandeau) { print ""; print "\"bandeau"; print ""; } else { print "$fonttitre_ban$title$finfonttitre"; } 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 "$titre\n"; print "$body_bbs\n"; if ($marge_haut) { print "\"\"
"; } print "
\n"; if ($use_head == 2) { print "\n"; print " \n"; print " \n"; print " \n"; print "
\n"; print "
"; if ($bandeau) { print ""; print "\"bandeau"; print ""; } else { print "$fonttitre_ban$title$finfonttitre"; } print "
\n"; print "
\n"; } } ########################################################################### # Mise en page article sub pao_page_haut { print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; 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 (-e "$dir_txt/$retour.txt") { print "
$fontRetour...$finfont
\n"; } else { print "
$fontRetour...$finfont
\n"; } print "
\n"; print "$fonttitre\n"; print "$titre\n"; print "$finfonttitre

\n"; print "$font\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 "$font\n"; print "\ \;
\ \;\n"; print "$finfont\n"; print "
\n"; print "$fontgrande_col\ \;
\n"; print "$resume\n"; print "
$finfontgrande\n"; print "
\n"; print "\ \;\n"; print "\n"; print "\ \;
\n"; } sub pao_page_bas { print "$fontpetite
\ \;
\n"; print "$note\n"; print "
$finfontpetite\n"; print "
\n"; print "$font\n"; print "


\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 "

\n"; if (-e "$dir_txt/$retour.txt") { print "
$fontRetour...$finfont
\n"; } else { print "
$fontRetour...$finfont
\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"; } ########################################################################### # Mise en page mini sub pao_mini_haut{ print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "
$fontRetour...$finfont
\n"; print "
\n"; print "$fontgrande \ \;
\n"; print "$finfontgrande\n"; print "
\n"; print "\ \;\n"; print "\n"; } sub pao_mini_bas{ print "

\n"; print "
\n"; print "$font\n"; print "\ \;
\ \;\n"; print "$finfont\n"; print "
\n"; print "$font\n"; print "
\n"; print "$title
\n"; print "$finfont\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "$font\n"; print "Accès Administrateur\n"; print "$finfont\n"; print "\n"; print "
$fontRetour...$finfont\n"; print "
\n"; print "
\n"; } ########################################################################### # Mise en page resooimg sub pao_img_haut{ print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "
$fontRetour...$finfont
\n"; print "
\n"; print "$fontgrande \ \;
\n"; print "$finfontgrande\n"; print "
\n"; print "\ \;\n"; print "\n"; } sub pao_img_bas{ print "

\n"; print "
\n"; print "$font\n"; print "\ \;
\ \;\n"; print "$finfont\n"; print "
\n"; print "$font\n"; print "
\n"; if ($bbs == "3") { print "Réagir à cette page sur $forumtitre $title
\n"; } else { print "$title
\n"; } print "$finfont\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "$font\n"; print "Accès Administrateur\n"; print "$finfont\n"; print "\n"; print "
$fontRetour...$finfont\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"; } ########################################################################### # Mise en page resoorep sub pao_rep_haut { print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "
$fontRetour...$finfont
\n"; print "
\n"; print "$fonttitre\n"; if ($repprincipal eq "img"){ print "Répertoire image\n"; } else { print "$teletitre\n"; } print "$finfonttitre

\n"; if ($repprincipal eq "doc") { print "$font"; print "$repaidehp"; print "$finfont\n"; } print "
\n"; print "$fontpetite_cel\n"; if ($rep_ico == 1){ print "\ \;
\[ $printpuce3 répertoire courant : $query ] \;\n"; } else{ print "\ \;
\[ \"\" répertoire courant : $query ] \;\n"; } print "$finfontpetite\n"; print "
\n"; print "$fontgrande \ \;
\n"; print "$finfontgrande\n"; print "
\n"; print "\ \;\n"; print "\n"; print "$fontgrande $reptitre$finfontgrande
\n"; print "$fontpetite \ \;
$finfontpetite\n"; } sub pao_rep_bas { if ($repprincipal eq "doc") { print "$fontpetite\n"; print "
"; print "$repaidebp"; print "
"; print "
$finfontpetite\n"; } print "
"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "$font\n"; print "


\n"; print "Accès Administrateur\n"; print "$finfont\n"; print "
\n"; print "

\n"; print "
$fontRetour...$finfont\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"; } ########################################################################### # Mise en page resoobbs sub pao_bbs_haut { print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; if (( $page eq "bbs" ) or ($query =~ /.*faq.*/)) { if ( $page eq "bbs" ) { print "\n"; } else { print "\n"; } print "
\n"; print "$fonttitre\n"; if ( $page eq "bbs" ) { print "$forumtitre $title\n"; } else { print "Aide $forumtitre $title\n"; } print "$finfonttitre

\n"; print "$font\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"; print "
\n"; print "$font\n"; print "\ \;
\ \;\n"; print "$finfont\n"; } print "
\n"; print "\ \;
\n"; } sub pao_bbs_bas { print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "$font\n"; print "


\n"; print "$fontlien Accès Modérateur$finfont\n"; print "$finfont\n"; print "
\n"; print "

\n"; print "
$fontlienRetour...$finfont\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"; } 1;