Added more extensive logging to file system problems.

This commit is contained in:
JT Smith 2002-06-07 01:23:59 +00:00
parent e368224215
commit f9f6bc6497
4 changed files with 44 additions and 35 deletions

View file

@ -21,14 +21,10 @@ use strict qw(subs vars);
use Data::Config;
my (@files, $cmd, $namespace, $i, $file, $confdir, @plugins, $plugin, $plugdir);
if ($^O =~ /Win/i) {
$confdir = $webguiRoot."\\etc\\";
$plugdir = $webguiRoot."\\sbin\\Hourly\\";
} else {
$confdir = $webguiRoot."/etc/";
$plugdir = $webguiRoot."/sbin/Hourly/";
}
my (@files, $cmd, $namespace, $i, $file, $slash, $confdir, @plugins, $plugin, $plugdir);
$slash = ($^O =~ /Win/i) ? "\\" : "/";
$confdir = $webguiRoot.$slash."etc".$slash;
$plugdir = $webguiRoot.$slash."sbin".$slash."Hourly".$slash;
if (opendir (PLUGDIR,$plugdir)) {
@files = readdir(PLUGDIR);