home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.sunet.sepub/pictures
/
2014.11.ftp.sunet.se-pictures.tar
/
ftp.sunet.se
/
pub
/
pictures
/
ACiD-artpacks
/
www
/
mirrors
/
acheron
/
cgi-bin
/
discus
/
show.cgi
< prev
Wrap
Text File
|
1999-01-26
|
3KB
|
89 lines
#!/usr/bin/perl
$discus_conf = '/usr/local/www/www.acheron.org/discus_admin_245059122/discus.conf';
#Discus board show script
#-------------------------------------------------------------------------------
# This script is copyright (c) 1998 by DiscusWare, LLC, all rights reserved.
# Its use is subject to the license agreement that can be found at the following
# URL: http://www.chem.hope.edu/discus/license
#-------------------------------------------------------------------------------
if (open (FILE, "$discus_conf")) {
@file = <FILE>;
close (FILE);
$evals = "";
foreach $line (@file) {
if ($line =~ /^(\w+)=(.*)/) {
$varname = $1;
$value = $2;
$value =~ s/'/\\'/g; $value =~ s/\r//g;
$evals .= "\$$varname='$value'; ";
}
}
eval($evals);
require "$admin_dir/source/src-board-subs-common";
} else {
print "Content-type: text/html\n\n";
print "<HTML><HEAD><TITLE>Script Execution Error</TITLE></HEAD>\n";
print "<BODY BGCOLOR=#ffffff TEXT=#000000>\n";
print "<H1>Script Execution Error</H1>\n";
print "Discus scripts could not execute because the discus.conf file\n";
print "could not be opened.";
print "<P>Reason: <FONT COLOR=#ff0000><B>$!</B></FONT>" if $!;
print "<P>This generally indicates a setup error of some kind.\n";
print "Consult the <A HREF=\"http://www.chem.hope.edu/discus/rc\">Discus ";
print "Resource Center</A> for troubleshooting information.</BODY></HTML>\n";
exit(0);
}
&read_cookie;
$query_string = $ENV{'QUERY_STRING'};
$query_string =~ m|(\d+)/(\d+)|;
$topic = $1; $page = $2;
if ($topic == 0) {
$query_string = $COOKIE{'curloc' . $COOKIE_ID};
$query_string =~ m|(\d+)/(\d+)|;
$topic = $1; $page = $2;
}
if (-e "$message_dir/$topic") {
$secure = 0;
} else {
$secure = 1;
}
if ($interface eq "noframes") {
&seturl("$message_url/$topic/$page.$ext") if $secure == 0;
&seturl("$script_url/board-auth.$cgi_extension?file=/$topic/$page.$ext") if $secure == 1;
exit(0);
}
$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 (!$secure) {
&seturl("$message_url/$topic/$page.$ext");
} else {
if (-e "$secdir/$topic/$page.$ext") {
&seturl("$script_url/board-auth.$cgi_extension?file=/$topic/$page.$ext");
} else {
&error_message("Invalid Page", "The requested page does not exist.");
}
}
exit(0);
}
&header;
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 && !$secure);
print "<FRAME Src=\"$script_url/board-auth.$cgi_extension?file=/$topic/$page.$ext\" Name=\"Main\">\n" if ($topic != 0 && $secure);
} 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 {
&error_message("File Error", "The file <TT>board.html</TT> has been deleted. Please ask the administrator of this board to restore that file.");
}