oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added option to skip hourly modules on a per site basis.

Browse source
This commit is contained in:
JT Smith 2002-07-17 03:39:15 +00:00
parent f445a03a23
commit 9bc401a619
3 changed files with 15 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

15
sbin/runHourly.pl
View file

@ -19,9 +19,10 @@ BEGIN {
use DBI;
use strict qw(subs vars);
use Data::Config;
use WebGUI::Utility;
my (@files, $cmd, $namespace, $i, $file, $slash, $confdir, @plugins, $plugin, $plugdir);
my (@files, $cmd, $namespace, $file, $slash, $confdir, %plugins, $plugdir, $skip);
$slash = ($^O =~ /Win/i) ? "\\" : "/";
$confdir = $webguiRoot.$slash."etc".$slash;
$plugdir = $webguiRoot.$slash."sbin".$slash."Hourly".$slash;
@ -33,8 +34,7 @@ if (opendir (PLUGDIR,$plugdir)) {
$namespace = $1;
$cmd = "use Hourly::".$namespace;
eval($cmd);
$plugins[$i] = "Hourly::".$namespace."::process";
$i++;
$plugins{$namespace} = "Hourly::".$namespace."::process";
}
}
closedir(PLUGDIR);
@ -54,8 +54,13 @@ if (opendir (CONFDIR,$confdir)) {
unless (eval {$dbh = DBI->connect($config->param('dsn'),$config->param('dbuser'),$config->param('dbpass'))}) {
print "Can't connect to ".$config->param('dsn')." with info provided. Skipping.\n";
} else {
foreach $plugin (@plugins) {
&$plugin($dbh);
foreach $namespace (keys %plugins) {
$skip = $config->param('skipHourly');
$skip =~ s/ //g;
unless (isIn($namespace, split(/,/,$skip))) {
$cmd = $plugins{$namespace};
&$cmd($dbh);
}
}
$dbh->disconnect();
}