#!/usr/bin/perl # # REF: resoopaoDY.pl # ResooSite v.0.9.6.2 -(p)Resoo 2002-2004 # (c)2004 - pascal blain / GNU GPL - General Public License # http://www.resoo.com/resoosite # pascal@resoo.org # ######## configuration mise en page ######## $scrversion = "DY"; ######## 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 { print "\n"; print "\n"; print "\n"; print " \n"; print "\n"; print "\n"; print " \n"; print "\n"; print "\n"; print "
\n"; print " \n"; print " \n"; print " \n"; &menuDY; print " \n"; print " \n"; print "
\n"; print "
\"\"
\n"; print "\n"; print "\n"; 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 ($page eq "link") { print " \n"; } else { print " \n"; } print " \n"; print " \n"; print "
\n"; ###### data col ############################################### print "$fontstitre_cad\n"; print "$titre\n"; print "$finfontstitre\n"; ################################################################### print " \n"; ###### data col ############################################### print "$fontgrande\n"; if (-e "$dir_txt/$retour.txt") { print "Retour...\n"; } else { print "Retour...\n"; } print "$finfontgrande\n"; ################################################################### print "
\n"; print "
\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; ###### data col ############################################### print "$fontgrande_col\n"; print "$resume"; print "$finfontgrande\n"; ################################################################### print "
\n"; print " 		\n"; print "\n"; print " \n"; print " \n"; print " \n"; ###### info ############################################### print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; ################################################################### print " \n"; print " \n"; print " \n"; ###### data articles ############################################## print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; ########################################################################## print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; print " $fontpetite_cad\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 " $finfontpetite\n"; print "
\"\"
\"\"
\n"; print " $fonttitre_cad\n"; print " $titre\n"; print " $finfonttitre\n"; print "
\"\"
\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; print " $font\n"; if ($page ne "link") { print "Le $creation \n"; } if ($maj) { print " (mis à jour le $maj)\n"; } print "

