#!/usr/bin/perl

#
#  ResooSite v.0.9 - Resoo 2002
#  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//;
$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//;
$note = $idx[6];
	$note =~ s/\n//;
$lettrine = $idx[7];
	$lettrine =~ 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";
print "<div align=\"right\"><A HREF=\"resooindex.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=\"$dir_bbs\">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";
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/;
	print "<img src=\"$dir_lettr/$car$ext_lettr\" align=\"left\">\n";
	substr(@text[0], 0, 1)="";
	print "<br>";
	foreach $line (@text) {
	$line =~ s/\n/<br>/;
	print "$line";
	}
}
else {
	open(TEXT,"$dir_txt/$page.txt") || die $!;
	@text = <TEXT>;
	close (TEXT);
	foreach $line (@text) {
	$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";
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";
print "<div align=\"right\"><A HREF=\"resooindex.pl?$retour\"><B>Retour...</B></A>\n";
print "$finfont\n";
if ($compt == "3") {
	print "$fontpetite\n";
	print "<br>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;