#!/usr/bin/perl

#
#  ResooSite v.0.9.4 - Resoo 2002-2003
#  resoopage.pl
#

require "resooconf.pl";


######## recuperation de l'article ########

$query = $ENV{'QUERY_STRING'};

$page = "$query";

open(IDX,"$dir_txt/$page.idx") || die $!;
@idx = <IDX>;
close (IDX);
$titre = $idx[0];
	$titre =~ s/\n//;
	$renew = $titre;
	&unword;
	$titre = $renew;
$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;
	&unword;
	$resume = $renew;
$note = $idx[6];
	$note =~ s/\n//;
$lettrine = $idx[7];
	$lettrine =~ s/\n//;
$codehtml = $idx[8];
	$codehtml =~ s/\n//;
$codepage = $idx[9];
	$codepage =~ s/\n//;

######## mise en page de l'article ########

print "Content-type: text/html\n\n";

&get_comp;
&incr_comp;

&head;

print "<table border=\"0\" width=\"600\">\n";
print "<tr>\n";
print "<td width=\"600\" colspan=\"3\">\n";
print "$font\n";
if (-e "$dir_txt/$retour.txt") {
    print "<div align=\"right\"><A HREF=\"resooindex.pl?$retour\"><B>Retour...</B></A></div>\n";
}
else {
    print "<div align=\"right\"><A HREF=\"resoopage.pl?$retour\"><B>Retour...</B></A></div>\n";
}
print "<br>\n";
print "$fonttitre\n";
print "$titre\n";
print "$finfonttitre<br><hr>\n";
print "<b>Le $creation</b>  \n";
if ($maj) {
    print "  (mis à jour le <b>$maj</b>)\n";
}
print "<br>\n";
if ($auteur) {
	print "Ecrire à <a href=\"mailto:$auteur\">l'auteur</a> de l'article - \n";
}
if ($bbs == "3") {
	print "Réagir à ce texte sur le <a href=\"$bbslink\">forum</a> $title<br>\n";
}
else {
	print "$title<br>\n";
}
print "$finfont\n";
print "</td>\n";
print "</tr>\n";
print "<tr>\n";
print "<td colspan=\"3\" width=\"600\" bgcolor=\"$couleur_cell\" align=\"right\">\n";
print "$font\n";
print "\&nbsp\;<br>\&nbsp\;\n";
print "$finfont\n";
print "</td>\n";
print "</tr>\n";

print "<tr>\n";
print "<td bgcolor=\"$couleur_col\" width=\"170\" align=\"center\" valign=\"TOP\">\n";
print "$fontgrande \&nbsp\;<br>\n";
print "$resume\n";
print "$finfontgrande\n";
print "</td>\n";

print "<td width=\"30\">\n";
print "\&nbsp\;\n";
print "</td>\n";

print "<td width=\"400\" valign=\"TOP\">\n";
print "$font \&nbsp\;<br>\n";

#### 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_//;
	    print "<p>$fontstitre$line$finfontstitre</p>\n";
	}
	if ($line =~ /^L_/){
	    $line =~ s/^L_//;
	    print "<li><a href=\"$line\" target=\"blank\">";
	}
	if ($line =~ /^T_/){
	    $line =~ s/^T_//;
	    print "<b>$line</b></a>\n";
	}
	if ($line =~ /^D_/){
	    $line =~ s/^D_//;
	    print "<br><i>$line</i>\n";
	}
	if ($line =~ /^C_/){
	    $line =~ s/^C_//;
	    print "<br>$line\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 "<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 "<br><br>\n";
	}
	elsif ($codepage == 12){
	    if ($txtmaj) {
		print "<LI><I>($txtmaj)</I>\n";
	    }
	    else {
		print "<LI><I>$txtcreation</I>\n";
	    }
	    print "<B><a href=\"resoopage.pl?$line\">$txttitre</a></B><br>\n";
	}
	else {
	    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 "<br><br>\n";
	}
    }
}

#### page article simple ####
else {
    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\">\n";
		substr(@text[0], 0, 1)="";
		print "<br>";
	}
	foreach $line (@text) {
	    if ($codehtml != 1) {
		$line =~ s/\n/<br>/;
	    }
	$renew = $line;
	&unword;
	$line = $renew;
	print "$line";
	}
    }
    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";
print "$fontpetite<br>\&nbsp\;<br>\n";
print "$note\n";
print "$finfontpetite\n";
print "</td>\n";
print "</tr>\n";

print "<tr>\n";
print "<td width=\"170\">\n";
print "$font\n";
print "<br><br><br>\n";
if ($codepage == 1){
    print "<a href=\"resoolinkadmin.pl\?$query\">Accès Administrateur</a>\n";
}
elsif ($codepage > 9){
    print "<a href=\"resoopagelistadmin.pl\?$query\">Accès Administrateur</a>\n";
}
else {
    print "<a href=\"resoopageadmin.pl\?$query\">Accès Administrateur</a>\n";
}
print "$finfont\n";
print "</td>\n";
print "<td width=\"430\" colspan=\"2\">\n";
print "$font\n";
print "<br><br>\n";
if (-e "$dir_txt/$retour.txt") {
    print "<div align=\"right\"><A HREF=\"resooindex.pl?$retour\"><B>Retour...</B></A></div>\n";
}
else {
    print "<div align=\"right\"><A HREF=\"resoopage.pl?$retour\"><B>Retour...</B></A></div>\n";
}
print "$finfont\n";
if ($compt == "3") {
	print "$fontpetite\n";
	print "<div align=\"right\">Cette page a été consultée $comp fois depuis le $creation.</div>\n";
	print "$finfontpetite\n";
}
print "</td>\n";
print "</tr>\n";

print "</table>\n";

&foot;