#Discus board contact 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";
&parse_form;
&header;
&ex('printuntil', 1, 1, 0, "$L{BCTITLE}");
print "<CENTER><FONT SIZE=+1><B>$L{BCTITLE}</B></FONT></CENTER>\n";
print "<HR>\n";
for ($i = 3; $i <= 9; $i += 2) {
	&ex('printuntil', $i, $i, 0, "");
}
print "<P>$L{BCMOD}<P><UL>\n";
open (PASSWD, "$admin_dir/passwd.txt");
@passwd = <PASSWD>;
close (PASSWD);
foreach $line (@passwd) {
	($usr, $pas, $em, $fn) = split(/:/, $line);
	$emf = 0; print "<LI>";
	if ($em ne "email" && $em ne "none" && $em ne "") {
		print "<A HREF=\"mailto:$em\">";
		$emf = 1;
	}
	if ($fn ne "fullname" && $fn ne "none" && $fn ne "") {
		print $fn;
	} else {
		print "\u$usr";
	}
	print "</A>" if $emf ne "";
	print "</LI>\n";
}
print "</UL><P>\n";
print "<P>$L{BCINSTR} $contact.<P>\n";
print "<HR><CENTER><BR>\n";
print "<A HREF=\"javascript:history.back()\">$L{BCBACK}</A>\n";
print "</CENTER>\n";
for ($i = 11; $i <= 17; $i += 2) {
	&ex('printuntil', $i, $i, 0, "");
}
exit(0);