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

progress and WebGUI::Paths conversion

Browse source
This commit is contained in:
Graham Knop 2010-02-23 10:06:50 -06:00
parent 90d63c6713
commit 29df110409
23 changed files with 63 additions and 333 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lib/Spectre/Admin.pm
View file

@ -24,6 +24,7 @@ use POE::Component::IKC::Server;
use POE::Component::IKC::Specifier;
use Spectre::Cron;
use Spectre::Workflow;
use WebGUI::Paths;
#-------------------------------------------------------------------
@ -136,7 +137,7 @@ Fetches the site from each defined site, and loads it into the Workflow and Cron
sub loadSiteData {
my ( $kernel, $self) = @_[ KERNEL, OBJECT ];
my $configs = WebGUI::Config->readAllConfigs($self->{_config}->getWebguiRoot);
my $configs = WebGUI::Config->readAllConfigs;
$self->debug("Reading site configs.");
foreach my $key (keys %{$configs}) {
next if $key =~ m/^demo/;
@ -194,7 +195,7 @@ sub new {
my $class = shift;
my $config = shift;
my $debug = shift;
Log::Log4perl->init( $config->getWebguiRoot."/etc/log.conf" );
Log::Log4perl->init( WebGUI::Paths->logConfig );
$Log::Log4perl::caller_depth = $Log::Log4perl::caller_depth+3;
my $logger = Log::Log4perl->get_logger($config->getFilename);
my $self = {_debug=>$debug, _config=>$config, _logger=>$logger};
@ -244,7 +245,7 @@ sub runTests {
my $class = shift;
my $config = shift;
print "Running connectivity tests.\n";
my $configs = WebGUI::Config->readAllConfigs($config->getWebguiRoot);
my $configs = WebGUI::Config->readAllConfigs;
foreach my $key (keys %{$configs}) {
next if $key =~ m/^demo/;
print "Testing $key\n";