#!/usr/bin/perl

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

require "resooconf.pl";


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

$page = "link";

open(IDX,"$dir_txt/$page.idx");
@idx = <IDX>;
close (IDX);
#$titre = $idx[0];
#	$titre =~ s/\n//;
#	$renew = $titre;
#	&unword;
#	$titre = $renew;
$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;
	&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";
print "<div align=\"right\"><A HREF=\"resooindex.pl?$defautretour\"><B>Retour...</B></A></div>\n";
print "<br>\n";
print "$fonttitre\n";
print "$titre\n";
print "$finfonttitre<br><hr>\n";
if ($auteur) {
	print "Proposer un lien au <a href=\"mailto:$auteur?subject=suggestion page lien\">rédacteur</a> de cette page - \n";
}
if ($bbs == "3") {
	print "Réagir à cette page 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) { ## juste au cas où...
    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";
	}
    }
}

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=\"resoolinkadmin.pl\?$page\">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?$defautretour\"><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.</div>\n";
	print "$finfontpetite\n";
}
if ($maj) {
	print "$fontpetite\n";
	print "<div align=\"right\">Dernière mise à jour le $maj.</div>\n";
	print "$finfontpetite\n";
}
print "</td>\n";
print "</tr>\n";

print "</table>\n";

&foot;