#Discus board show script
#-------------------------------------------------------------------------------
#This script is copyright (c) 1997-98 by Kevin W. Paulisse and William F. Polik,
#all rights reserved.  You may not modify or delete this copyright header.
#The use of this product is subject to a license agreement.  Contact Kevin
#Paulisse (paulisse@mulliken.chem.hope.edu) for further information.
#-------------------------------------------------------------------------------

open (FILE, "$discus_conf");
@file = <FILE>;
close (FILE);
$evals = "";
foreach $line (@file) {
    if ($line =~ /^(\w+)=(.*)/) {
        $varname = $1;
        $value = $2;
        $value =~ s/'/\\'/g;
        $evals .= "\$$varname='$value'; ";
    }
}
eval($evals);
require "$admin_dir/source/src-board-subs-common";
&read_cookie;
&header;
$query_string = $ENV{'QUERY_STRING'};
$query_string =~ m|(\d+)/(\d+)|;
$topic = $1; $page = $2;
if ($topic == 0) {
    $query_string = $COOKIE{'curloc'};
    $query_string =~ m|(\d+)/(\d+)|;
    $topic = $1; $page = $2;
}
$file = "$html_dir/messages/$topic/$page.$ext";
if (open (BOARD, "$html_dir/board.html")) {
    @board = <BOARD>;
    close (BOARD);
    if (!grep(/<FRAME Src=/i, @board)) {
        if (-e $file) {
	    open (FILE, $file);
	    @file = <FILE>;
	    close (FILE);
	    print @file;
	    exit(0);
	} else {
	    print "<H1>Error showing file</H1>\n";
	    print "File does not exist.\n";
	    exit(0);
	}
    }
    foreach $line (@board) {
	if ($line =~ m|<FRAME Src="([^"]*)messages/board-topics.html"|i) {
            print "<FRAME SRC=\"$html_url/messages/board-topics.html\" Name=\"Main\">\n" if $topic == 0;
            print "<FRAME Src=\"$html_url/messages/$topic/$page.$ext\" Name=\"Main\">\n" if $topic != 0;
        } elsif ($line =~ m|<FRAME Src="board-menu.$ext"|i) {
            print "<FRAME Src=\"$html_url/board-menu.$ext\" Name=\"Menu\">\n";
        } elsif ($line =~ m|<FRAME Src="board-menu.html"|i) {
            print "<FRAME Src=\"$html_url/board-menu.html\" Name=\"Menu\">\n";
        } else {
            print $line;
        }
    }
    exit(0);
} else {
    if (-e $file) {
	open (FILE, $file);
	@file = <FILE>;
	close (FILE);
	print @file;
	exit(0);
    } else {
	print "<H1>Error showing file</H1>\n";
	print "File does not exist.\n";
	exit(0);
    }
}