Congratulations! You have successfully uploaded the Setup setup assistant to your server, and it is now being properly executed by your web server. In addition, it appears that your web server meets our system requirements for basic installation and operation of Discus.
</p>
$path_warning
<p>
On this page, you will be able to enter the parameters for your Discus board after reviewing the instructions and suggestions that have been provided for you. <b><font color=#ff0000>Don't just accept our guesses without reviewing them (and changing them if necessary)!</font></b>
</p>
<p>
When specifying directories, it is necessary to use the full directory path that your server "sees". This may or may not correspond to what you see when you log in with your Setup program (many web hosts seek to restrict you to only certain parts of the server to avoid interrupting their other customers). The suggestions are generally accurate or very close to being accurate. If you find yourself substantially changing the suggestions, you might be doing something wrong. </p>
<p>
Your server reports seeing this script as:
<br>
<b>$bdcgi$slash$prog</b>
</p>
$sees_warn
<p class="miniheader">Path to Perl, CGI Extension, License Information</p>
<p>
Setup has automatically selected the following parameters:
The path to Perl, Discus version, and Discus Pro license information (if any) were configured when you downloaded this file from DiscusWare's web server. The CGI extension is chosen to match the extension on this file. If any of these parameters is incorrect, you should download another copy of this script from DiscusWare.
The administration directory stores configuration files and password files for your Discus board. This directory is never accessed by a web browser. For your security, this directory should be "hidden" from the web server (out of the server's web space) if possible. In other words, the administration directory should <b>not</b> be accessible at <I>http://your.server.com/something</I>.
</p>
<p>
If you must put this directory in a place where it's accessible via the web, we suggest a long string of numbers (or something else random) after the directory name to make it more difficult for an attacker to guess the directory name. Note that if you don't hide this directory from your web server and someone finds it and accesses it via the web, they can look at your password files and other privileged information! Finally, this setting must be a <I>directory</I> and not a URL -- it should <B>not</B> start with <B>http://</B>.</p>
<p>
Our suggestions for this parameter are over 95% accurate!
The HTML files that come with Discus, such as the instructions and main menu, are placed in the HTML Directory. In addition, your message files (topics and messages), clipart, and icons are all stored in subdirectories of the HTML Directory. This should <b>not</b> go under your server's CGI directory (i.e., don't put it under your cgi-bin). The directory must be a <I>directory</I> and not a URL -- it should <B>not</B> start with <B>http://</B>!
</p>
<p>
Our suggestions for this parameter are generally quite accurate (unless you choose to rename "discus" to something else). The most common mistake in the suggestion is if the suggestion forgets to put in the directory immediately above "discus" -- sometimes named public_html, www, htdocs, docs, and so on. Or, sometimes the suggestion contains one of these directory names when it shouldn't.
You also need to give the URL that corresponds to the HTML Directory that you specified above. This <B>must</B> start with <B>http://</B>. If you changed "discus" to something else when setting up the HTML Directory, be sure to change it here too.
<p class="miniheader">Script Directory and URL</p>
<p>
The script (CGI) files that come with Discus, such as the board administration script and the new message search script, go into the Script Directory. (These are the Perl scripts that actually power Discus by writing to the message files.)
</p>
<p>
The suggestion for this parameter is over 99% accurate. You may change the "discus" part at the end if you want to, but don't change anything else unless you really know what you're doing.
You also need to give the URL that corresponds to the Script Directory that you specified above. This suggestion for this parameter has proven to be over 99% accurate. If you changed the "discus" part in the Script Directory, be sure to change it here as well. Don't change anything else unless you really know what you're doing.
<p class="miniheader">Title and Contact Information</p>
<p>
Here is where you specify the title of your discussion board. Choose any title you wish. Since it is fairly difficult to change this later, please be sure to double-check your spelling!
</p>
<p>
Board Title:<br>
<Input TYPE=text SIZE=50 NAME=title></p>
<p>
Enter the name and e-mail address of the person who is to be contacted if there is a problem with the board. When users receive error messages, they are told to contact this person. Generally you will enter your own name and e-mail address here. This is very easy to change later.</p>
<p>
Board Contact Person:<br>
<Input TYPE=text SIZE=50 NAME=contact_name>
</p>
<p>
Board Contact E-mail Address:<br>
<Input TYPE=text SIZE=50 NAME=contact_email>
</p>
<p class="miniheader">User Interface Options</p>
<p>
Available translations of the Discus User Interface are indicated on the list below. Choose the desired language for your User Interface from this list.
</P>
<p>
User Interface Language:<br>
<SELECT NAME=language SIZE=1>
<OPTION VALUE=english SELECTED>English
$language_list
</SELECT>
</p>
<p class="miniheader">Submit the Form</p>
<p>
When you have filled in all of the blanks above, click the button to generate your individual customized Discus distribution. Please note that <B>processing could take several seconds</B>, so please click the button only one time, and be patient.</p>
<p>
<input type=submit value="Submit Form">
</p>
</body></html>
_END_
exit(0);
sub check {
my ($hr, $arr, $prog) = @_;
foreach my $l (@{ $arr }) {
my $dr = $hr->{$l};
next if $dr eq "";
$dr =~ s%\\%/%g;
$dr =~ s%/$%%g;
next if $dr eq "";
if (-e "$dr/$prog") {
return $dr;
}
}
my $c = determine_cwd();
return $c if $c ne "";
}
sub determine_cwd {
my $filename = $0;
if ($filename =~ m|(.*)/(.*)|) {
$filename = $2;
}
undef my @parent;
my $ctr = 100;
my $dots = "";
my $parent = "";
O: while ($ctr > 0) {
$ctr -= 1;
$dots .= "/" if $dots ne "";
$dots .= "..";
if (opendir(DIR, $dots)) {
I: while (my $dir = readdir(DIR)) {
next if $dir =~ m|^\.+$|;
next if !-d "$dots/$dir";
if (scalar(@parent)) {
$parent = "/" . join("/", reverse(@parent));
} else {
$parent = "";
}
if (-e "$dots/$dir$parent/$filename") {
push (@parent, $dir);
last I;
}
}
closedir(DIR);
} else {
last O;
}
$parent = "/" . join("/", reverse(@parent));
if (-e "$parent/$filename") {
last O;
}
}
$parent = "/" . join("/", reverse(@parent));
if ($^O eq "MSWin32") {
foreach my $dr ('c' .. 'z') {
if (-e "$dr:$parent/$filename") {
return "$dr:$parent";
}
}
}
return $parent;
}
sub returns_one {
return 1;
}
sub header {
my ($x) = @_;
$| = 1;
print "Content-type: text/html\n\n";
return undef if $x eq "";
print "<html><head><title>$x</title></head>\n";
print "<body><h1>$x</h1><hr>\n";
print "<pre>\n";
return undef;
}
sub perl_sysreq {
print "\n";
print "Discus will not run on this system, as your Perl interpreter\n";
print "does not meet the system requirements. You should upgrade your\n";
print "Perl interpreter at <a href='http://www.cpan.org'>CPAN</a> (for unix) or at ";
print "<a href='http://www.activestate.com'>ActiveState</a> (for\nWindows) to be able ";
print "to run Discus and other CGI scripts like it.\n\n";
print "Your Perl version is: $]\n";
print "Your OS is reported as: $^O\n";
print "The exact error was: $@\n" if ($@ ne "");
print "\n";
print "This is not a malfunction in Discus. We regret that DiscusWare\n";
print "Support cannot assist you with this problem.\n";
