Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Support passing in of scriptpath, and config file location fixing.

Browse Source
This commit is contained in:
Chris 2012-12-30 16:22:18 +00:00
parent 196cbcbadf
commit 08363a3899
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Webperl/Application.pm
View File

@ -74,6 +74,8 @@ BEGIN {
# #
# - `config`, the location of the application config file, defaults to `config/site.cfg`. # - `config`, the location of the application config file, defaults to `config/site.cfg`.
# If a relative path is provided, it is assumed to be relative to the index.cgi # If a relative path is provided, it is assumed to be relative to the index.cgi
# - `scriptpath`, the path to the directory containing index.cgi. This is needed for
# scripts running inside mod_perl that may not have cwd set correctly.
# - `use_phpbb`, if set, the phpBB3 support module is loaded (and takes over auth: the # - `use_phpbb`, if set, the phpBB3 support module is loaded (and takes over auth: the
# `auth` argument is ignored if `use_phpbb` is set). # `auth` argument is ignored if `use_phpbb` is set).
# - `appuser`, a reference to a Webperl::AppUser subclass object to do application-specific # - `appuser`, a reference to a Webperl::AppUser subclass object to do application-specific
@ -102,6 +104,10 @@ sub new {
@_, @_,
}; };
# Make the config file absolute if possible, if it isn't already
$self -> {"config"} = path_join($self -> {"scriptpath"}, $self -> {"config"})
if($self -> {"scriptpath"} && $self -> {"config"} !~ m|^/|);
return bless $self, $class; return bless $self, $class;
} }