\n"; print " $finfont\n"; } sub pao_page_bas { print "
\n"; print "
\"\"
\"\"
\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; print " $fontpetite_cad\n"; ###### data note ############################################### print "$note\n"; ################################################################### print " $finfontpetite\n"; print "
\n"; print "
\"\"
\n"; print "
\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\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 "$font\n"; if (-e "$dir_txt/$retour.txt") { print "Retour...\n"; } else { print "Retour...\n"; } print "$finfont\n"; if (($page ne "link") and ($compt == "3")) { print "$fontpetite\n"; print "
Cette page a été consultée $comp fois depuis le $creation.\n"; print "$finfontpetite\n"; } elsif (($page eq "link") and ($compt > 1)) { print "$fontpetite\n"; print "
Cette page a été consultée $comp fois.\n"; print "$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"; &menuDY; print " \n"; print " \n"; print "
\n"; print "
\"\"
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; ###### colonne gauche ############################################# print " \n"; ################################################################### print " \n"; ###### colonne droite ############################################# print " \n"; ################################################################### print "\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\n"; print "Retour...\n"; print "$finfont\n"; print "
\n"; print "\n"; print " \n"; print " \n"; ################################################################### print " \n"; print " \n"; print " \n"; ###### data rep ############################################## print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; ########################################################################## print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\"\"
\n"; } sub pao_mini_bas{ print "
\"\"
\"\"
\n"; print "$font_cel"; print "
"; print "$finfont\n"; print "
\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; print "$font\n"; print "$title
\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 "$font\n"; print "Accès Administrateur\n"; print "$finfont\n"; print " \n"; print "$font\n"; print "Retour...\n"; print "$finfont\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"; &menuDY; print " \n"; print " \n"; print "
\n"; print "
\"\"
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; ###### colonne gauche ############################################# print " \n"; ################################################################### print " \n"; ###### colonne droite ############################################# print " \n"; ################################################################### print "\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\n"; print "Retour...\n"; print "$finfont\n"; print "
\n"; print "\n"; print " \n"; print " \n"; ################################################################### print " \n"; print " \n"; print " \n"; ###### data rep ############################################## print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; ########################################################################## print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\"\"
\n"; } sub pao_img_bas{ print "
\"\"
\"\"
\n"; print "$font_cel"; print "
"; print "$finfont\n"; print "
\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; 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 "
\n"; print "
\"\"
\n"; print " 		\n"; print "

\n"; print "
\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\n"; print "Accès Administrateur\n"; print "$finfont\n"; print " \n"; print "$font\n"; print "Retour...\n"; print "$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"; } ########################################################################### # 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"; &menuDY; # print " \n"; print " \n"; print " \n"; print "
\n"; # print "$fontgrande_cel Retour...$finfontgrande\n"; # print "
\n"; print "
\"\"
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; ###### colonne gauche ############################################# print " \n"; ################################################################### print " \n"; ###### colonne droite ############################################# print " \n"; ################################################################### print "\n"; print "\n"; print "
\n"; print "

\n"; print " 		\n"; print "\n"; print " \n"; print " \n"; print " \n"; ###### titre ############################################### print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; ################################################################### print " \n"; print " \n"; print " \n"; ###### rep courant ############################################### print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; ################################################################### print " \n"; print " \n"; print " \n"; ###### data rep ############################################## print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; ########################################################################## print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; print " $fonttitre_cad\n"; if ($repprincipal eq "img"){ print "Répertoire image\n"; } else { print "$teletitre\n"; } print " $finfonttitre\n"; print "
\"\"
\"\"
\n"; print " $fontgrande_cad\n"; if ($rep_ico == 1){ print "[ $printpuce3 répertoire courant : $query ]\n"; } else{ print "[ \"\" répertoire courant : $query ]\n"; } print " $finfontgrande\n"; print "
\"\"
\"\"
\n"; print "$fontgrande $reptitre$finfontgrande
\n"; print "$fontpetite \ \;
$finfontpetite\n"; } sub pao_rep_bas { print "
\"\"
\"\"
\n"; if ($repprincipal eq "doc") { print "$font_cel"; print "$repaidehp"; print "$finfont\n"; } print "
\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; if ($repprincipal eq "doc") { print "$fontpetite_cad\n"; print "
"; print "$repaidebp"; print "
"; print "$finfontpetite\n"; } print "
\n"; print "
\"\"
\n"; print " 		\n"; print "

\n"; print "
\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\n"; print "Accès Administrateur\n"; print "$finfont\n"; print " \n"; print "$font\n"; print "Retour...\n"; print "$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"; } ########################################################################### # Mise en page resoobbs sub pao_bbs_haut { 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"; &menuDY; print " \n"; print " \n"; print "
\n"; print "
\"\"
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; ###### colonne gauche ############################################# print " \n"; ################################################################### print " \n"; ###### colonne droite ############################################# print " \n"; ################################################################### print "\n"; print "\n"; print "
\n"; print "

\n"; print " 		\n"; print "\n"; print " \n"; print " \n"; print " \n"; ###### titre ############################################### print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; ################################################################### print " \n"; print " \n"; print " \n"; ###### data rep ############################################## print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; ###### email admin ############################################### print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; ################################################################### print " \n"; print "
\n"; print " $fonttitre_cad\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"; print "
\"\"
\"\"
\n"; } sub pao_bbs_bas { print "
\"\"
\"\"
\n"; print " $font_cad\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 "$font\n"; print "$fontlien Accès Modérateur$finfont\n"; print "$finfont\n"; print " \n"; print "$font\n"; print "$fontlienRetour...$finfont\n"; print "$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"; } ########################################################################### # Menu bandeau DY sub menuDY { if ($retourfiles > 1) { if ($resooclick == 1) { 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 " \n"; } else { foreach $key (sort keys %indexfiles) { if (!($key =~ /^_\w_/)) { if ( $query ne $indexfiles{$key} ) { print " \n"; print " $fontgrande_cel\n"; print " [ $fontgrande_cel$key$finfontgrande ] \n"; print " $finfontgrande\n"; print " \n"; } else { print " \n"; print " $fontgrande_cel\n"; print " [ $key ] \n"; print " $finfontgrande\n"; print " \n"; } } } } } if ($bbs > "1") { 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"; } if ($rep > "1") { 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"; } if ($link > "1") { 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"; } if ($option1 == "2") { print " \n"; print " $fontgrande_cel\n"; print " [$fontgrande_cel Option 1$finfontgrande ] \n"; print " $finfontgrande\n"; print " \n"; } if ($option2 == "2") { print " \n"; print " $fontgrande_cel\n"; print " [$fontgrande_cel Option 2$finfontgrande ] \n"; print " $finfontgrande\n"; print " \n"; } if ($option3 == "2") { print " \n"; print " $fontgrande_cel\n"; print " [$fontgrande_cel Option 3$finfontgrande ] \n"; print " $finfontgrande\n"; print " \n"; } } 1;