#!/usr/bin/perl # # ResooSite v.0.9.3 - Resoo 2002-2003 # resooindex.pl # require "resooconf.pl"; ######## recuperation de l'article ######## $query = $ENV{'QUERY_STRING'}; if ($query) { $page = $query; } else { $query = "$defautretour"; #### debug $page = "$query"; #### debug } open(IDX,"$dir_txt/$page.idx") || die $!; @idx = ; close (IDX); $titre = $idx[0]; #titre page gauche $titre =~ s/\n//; $creation = $idx[1]; $creation =~ s/\n//; $titre2 = $idx[2]; #titre manchette $titre2 =~ s/\n//; $image = $idx[3]; $image =~ s/\n//; $titre3 = $idx[4]; #titre page droite $titre3 =~ s/\n//; $encart = $idx[5]; #encart page droite $encart =~ s/\n//; $formatarticle = $idx[6]; #formatage des liens articles $formatarticle =~ s/\n//; $infospeciale = $idx[7]; #encadré de haut de page $infospeciale =~ s/\n//; ######## mise en page de l'article ######## print "Content-type: text/html\n\n"; &get_comp; &incr_comp; &get_date; &head; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\"\"\"\"\"\"\"\"\"\"
\n"; print "$fontstitre\n"; print "$urlperso
\n"; print "$font\n"; print "$title - $email\n"; print "$finfont$finfontstitre\n"; print "
\n"; print "
\n"; print "
\n"; print "$fontpetite_i$date_long$finfontpetite_i\n"; print "\n"; if ($img > "1") { if ($img == "3") { print "$fontpetite$imgtitre$finfontpetite\n"; } elsif ($query == $defautretour ) { print "$fontpetite$imgtitre$finfontpetite\n"; } } print "\n"; print "$fontpetite_imise à jour du $creation$finfontpetite_i\n"; print "
\n"; print "$fontstitre\n"; print "$title
\n"; print "$titre\n"; print "
$finfontstitre
\n"; print "$font\n"; if ($retourfiles > 1) { print "Accès aux pages:
"; print "\n"; if ($resooclick == 1) { print "
\n"; print "\n"; print "
\n"; if (($bbs > "1") or ($rep > "1") or ($img > "1")) { print "Autres:
"; } } else { foreach $key (sort keys %indexfiles) { if ( $query ne $indexfiles{$key} ) { print "
  • $key\n"; } } } } if ($bbs > "1") { print "
  • Le forum\n"; } if ($rep > "1") { print "
  • Téléchargement\n"; } if ($img > "1") { print "
  • $imgtitre\n"; } if ($option1 == "2") { print "
  • Option 1\n"; } if ($option2 == "2") { print "
  • Option 2\n"; } if ($option3 == "2") { print "
  • Option 3\n"; } print "
    \n"; print "$finfont\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 "$fontstitre\n"; print "$titre3\n"; print "
    $finfontstitre\n"; print "$font\n"; ###### data encart ############################################### print "
    $encart\n"; ################################################################### print "
    \n"; print "$finfont\n"; print "
    \n"; print "
    \n"; ###### data breves ############################################### open(TXT,"$dir_txt/$page.txt") || die $!; @txt = ; close (TXT); print "$font$titre2

    \n"; foreach $line (@txt) { $renew = $line; &unword; $line = $renew; print "
  • $line

    "; } ################################################################### print "$finfont\n"; print "
  •   \n"; print "$font\n"; print "
    "; ###### infospeciale ############################################### if ($infospeciale) { print "
    \n"; print "$font\n"; print $infospeciale; print "$finfont\n"; print "
    \n"; print "
    "; } ###### 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; &unword; $txtresume = $renew; $txtnote = $text[6]; $txtlettrine = $text[7]; if ($formatarticle==1){ print "$txttitre
    \n"; print "$txtcreation\n"; if ($txtmaj) { print " (mis à jour le $txtmaj)\n"; } print "Lire l'article...\n"; print "

    \n"; } elsif ($formatarticle==2){ if ($txtmaj) { print "($txtmaj)\n"; } else { print "
  • $txtcreation\n"; } print "$txttitre
    \n"; } else { print "$txttitre
    \n"; print "$txtcreation\n"; if ($txtmaj) { print " (mis à jour le $txtmaj)\n"; } print "
    \n"; print "$txtresume...\n"; print "
    \n"; print "Lire la suite...\n"; print "

    \n"; } } ########################################################################## print "$font\n"; print "
  • \n"; print "$font\n"; print "

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

    \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"; &foot;