$pathfind{'1'} |
|
~;
if (!$FORM{'path_request'}) {
$yymain .= "$pathfind{'2'}";
} else {
use File::Find;
$toplevel = "$ENV{'DOCUMENT_ROOT'}";
find({ wanted => \&List }, $toplevel);
if ($dir_path) {
$yymain .= qq~
$pathfind{'3'} $FORM{'path_request'}: $dir_path ~; } else { $yymain .= qq~ $pathfind{'3'} $FORM{'path_request'}: $pathfind{'4'} ~; } } $yymain .= qq~ |