#!/usr/bin/perl # # REF: resooindex.pl # ResooSite v.0.9.5.1 -(p)Resoo 2002-2003 # (c)2003 - pascal blain / GNU GPL - General Public License # http://www.resoo.org/resoosite # pascal@resoo.org # require "resooconf.pl"; $indexversion = "COMMON"; ######## recuperation des données ######## $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 $renew = $encart; &resoohtml2; $encart = $renew; $encart =~ s/\n//; $formatarticle = $idx[6]; #formatage des liens articles $formatarticle =~ s/\n//; $infospeciale = $idx[7]; #encadré de haut de page $renew = $infospeciale; &resoohtml2; $infospeciale = $renew; $infospeciale =~ s/\n//; ######## mise en page de l'article ######## print "Content-type: text/html\; charset=ISO-8859-1\n\n"; &get_comp; &incr_comp; &get_date; &head_gen; &idx_pao; &foot_gen;