#!/usr/bin/perl

#
#  REF: resoopage.pl
#  ResooSite v.0.9.5 -(p)Resoo 2002-2003
#  (c)2003 - pascal blain / GNU GPL - General Public License
#  http://www.resoo.org/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 = <IDX>;
close (IDX);
if ($page ne "link"){
    $titre = $idx[0];
	$titre =~ s/\n//;
	$renew = $titre;
	&unword;
	$titre = $renew;
}
else{
    $titre = $linktitre;
}
$retour = $idx[1];
	$retour =~ s/\n//;
$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){
    open(LNK,"$dir_txt/$page.txt") || die $!;
    @lnk = <LNK>;
    close (LNK);
    foreach $line (@lnk) {
	$line =~ s/\n//;
	if ($line =~ /^R_/){
	    $line =~ s/^R_//;
	    $renew = $line;
	    &resoohtml2;
	    $line = $renew;
	    print "<table width\=\"100\%\" border\=\"0\"><tr><td bgcolor\=\"$couleur_cell\">$fontstitre_cel";
    	    print "$line$finfont<\/td><\/tr><\/table>";
	}
	if ($line =~ /^L_/){
	    $line =~ s/^L_//;
	    $line =~ s/\*/\" target\=\"blank\"\>\<strong\>/; ##
	    print "$font$printpuce5<a href=\"$line<\/strong><\/a>$finfont<br>";
	}
	if ($line =~ /^U_/){
	    $line =~ s/^U_//;
	    print "$font$printpuce5<a href=\"$line\" target=\"blank\"><b>$line</b></a>$finfont<br>\n";
	}
	if ($line =~ /^D_/){
	    $line =~ s/^D_//;
	    $renew = $line;
	    &resoohtml2;
	    $line = $renew;
	    print "$font<i>$line</i>$finfont<br>\n";
	}
	if ($line =~ /^C_/){
	    $line =~ s/^C_//;
	    $renew = $line;
	    &resoohtml2;
	    $line = $renew;
	    print "$font$line$finfont<br>\n";
	}
	if ($line =~ /^V_/){
	    print "<br>\n";
	}
    }
}

#### page article liste ####
elsif ($codepage > 9){
    open(LST,"$dir_txt/$page.lst") || die $!;
    @lst = <LST>;
    close (LST);
    foreach $line (@lst) {
	$line =~ s/\n//;
	open(TEXT,"$dir_txt/$line.idx") || die $!;
	@text = <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 "<B>$txttitre</B><br>\n";
	    print "<I>$txtcreation</I>\n";
	    if ($txtmaj) {
		print "<I>  (mis à jour le $txtmaj)</I>\n";
	    }
	    print "<a href=\"resoopage.pl?$line\">Lire l'article...</a>\n";
	    print "$finfont\n";
	    print "<br><br>\n";
	}
	elsif ($codepage == 12){
	    print "$font\n";
	    if ($txtmaj) {
		print "<strong>&nbsp\;o&nbsp\;</strong><I>($txtmaj)</I>\n";
	    }
	    else {
		print "<strong>&nbsp\;o&nbsp\;</strong><I>$txtcreation</I>\n";
	    }
	    print "<B><a href=\"resoopage.pl?$line\">$txttitre</a></B><br>\n";
	    print "$finfont\n";
	}
	else {
	    print "$font\n";
	    print "<B>$txttitre</B><br>\n";
	    print "<I>$txtcreation</I>\n";
	    if ($txtmaj) {
		print "<I>  (mis à jour le $txtmaj)</I>\n";
	    }
	    print "<br>\n";
	    print "$txtresume...\n";
	    print "<br>\n";
	    print "<a href=\"resoopage.pl?$line\">Lire la suite...</a>\n";
	    print "$finfont\n";
	    print "<br><br>\n";
	}
    }
}

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

&pao_page_bas;

&foot_gen;