#!/usr/bin/perl use File::Find; use File::stat ":FIELDS"; $toplevel = "$ENV{'DOCUMENT_ROOT'}"; find sub { if ( $File::Find::name =~/YaBB\.pl/i) { $st = stat($File::Find::name); if (-T $File::Find::name) { $ascii = qq~Yes~; } elsif (-B $Find::File::name) { $ascii = qq~NO~; } $yabbpath .= qq~Path: $File::Find::name | ASCII File?: $ascii | File's Mode: $st_mode (Ignore on Windows System)
\n~; } }, $toplevel; if (!$yabbpath) { $yabbpath = qq~YaBB not found in main site directory listing: $ENV{'DOCUMENT_ROOT'}
~; } $yabbpath .= qq~
\n~; print qq~Content-type: text/html;\n\n~; print qq~

~; while( ($key, $value) = each %ENV) { $value =~ s/(\S)\;(\S)/$1
$2/isg; $value = $value ? $value : "- EMPTY HASH VALUE -"; if ($key =~ /DOCUMENT_ROOT/i) { $key = qq~$key~; $value =qq~$value~; } if ($key =~ /SERVER_SOFTWARE/i) { $key = qq~$key~; $value =qq~$value~; } print qq~~; } print qq~
Dave's YaBB Diagnostic Script
YaBB File(s) Info:
$yabbpath
$key:~; print qq~$value
~; print qq~
~; foreach $a(@statinfo) {print qq~$a~;} print qq~ ~; 1;