DISCUSWARE EMPLOYEE SECTION\n" if $discusware_employee;
print "\n\n BOARD ADMINISTRATOR SECTION\n" if $is_the_superuser;
}
if ($discusware_employee) {
print "License: $pro_license\n";
print "\n";
print "\n";
print "\n";
print "\n";
eval '($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat "$html_dir";';
print "HTML dir UID: $uid \n";
print "HTML dir GID: $gid \n";
print "HTML dir created: $ctime \n";
print "HTML dir modified: $mtime \n";
print "HTML dir accessed: $atime \n";
print "Begin discus.conf file:\n";
open (DISCUSCONF, "$admin_dir/discus.conf");
while () {
print;
}
close (DISCUSCONF);
print "End discus.conf file.\n";
print "Begin email.txt file:\n";
open (DISCUSCONF, "$admin_dir/email.txt");
while () {
print;
}
close (DISCUSCONF);
print "End email.txt file.\n";
eval 'print "Server UID: $>\n";';
eval 'print "Server GID: $)\n";';
open (DATA, "$admin_dir/data.txt"); @data = ; close (DATA);
$data = $data[0]; chomp $data;
print "Testing data.txt file writing ability...\n";
print "Page counter before write (data.txt) -- $data\n";
$DIAGNOSTICS = 1 if $FORM{'perform_diagnostics'};
&ex('get_number', 1);
open (DATA, "$admin_dir/data.txt"); @data = ; close (DATA);
$data = $data[0]; chomp $data;
print "Page counter after write (data.txt) -- $data\n";
open (POSTINDEX, "$admin_dir/postindex.txt"); @data = ; close (POSTINDEX);
$data = $data[0]; chomp $data;
print "Post counter (postindex.txt) -- $data\n";
print "Global Options\n";
foreach $key (sort keys(%GLOBAL_OPTIONS)) {
print "$key = '$GLOBAL_OPTIONS{$key}'\n";
}
print "\n\n";
opendir(DIR, "$admin_dir/msg_index");
$count = 0; $lasttime = 0; $topics = 0; $lasttime_topic = 0;
while ($dir = readdir(DIR)) {
next if $dir !~ m|-log.txt$|;
$topics += 1;
$count_topic = 0; $lasttime_topic = 0;
open (FILE, "$admin_dir/msg_index/$dir");
while () {
@c = split(/;/, $_);
if ($c[2] > $lasttime) {
$lasttime = $c[2];
}
if ($c[2] > $lasttime_topic) {
$lasttime_topic = $c[2];
}
$count += 1;
$count_topic += 1;
}
close (FILE);
print "\n";
}
closedir(DIR);
print "\n";
print "\n";
print "Error Log:\n";
open (ERRORS, "$admin_dir/errors.txt");
while () {
print;
}
close (ERRORS);
print "\n";
}
if ($is_the_superuser || $discusware_employee) {
print "\nDIRECTORY LISTINGS\n";
print "Displayed because you are the board administrator\n" if $is_the_superuser;
print "\n" if $discusware_employee;
if ($^O eq "MSWin32") {
print "NOTE: On Windows, the permissions and user/group information may be\n";
print "meaningless or misleading.\n\n";
}
&dirlist("$admin_dir");
&dirlist("$admin_dir/backups");
&dirlist("$admin_dir/locks");
&dirlist("$admin_dir/msg_index");
if ($pro) {
&dirlist("$admin_dir/profiles");
&dirlist("$admin_dir/queue");
&dirlist("$admin_dir/secure");
}
&dirlist("$admin_dir/source");
&dirlist("$admin_dir/..");
&dirlist("$html_dir");
&dirlist("$html_dir/..");
&dirlist("$message_dir");
print " |
\n";
} else {
opendir(DIR, "$admin_dir/msg_index");
$count = 0; $lasttime = 0; $topics = 0; $lasttime_topic = 0;
while ($dir = readdir(DIR)) {
next if $dir !~ m|-log.txt$|;
$topics += 1;
$count_topic = 0; $lasttime_topic = 0;
open (FILE, "$admin_dir/msg_index/$dir");
while () {
@c = split(/;/, $_);
if ($c[2] > $lasttime) {
$lasttime = $c[2];
}
if ($c[2] > $lasttime_topic) {
$lasttime_topic = $c[2];
}
$count += 1;
$count_topic += 1;
}
close (FILE);
print "";
}
closedir(DIR);
print "";
}
print "\nChecking Icons\n";
print "You should see a folder icon here ----> ![](\"$html_url/icons/tree_g.gif\") \n";
print " If you do not see it, click here to go";
print " to the Discus Support Center and\n do a search for 'Why does Discus not display the icons properly?' with";
print " the\n provided search tool.\n\n";
print "Your Discus version is $release_version";
print ".$free_revision FREE" if !$pro;
print ".$pro_revision PRO" if $pro;
print " ($DISCUS_release_date)\n";
print "\nChecking Individual Subroutines\n";
for ($i = 1; $i <= 20; $i += 1) {
$tmp = $/; $/ = "#---SEPARATOR---#";
if (open(FILE, "$admin_dir/source/src-board-subs-$i")) {
@file = ;
close (FILE);
$x = shift(@file);
while ($m = shift(@file)) {
@l = split(/\n/, $m);
@l = grep(/\S/, @l);
@l = grep(!/^\s*#/, @l);
$m = join("\n", @l);
$y = "0$i" if $i < 10;
$y = $i if $i >= 10;
if ($m =~ m|sub (\w+)\s*\{|) {
&prline("($y) $1");
eval $m;
if ($@) {
&prline(1);
print " Error was: $@\n";
} else {
&prline(2);
}
}
}
} else {
print "ERROR: Could not open src-board-subs-$i: $!\n";
}
$/ = $tmp;
}
if ($pro) {
for ($i = 100; $i <= 106; $i += 1) {
$tmp = $/; $/ = "#---SEPARATOR---#";
$fn = "src-board-subs-$i" . "_$pro_fileid";
if (open(FILE, "$admin_dir/source/$fn")) {
@file = ;
close (FILE);
$x = shift(@file);
while ($m = shift(@file)) {
@l = split(/\n/, $m);
@l = grep(/\S/, @l);
@l = grep(!/^#/, @l);
$m = join("\n", @l);
$y = "0$i" if $i < 10;
$y = $i if $i >= 10;
if ($m =~ m|sub (\w+)\s*\{|) {
&prline("($y) $1");
eval $m;
if ($@) {
&prline(1);
print " Error was: $@\n";
} else {
&prline(2);
}
}
}
} else {
print "ERROR: Could not open src-board-subs-$i: $!\n";
}
$/ = $tmp;
}
}
print "\nEnd diagnostics.\n\n";
print "\n\n";
if ($^O ne "MSWin32" && ($is_the_superuser || $discusware_employee)) {
print "\nADDITIONAL SERVER INFORMATION\n";
print "Displayed because you are the board administrator\n" if $is_the_superuser;
print "\n" if $discusware_employee;
print "\n";
&command("w");
&command("ps");
&command("ps -au");
&command("ps -aux");
&command("ps -Af");
print " |
\n";
}
print "\n";
exit(0);
}
sub command {
my ($cmd) = @_;
print "system% $cmd\n\n";
system($cmd);
print "\n";
}
#-------------------------------------------------------------------------------
#-------------------------------------------------------------------------------
# discus.conf is wrong
# You probably get a Script Execution Error from scripts
&prline(1);
print "\n";
print "You probably get a 'Script Execution Error' from the rest of the Discus\n";
print "scripts. Please wait while I attempt to find and fix the error...\n\n";
flush();
print "Step 1: Locating this script\n";
my $prog = $0;
print " This script's name is: $prog\n";
if ($prog =~ m|diagnose\.(\w+)$|) {
$before_path = $`; $cgi_ext = $1; $before_path =~ s/\/+$//;
} else {
print "Your Perl interpreter does not set the \$0 variable.\n";
print "You need a properly working Perl interpreter to run Discus.\n";
exit(0);
}
print " CGI extension is: $cgi_ext\n";
$full_path = "";
$full_path = check_full_path($before_path, $cgi_ext, $full_path) if $before_path;
if ($^O ne "MSWin32") {
$pwd = `pwd`; chomp $pwd;
$full_path = check_full_path($pwd, $cgi_ext, $full_path) if $pwd;
}
if (!eval 'use Cwd;') {
eval '$cwd = cwd();';
$full_path = check_full_path($cwd, $cgi_ext, $full_path) if $cwd;
}
$full_path = check_full_path($ENV{'SCRIPT_FILENAME'}, $cgi_ext, $full_path) if $ENV{'SCRIPT_FILENAME'};
$full_path = check_full_path($ENV{'PATH_TRANSLATED'}, $cgi_ext, $full_path) if $ENV{'PATH_TRANSLATED'};
print " Full path to this script: $full_path\n";
if (! $full_path) {
print "Sorry, but diagnostics couldn't find this script. Your problem cannot\n";
print "be fixed automatically.\n";
exit(0);
}
print "Step 2. Finding discus.conf file\n";
flush();
my $dc = $discus_conf;
$dc =~ s/\/discus\.conf$//;
my $dc2 = $dc;
my $s2 = ( $dc2 =~ s%/%%g );
$actual_discus_conf = "";
$i = $full_path; my $s1 = ( $i =~ s%/%%g );
O: for (my $j = 0; $j <= $s1; $j += 1) {
my $fpt = $full_path;
if ($fpt =~ s%((/[^/]+){$j})$%%) {
$fpt = "/" if $fpt eq "";
I: for (my $q = 0; $q <= $s2; $q += 1) {
my $dct = $dc;
if ($dct =~ s%^((/[^/]+){$q})%%) {
$dct = "/" if $dct eq "";
my $k = join("/", $fpt, $dct, "discus.conf");
$k =~ s%/+%/%g;
print " Trying $k: ";
if (-e "$k") {
print "Success!\n";
$actual_discus_conf = "$k";
last O;
} else {
print "No\n";
}
}
}
I: for (my $q = 0; $q <= $s2; $q += 1) {
my $dct = $dc;
if ($dct =~ s%((/[^/]+){$q})$%%) {
$dct = "/" if $dct eq "";
my $k = join("/", $fpt, $dct, "discus.conf");
$k =~ s%/+%/%g;
print " Trying $k: ";
if (-e "$k") {
print "Success!\n";
$actual_discus_conf = "$k";
last O;
} else {
print "No\n";
}
}
}
}
}
if (! $actual_discus_conf) {
print "\nSorry, I couldn't find your discus.conf file\n";
print "Please consult the following support document(s) for assistance:\n";
print " Script Execution Error\n";
print " Fixing a Script Execution Error if directory paths were changed\n";
exit(0);
}
print "Step 3. Reading your discus.conf file\n";
my $DC = {};
if (open(FILE, "< $actual_discus_conf")) {
while () {
if (m|^(\w+)=(.*)|) {
my ($k1, $k2) = ($1, $2);
$k2 =~ s/\r//g;
$DC->{$k1} = $k2;
$k2 =~ s/(\W)/join("", "&#", ord($1), ";")/ge;
print " '$k1' = '$k2'\n";
}
}
} else {
print " Your discus.conf file couldn't be opened: $!\n";
exit(0);
}
print "Step 4. Finding your HTML directory\n";
print " Trying discus.conf setting ($DC->{html_dir}): ";
$html_dir_real = check_html_path($DC->{html_dir}, "");
if ($html_dir_real) {
print "Success!\n";
} else {
print "No.\n";
for (my $w = 1; $w <= length($actual_discus_conf); $w += 1) {
if (substr($DC->{html_dir}, 0, $w) ne substr($DC->{admin_dir}, 0, $w)) {
$x = quotemeta(substr($DC->{html_dir}, 0, $w-1));
$j = $DC->{html_dir}; $j =~ s/^$x//;
$k = $DC->{admin_dir}; $k =~ s/^$x//;
$l = quotemeta($k); $dct = $actual_discus_conf;
$dct =~ s/$l//;
$dct =~ s/\/discus\.conf$//;
$bg = join("/", $dct, $j);
$bg =~ s%/+%/%g;
last;
}
}
if ($bg ne "") {
print " Trying best guess ($bg): ";
$html_dir_real = check_html_path($bg, $html_dir_real);
if ($html_dir_real) {
print "Success!\n";
} else {
print "No.\n";
}
}
if (! $html_dir_real) {
my $dd = $DC->{html_dir};
my $s3 = ( $dd =~ s%/%%g );
my $dc = $DC->{html_dir};
O: for (my $j = 0; $j <= $s1; $j += 1) {
my $fpt = $full_path;
if ($fpt =~ s%((/[^/]+){$j})$%%) {
$fpt = "/" if $fpt eq "";
I: for (my $q = 0; $q <= $s2; $q += 1) {
my $dct = $dc;
if ($dct =~ s%^((/[^/]+){$q})%%) {
$dct = "/" if $dct eq "";
my $k = join("/", $fpt, $dct);
$k =~ s%/+%/%g;
print " Trying $k: ";
if (-e "$k/messages/board-topics.html") {
print "Success!\n";
$html_dir_real = "$k";
last O;
} else {
print "No\n";
}
}
}
I: for (my $q = 0; $q <= $s3; $q += 1) {
my $dct = $dc;
if ($dct =~ s%((/[^/]+){$q})$%%) {
$dct = "/" if $dct eq "";
my $k = join("/", $fpt);
$k =~ s%/+%/%g;
print " Trying $k: ";
if (-e "$k/messages/board-topics.html") {
print "Success!\n";
$html_dir_real = "$k";
last O;
} else {
print "No\n";
}
}
}
}
}
}
}
if (! $html_dir_real) {
print "\nSorry, I couldn't find your HTML directory.\n";
exit(0);
}
$html_dir_real =~ s/\/+$//;
print " |