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

fix WebGUI::Paths import parameters

Browse source
This commit is contained in:
Graham Knop 2010-02-26 14:11:03 -06:00
parent a141de0ebf
commit 0df14c680c
1 changed files with 11 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lib/WebGUI/Paths.pm
View file

@ -48,8 +48,8 @@ BEGIN {
logConfig => catfile($root, 'etc', 'log.conf'),
spectreConfig => catfile($root, 'etc', 'spectre.conf'),
upgrades => catfile($root, 'docs', 'upgrades'),
preloadCustom => catfile($root, 'sbin', 'preload.custom'),
preloadExclusions => catfile($root, 'sbin', 'preload.exclude'),
preloadCustom => catfile($root, 'etc', 'preload.custom'),
preloadExclusions => catfile($root, 'etc', 'preload.exclude'),
extras => catdir($root, 'www', 'extras'),
defaultUploads => catdir($root, 'www', 'uploads'),
defaultCreateSQL => catdir($root, 'docs', 'create.sql'),
@ -64,17 +64,21 @@ BEGIN {
sub import {
my $class = shift;
given (\@_) {
when ('-inc') {
my @invalid;
for my $param (@_) {
if ($param eq '-inc') {
$class->includePreloads;
}
when ('-preload') {
elsif ($param eq '-preload') {
$class->preloadAll;
}
default {
warn "Invalid option $_";
else {
push @invalid, $param;
}
}
if (@invalid) {
die 'Invalid options ' . join(', ', @invalid);
}
}
sub siteConfigs {