#!C:/Perl/bin/perl.exe $discus_conf = 'd:/inetpub/wwwroot/wielens/discus_admin/discus.conf'; $pro_fileid = '3348162969543224'; #Discus board contact script #------------------------------------------------------------------------------- # DISCUS VERSION 3.10 COPYRIGHT NOTICE # # Discus 3.10 is copyright (c) 2000 by DiscusWare, LLC, all rights reserved. # The use of Discus is governed by the Discus License Agreement which is # available from the Discus WWW site at: # http://www.discusware.com/discus/license # # Pursuant to the Discus License Agreement, this copyright notice may not be # removed or altered in any way. #------------------------------------------------------------------------------- if (open (FILE, "$discus_conf")) { @file = ; close (FILE); foreach $line (@file) { if ($line =~ /^(\w+)=(.*)/) { $varname = $1; $value = $2; $value =~ s/\r//g; ${$varname} = $value; } } 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); } &ex('cleaning_jobs', 1); &parse_form; &header; &ex('printuntil', 1, 1, 0, "$L{BCTITLE}"); print "

$L{BCTITLE}"; print " ($FORM{'group'})" if $FORM{'group'}; print "\n"; print "

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

$L{BCMOD}

; close (PASSWD); if ($FORM{'group'} ne "") { $FORM{'group'} =~ s/\W//g; $FORM{'group'} =~ tr/A-Z/a-z/; open (GROUP, "$admin_dir/groups.txt"); @group = ; close (GROUP); $group = $FORM{'group'}; ($grp) = grep(/^$group:/, @group); ($grp, $mod) = split(/:/, $grp); @mods = split(/,/, $mod); } foreach $line (@passwd) { ($usr, $pas, $em, $fn) = split(/:/, $line); if ($FORM{'group'}) { next if !grep(/^$usr$/, @mods); } $fn = $usr if ($fn eq "fullname" || $fn eq "" || $fn !~ m|\S|); $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"; if ($GLOBAL_OPTIONS{'admin_contact_name'}) { $contact = "$GLOBAL_OPTIONS{'admin_contact_name'}" if $GLOBAL_OPTIONS{'admin_contact_email'} ne ""; $contact = "$GLOBAL_OPTIONS{'admin_contact_name'}" if $GLOBAL_OPTIONS{'admin_contact_email'} eq ""; } print "

$L{BCINSTR} $contact.

\n"; print "

\n"; print "$L{BCBACK}\n"; print "\n"; &ex('printuntil', 11, 17, 0, "", 0, 1); exit(0); # END - FILE IS CORRECTLY UPLOADED #