#!/usr/bin/perl # # REF: resooindexDY.pl # ResooSite v.0.9.6 -(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 = "DY"; ######## mise en page index ######## sub idx_pao { print "\n"; 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"; print " \n"; print " \n"; print "
\n"; print " $fontgrande_cad\n"; print " $titre\n"; print " $finfontgrande\n"; print "
\n"; print "
\n"; print "
\n"; $cadrimage = "$dir_cadre/$image"; if (!(-e $cadrimage)) { $cadrimage = "$dir_cadre/$defautcadre"; } if (!$image) { $cadrimage = "$dir_cadre/$defautcadre"; } if (!(-e $cadrimage)) { $cadrimage = "$defaut_cadre"; } if ($img > "1") { if ($img == "3") { print "\n"; print "\"\"\n"; print "\n"; } elsif ($query == $defautretour ) { print "\n"; print "\"\"\n"; print "\n"; } else { print "\"\"\n"; } } else { print "\"\"\n"; } print "
\n"; print "
\n"; if ($img > "1") { if ($img == "3") { print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; print " $fontpetite_cad\n"; print "$imgtitre\n"; print " $finfontpetite\n"; print "
\n"; print "
\n"; } elsif ($query == $defautretour ) { print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; print " $fontpetite_cad\n"; print "$imgtitre\n"; print " $finfontpetite\n"; print "
\n"; print "
\n"; } } print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; ###### data breves ############################################### open(TXT,"$dir_txt/$page.txt") || die $!; @txt = ; close (TXT); print "$font_col$titre2

\n"; foreach $line (@txt) { $renew = $line; &resoohtml2; &unword; $line = $renew; print "$printpuce4$line
"; } print "$finfont\n"; ################################################################### print "
\n"; print " 		\n"; print "\n"; print " \n"; print " \n"; print " \n"; ###### infospeciale ############################################### if ($infospeciale) { print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; } ################################################################### print " \n"; print " \n"; print " \n"; ###### data articles ############################################## open(LST,"$dir_txt/$page.lst") || die $!; @lst = ; close (LST); foreach $line (@lst) { $line =~ s/\n//; open(TEXT,"$dir_txt/$line.idx") || die $!; @text = ; close (TEXT); $txttitre = $text[0]; $renew = $txttitre; &unword; $txttitre = $renew; $txtretour = $text[1]; $txtcreation = $text[2]; $txtmaj = $text[3]; $txtmaj =~ s/\n//; $txtauteur = $text[4]; $txtresume = $text[5]; $renew = $txtresume; &resoohtml2; &unword; $txtresume = $renew; $txtnote = $text[6]; $txtlettrine = $text[7]; if ($formatarticle==1){ print " \n"; print " \n"; print " \n"; } elsif ($formatarticle==2){ print " \n"; print " \n"; print " \n"; } else { print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; } print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; } ########################################################################## print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; print " $fontgrande_cad\n"; print " $infospeciale"; print " $finfontgrande\n"; print "
\"\"
\"\"
\n"; print " $font_cad\n"; print " $fontstitre_cad\n"; print "$txttitre
\n"; print " $finfontstitre\n"; print "$txtcreation\n"; if ($txtmaj) { print " (mis à jour le $txtmaj)\n"; } print "Lire l'article...\n"; print "

\n"; print " $finfont\n"; print "
\n"; print " $font_cad\n"; if ($txtmaj) { print "$printpuce0($txtmaj)\n"; } else { print "$printpuce0($txtcreation)\n"; } print " $finfont_cad\n"; print " $fontstitre_cad\n"; print "$txttitre
\n"; print " $finfontstitre\n"; print "
\n"; print " $fontstitre_cad\n"; print " $txttitre\n"; print " $finfontstitre\n"; print "
\"\"
\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; print "

$font_cad\n"; print " \n"; print " $txtcreation"; if ($txtmaj) { print " (mis à jour le $txtmaj)"; } print " \n"; print "
\n"; print " $txtresume...\n"; print "
\n"; print " Lire la suite...\n"; print " $finfont

\n"; print "
\n"; print "
\"\"
\"\"
\n"; print " $fontstitre_cel\n"; print " $titre3\n"; print " $finfontstitre\n"; print "
\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; print " $fontgrande_cad\n"; ###### data encart ############################################### print "$encart\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"; print "
\n"; print "$font\n"; print "Accès Administrateur\n"; print "$finfont\n"; print " \n"; print "$fontpetite\n"; if ($compt > "1") { print "Cette page a été consultée $comp fois\n"; } print "
Dernière mise à jour le $creation.\n"; print "$finfontpetite\n"; print "
\"\"
\n"; }