#!/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~
Dave's YaBB Diagnostic Script | |
$yabbpath |
|
$key: | ~;
print qq~$value ~; print qq~ |