#!/usr/local/bin/perl $discus_conf = '/usr/u/web/estarc/discus_admin_1969/discus.conf'; #Discus board contact 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; &header; &ex('printuntil', 1, 1, 0, "$L{BCTITLE}"); print "

$L{BCTITLE}\n"; print "

\n"; &ex('printuntil', 3, 9, 0, "", 0, 1); print "

$L{BCMOD}

; close (PASSWD); foreach $line (@passwd) { ($usr, $pas, $em, $fn) = split(/:/, $line); $emf = 0; print "

"; if ($pro) { $filename = "$usr-MODERATOR.txt"; $filename = &getfn($filename); if (-e "$admin_dir/profiles/$filename") { print "$fn"; next; } } if ($em ne "email" && $em ne "none" && $em ne "") { print ""; $emf = 1; } if ($fn ne "fullname" && $fn ne "none" && $fn ne "") { print $fn; } else { print "\u$usr"; } print "" if $emf ne ""; print "

\n"; } print "

\n"; print "

$L{BCINSTR} $contact.

\n"; print "

\n"; print "$L{BCBACK}\n"; print "\n"; &ex('printuntil', 11, 17, 0, "", 0, 1); exit(0);