#!/usr/bin/perl # # REF: resoopage.pl # ResooSite v.0.9.6 -(p)Resoo 2002-2004 # (c)2004 - pascal blain / GNU GPL - General Public License # http://www.resoo.com/resoosite # pascal@resoo.org # require "resooconf.pl"; ######## recuperation de l'article ######## $query = $ENV{'QUERY_STRING'}; $page = "$query"; open(IDX,"$dir_txt/$page.idx") || die $!; @idx = ; close (IDX); if ($page ne "link"){ $titre = $idx[0]; $titre =~ s/\n//; $renew = $titre; &unword; $titre = $renew; $retour = $idx[1]; $retour =~ s/\n//; } else{ $titre = $linktitre; $retour = $defautretour; } $creation = $idx[2]; $creation =~ s/\n//; $maj = $idx[3]; $maj =~ s/\n//; $auteur = $idx[4]; $auteur =~ s/\n//; $resume = $idx[5]; $resume =~ s/\n//; $renew = $resume; &resoohtml2; &unword; $resume = $renew; $note = $idx[6]; $note =~ s/\n//; $renew = $note; &resoohtml2; &unword; $note = $renew; $lettrine = $idx[7]; $lettrine =~ s/\n//; $codehtml = $idx[8]; $codehtml =~ s/\n//; $codepage = $idx[9]; $codepage =~ s/\n//; $coderesoohtml = $idx[10]; $coderesoohtml =~ s/\n//; ######## mise en page de l'article ######## print "Content-type: text/html\; charset=ISO-8859-1\n\n"; &get_comp; &incr_comp; &head_gen; &pao_page_haut; #### page article liens #### if ($codepage == 1){ $link_sort = $lettrine; @link_sort = split(/\|/,$link_sort); $linkRsort = @link_sort[0]; $linkSsort = @link_sort[1]; $linkLsort = @link_sort[2]; $link_space = $codehtml; $GUI = $coderesoohtml; &linkutil; @lnk=@Tsort; print "";} ## fin de sous-rubrique print "$line"; chomp(@line[4]); if (@line[4]){ $line = @line[4]; $renew = $line; &resoohtml; $line = $renew; print "\ \;\ \;$font$line$finfont"; } print "";} ## fin de sous-rubrique print "$line"; chomp(@line[4]); if (@line[4] ne ""){ $line = @line[4]; $renew = $line; &resoohtml; $line = $renew; print "\ \;\ \;$font$line$finfont"; } print "";} ## fin de sous-rubrique print "\n"; if (($GUI) and ($gui_su)) {&gui_creation_liens;} ## gui publique de creation de lien sub gui_creation_liens { print "
\n"; print "\n"; print "\n"; print "

$fontstitre Ajouter un lien à cette page:$finfontstitre
\n"; ## creation de lien print "
\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; if ($gui_control == 1) { print "\n"; } print "\n"; print "\n"; print "\n"; print "\n"; print "
$font Lien $finfont"; if ($TRsort + $TSsort) { print "$font (rattaché à..) $finfont"; print "\n"; } print "
$font Titre: $finfont
$font URL: $finfont (*)
$font Note: $finfont
$fontpetiteIndiquez votre mot de passe ci-dessous:$finfontpetite
\n"; print "
\n"; print "
\n"; print "$fontpetite (*) pour créer un lien vous devez au minimum servir le champs URL (l'adresse du site) $finfontpetite\n"; print "

\n"; } } #### page article liste #### elsif ($codepage > 9){ 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; $txtcreation = $text[2]; $txtmaj = $text[3]; $txtmaj =~ s/\n//; $txtresume = $text[5]; $renew = $txtresume; &unword; $txtresume = $renew; if ($codepage == 11){ print "$font\n"; print "$txttitre
\n"; print "$txtcreation\n"; if ($txtmaj) { print " (mis à jour le $txtmaj)\n"; } print "Lire l'article...\n"; print "$finfont\n"; print "

\n"; } elsif ($codepage == 12){ print "$font\n"; if ($txtmaj) { print " \;o \;($txtmaj)\n"; } else { print " \;o \;$txtcreation\n"; } print "$txttitre
\n"; print "$finfont\n"; } else { print "$font\n"; 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 "$finfont\n"; print "

\n"; } } } #### page article simple #### else { print "$font\n"; open(TEXT,"$dir_txt/$page.txt") || die $!; @text = ; close (TEXT); if ($lettrine == 1) { $car = substr(@text[0], 0, 1); $car=~tr/A-Z/a-z/; if (-e "$dir_lettr/$car$ext_lettr") { print "\"$car\"\n"; substr(@text[0], 0, 1)=""; print "
"; } } foreach $line (@text) { if ($codehtml != 1) { $renew = $line; if ($coderesoohtml == 1) { &resoohtml; } else { $renew =~ s/\n/
/; } } else { $renew = $line; } &unword; $line = $renew; print "$line\n"; } print "$finfont\n"; } &pao_page_bas; &foot_gen;