#!/usr/bin/perl5 $discus_conf = '/var/www/virtual/magickal/readers/magmsgmaster000/discus.conf'; #Discus board tree viewer 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 = ; 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 "Script Execution Error\n"; print "\n"; print "

Script Execution Error

\n"; print "Discus scripts could not execute because the discus.conf file\n"; print "could not be opened."; print "

Reason: $!" if $!; print "

This generally indicates a setup error of some kind.\n"; print "Consult the Discus "; print "Resource Center for troubleshooting information.\n"; exit(0); } &parse_form; &read_cookie; $browser = $ENV{'HTTP_USER_AGENT'}; if ($browser !~ /MSIE/) { if ($browser =~ m|Mozilla/(\d+)|) { $dig = $1; if ($dig < 4 && $interface eq "noframes") { $nsbug = 1; } } } &ex('build_graphical_tree', "", "**", 0, "", "