#!/usr/bin/perl

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

require "resooconf.pl";
require "resoobbsconf.pl";


######## recuperation des données ########

$query = $ENV{'QUERY_STRING'};

if (!$query) {
	$query = "";
	$page = "bbs";
}
elsif ($query =~ /.*topic.*/) {
	$show_mesg = 0;
	$query =~ s/topic//;
	$numtopic = $query;
	$query = "";
	$page = "bbs";
}
elsif ($query =~ /.*mesg.*/) {
	$show_mesg = 1;
	$query =~ s/mesg//;
	$nummesg = $query;
	$query = "";
	$page = "bbs";
}
else {
    $page = "";
    open(BOARD,"$query") || &error(no_perm);
    @board = <BOARD>;
    close (BOARD);
}

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

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

&head_bbs;

print "<table border=\"0\" width=\"600\">\n";
print "<tr>\n";
print "<td width=\"600\" colspan=\"3\">\n";
print "$font\n";

if (( $page eq "bbs" ) or ($query =~ /.*faq.*/)) {
    if ( $page eq "bbs" ) {
        print "<div align=\"right\"><A HREF=\"$retourbbs\">$fontlien<B>Retour...</B>$finfont</A></div>\n";
    }
    else {
        print "<div align=\"right\"><A HREF=\"$bbslink\">$fontlien<B>Retour Forum</B>$finfont</A></div>\n";
    }
    print "<br>\n";
    print "$fonttitre\n";
    if ( $page eq "bbs" ) {
        &get_comp;
        &incr_comp;
	print "Forum $title\n";
    }
    else {
	print "Aide Forum $title\n";
    }
    print "$finfonttitre<br><hr>\n";
    print "Si vous avez un problème avec cette page, merci d'en informer ";
    print "<a href=\"mailto:$admin\">$fontlien l'administrateur$finfont</a> de ce site<br>\n";
    print "$finfont";
    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 colspan=\"3\" width=\"600\" valign=\"TOP\">\n";
print "$font \&nbsp\;<br>\n";



if ( $page eq "bbs" ) {
    open (MAXNUM, "$dir_bbs/$datafile");
    @maxnum = <MAXNUM>;
    close (MAXNUM);
    $maxnum = @maxnum[0];
    $pageprec = "  [ Pas de page prédédente ]  \n";
    $pagesuiv = "  [ Pas de page suivante ]  \n";
    if ($show_mesg) {
	print "<center><hr size=7 width=75\%></center>\n";
	print "<center>\[ <a href=\"\#post\">$fontlien<B>Envoyer un message</B>$finfont</a> \]";
	if ( $show_faq = "1" ) {
		print " \[ <a href=\"resoobbs.pl?$dir_bbs/$faqfile\">$fontlien<B>Voir l'aide</B>$finfont</a> \]";
	}
	print " \[ <a href=\"resoobbs.pl?topic\">$fontlien<B>Affichage par sujet</B>$finfont</a> \]\n";
	print "<hr size=7 width=75\%></center>\n";
        print "<div align=left>\n";
        print "<ul>\n";
	if (!$nummesg) {
	    $nummesg = $maxnum;
	}
	$defautnum = $defautnummesg;
	for ($c = $nummesg ; $c > $nummesg-$defautnum ; $c--){
	    if (-s "$mesgdir/$c.$ext1") {
    		open (MESG, "$mesgdir/$c.$ext1");
    		@board2 = <MESG>;
    		close (MESG);
		&get_mesg2;
		print "<li><a href=resoobbs.pl?$mesgdir/$num2.$ext1>$bbssubject2</a> - <b>$bbsname2</b> - <i>$bbsdate2";
		if ($use_time) {
		    print " - $bbsheure2</i>";
		}
		else {
		    print "</i>";
		}
		if ($num_followup2) {
		    if ($num_followup2 == 1) {
			print " - (1&nbsp;réponse)\n";
		    }
		    else {
			print " - ($num_followup2&nbsp;réponses)\n";
		    }
		}
		else {
#		    print " - (pas de réponses)\n";
		    print "\n";
		}
	    }
	    else { ## rajoute une itération
		if ($nummesg-$defautnum > 0) {
		    $defautnum++;
		}
	    }
	}
        print "</ul>\n";
        print "</div>\n";
	print "<center>";
	
	$boucle = 0;
        for ($d = $c ; $d > 0 ; $d--){
	    if (!$boucle){
		if (-s "$mesgdir/$d.$ext1") {
	    	    $pageprec = "  [ <a href=\"resoobbs.pl?mesg$d\">$fontlien<B>Afficher la page prédédente</B>$finfont</a> ]  \n";
		    $boucle = 1;
		}
	    }
	}
        print $pageprec;
	
	$boucle = 0;
	while ($boucle < $defautnummesg){
    	    for ($d = $nummesg+1 ; $d < $maxnum+1 ; $d++){
		if ($boucle < $defautnummesg){
		    if (-s "$mesgdir/$d.$ext1") {
	    		$pagesuiv = "  [ <a href=\"resoobbs.pl?mesg$d\">$fontlien<B>Afficher la page suivante</B>$finfont</a>  ] \n";
			$boucle++;
		    }
		}
	    }
	    $boucle = $defautnummesg;
	}
        print $pagesuiv;

        print "</center>";
        print "<center><a name=post><hr size=7 width=75\%></a><br>\n";
	print "$fontstitre Envoyer un message $finfontstitre</center><br>\n";
    	&rest_of_form_index;

	print "<center><hr size=7 width=75\%>\n";
	print "\[ <a href=\"\#post\">$fontlien<B>Envoyer un message</B>$finfont</a> \]";
	if ( $show_faq = "1" ) {
	    print " \[ <a href=\"resoobbs.pl?$dir_bbs/$faqfile\">$fontlien<B>Voir l'aide</B>$finfont</a> \]";
	}
	print " \[ <a href=\"resoobbs.pl?topic\">$fontlien<B>Affichage par sujet</B>$finfont</a> \]\n";
	print "<hr size=7 width=75\%></center>\n";
    }
    else {
	print "<center><hr size=7 width=75\%></center>\n";
	print "<center>\[ <a href=\"\#post\">$fontlien<B>Envoyer un message</B>$finfont</a> \]";
	if ( $show_faq = "1" ) {
		print " \[ <a href=\"resoobbs.pl?$dir_bbs/$faqfile\">$fontlien<B>Voir l'aide</B>$finfont</a> \]";
	}
	print " \[ <a href=\"resoobbs.pl?mesg\">$fontlien<B>Affichage par date</B>$finfont</a> \]\n";
	print "<hr size=7 width=75\%></center>\n";
        print "<div align=left>\n";
        print "<ul>\n";
	if (!$numtopic) {
	    $numtopic = $maxnum;
	}
	$defautnum = $defautnumtopic;
	for ($c = $numtopic ; $c > $numtopic-$defautnum ; $c--){
	    if (-s "$mesgdir/$c.$ext2") {
		$w=0;
    		openmesg2($c);
	    }
	    else { ## rajoute une itération
		if ($numtopic-$defautnum > 0) {
		    $defautnum++;
		}
	    }
	}
	print "</ul>\n";
	print "</div>\n";
        print "<center>";
	$boucle = 0;
        for ($d = $c ; $d > 0 ; $d--){
    	    if (!$boucle){
		if (-s "$mesgdir/$d.$ext2") {
	    	    $pageprec = "  [ <a href=\"resoobbs.pl?topic$d\">$fontlien<B>Afficher la page prédédente</B>$finfont</a> ]  \n";
		    $boucle = 1;
		}
	    }
	}
        print $pageprec;
	$boucle = 0;
	while ($boucle < $defautnumtopic){
    	    for ($d = $numtopic+1 ; $d < $maxnum+1 ; $d++){
		if ($boucle < $defautnumtopic){
		    if (-s "$mesgdir/$d.$ext2") {
	    		$pagesuiv = "  [ <a href=\"resoobbs.pl?topic$d\">$fontlien<B>Afficher la page suivante</B>$finfont</a> ]  \n";
			$boucle++;
		    }
		}
	    }
	    $boucle = $defautnumtopic;
	}
        print $pagesuiv;
	
	print "</center>";
	print "<center><a name=post><hr size=7 width=75\%></a><br>\n";
	print "$fontstitre Envoyer un message $finfontstitre</center><br>\n";
	&rest_of_form_index;
	print "<center><hr size=7 width=75\%>\n";
	print "\[ <a href=\"\#post\">$fontlien<B>Envoyer un message</B>$finfont</a> \]";
	if ( $show_faq = "1" ) {
	    print " \[ <a href=\"resoobbs.pl?$dir_bbs/$faqfile\">$fontlien<B>Voir l'aide</B>$finfont</a> \]";
	}
	print " \[ <a href=\"resoobbs.pl?mesg\">$fontlien<B>Affichage par date</B>$finfont</a> \]\n";
	print "<hr size=7 width=75\%></center>\n";
    }
}




else {

############## affichage de la page FAQ

    if ($query =~ /.*faq.*/) {
	print "<center><hr size=7 width=75\%></center>\n";
	print "<center>[&nbsp;<b>Aide/Forum</b>&nbsp; ]        [ <A HREF=\"resoobbs.pl\">$fontlien<b>Retour Forum</b>$finfont</A> ]</center>\n";
	print "<hr size=7 width=75%>\n";
	print "<ul>\n";
        foreach $line (@board) {
            print "$line";
        }
	print "</ul>\n";
	print "<hr size=7 width=75%>\n";
	print "<center>[&nbsp;<b>Aide/Forum</b>&nbsp; ]        [ <A HREF=\"resoobbs.pl\">$fontlien<b>Retour Forum</b>$finfont</A> ]</center>\n";
    }


############## affichage des pages messages


    else {
        &get_mesg;

	print "<center>$fonttitre $bbssubject $finfonttitre</center>";
	print "<center><hr size=7 width=75\%></center>\n";
	print "<center>\[ <a href=\"\#postfp\">$fontlien<B>Répondre au message</B>$finfont</a> \]";
	if ( $show_faq = "1" ) {
		print " \[ <a href=\"resoobbs.pl?$dir_bbs/$faqfile\">$fontlien<B>Voir l'aide</B>$finfont</a> \]";
	}
	print " \[ <a href=\"resoobbs.pl\">$fontlien<B>Retour Forum</B>$finfont</a> \]\n";
	print "<hr size=7 width=75\%></center>\n";

	if ($use_cadre == 1) {
	    print "<center><br><table width=100% border=1><tr><td$couleurtab_bbs1>$font";
	}

        print "<div align=left>\n";

	print "Envoyé par ";
	if ($bbsemail) {
	    print "<a href=\"mailto:$bbsemail\">$fontbbs $bbsname $finfontbbs</a> le $bbsdate";
	    if ($use_time) {
		    print " - $bbsheure<br>\n";
	    }
	    else {
		    print "<br>\n";
	    }
	}
	else {
	    print "$fontbbs $bbsname $finfontbbs le $bbsdate";
	    if ($use_time) {
		    print " - $bbsheure<br>\n";
	    }
	    else {
		    print "<br>\n";
	    }
	}
	if ($use_cadre == 1) {
	    print "$finfont</td></tr>\n<tr><td$couleurtab_bbs2>$font";
	}

	if ($message_img) {
	    print "<center><img src=\"$message_img\"></center><p>\n";
	}
	print "<br><UL>$fontbbs $bbsbodymess $finfontbbs</UL>\n";
	print "<br>\n";
	if ($message_url) {
	    print "<ul><li><a href=\"$message_url\">$message_url_title</a></ul>\n";
	}

	if ($use_cadre == 1) {
	    print "$finfont</tr></td></table><br></center>";
	}

	if ($orignum) {
	    open(BOARD,"$mesgdir/$orignum.$ext1") || &error(no_file);
	    @board2 = <BOARD>;
	    close (BOARD);
            &get_mesg2;
	    
	    print "En réponse à: <a href=\"resoobbs.pl?$mesgdir/$num2\.$ext1\">$bbssubject2</a> envoyé par ";

		if ($bbsemail2) {
		    print "<a href=\"mailto:$bbsemail2\">$bbsname2</a> le $bbsdate2<p>\n";
		}
		else {
		    print "$bbsname2 le $bbsdate2<p>\n";
		}
	}
	
	print "<hr size=7 width=75%><p>\n";
	print "<a name=\"followups\">Les réponses:</a>\n";

        $followup =~ s/^\|//;
        $followup =~ s/\|$//;
        $followup =~ s/\n//;
	if ($followup){
	    print "<ul>";
    	    my @followups = split(/\|/,$followup);
    	    foreach $followupnum(@followups) {
		$w=0;
		&openresp("$followupnum");
	    }
	}
	else {
	    print "   ...pas de réponses<br>";
	}


	print "<br><hr size=7 width=75%><p>\n";
        print "</div>\n";
	print "<a name=\"postfp\"><center><H2>Répondre au message</H2></center></a><p>\n";
        &rest_of_form_index;
	print "<center><hr size=7 width=75\%>\n";
	print "\[ <a href=\"\#post\">$fontlien<B>Répondre au message</B>$finfont</a> \]";
	if ( $show_faq = "1" ) {
		print " \[ <a href=\"resoobbs.pl?$dir_bbs/$faqfile\">$fontlien<B>Voir l'aide</B>$finfont</a> \]";
	}
	print " \[ <a href=\"resoobbs.pl\">$fontlien<B>Retour Forum</B>$finfont</a> \]\n";
	print "<hr size=7 width=75\%></center>\n";
    }
}



print "$finfont\n";
print "</td>\n";
print "</tr>\n";
print "</table>\n";

print "<table border=\"0\" width=\"600\">\n";
print "<tr>\n";
print "<td width=\"170\">\n";
print "$font\n";
print "<br><br><br>\n";
print "<a href=\"resooboardadmin.pl\">$fontlien Accès Modérateur$finfont</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=\"$retourbbs\">$fontlien<B>Retour...</B>$finfont</A>\n";
if ( $page eq "bbs" ) {
	if ($compt == "3") {
		print "$fontpetite\n";
		print "<br>Cette page a été consultée $comp fois.</div>\n";
		print "$finfontpetite\n";
	}
}

print "$finfont\n";
print "</td>\n";
print "</tr>\n";
print "</table>\n";

&foot;