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

construct WEBGUI_LIB through WEBGUI_CONFIG

Browse source
This commit is contained in:
kenperl 2006-01-25 09:03:06 +00:00
parent a394f4f53e
commit 734ef2fc1e
1 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

15
t/lib/WebGUI/Test.pm
View file

@ -13,12 +13,17 @@ BEGIN {
STDERR->autoflush(1);
( $CONFIG_FILE, $WEBGUI_LIB ) = @ENV{ qw( WEBGUI_CONFIG WEBGUI_LIB ) };
$CONFIG_FILE = $ENV{ WEBGUI_CONFIG };
unless ( defined $CONFIG_FILE && $CONFIG_FILE ) {
unless ( defined $CONFIG_FILE ) {
warn qq/Enviroment variable WEBGUI_CONFIG must be set.\n/;
exit(1);
}
unless ( $CONFIG_FILE ) {
warn qq/Enviroment variable WEBGUI_CONFIG must not be empty.\n/;
exit(1);
}
unless ( -e $CONFIG_FILE ) {
warn qq/WEBGUI_CONFIG path '$CONFIG_FILE' does not exist.\n/;
@ -36,7 +41,8 @@ BEGIN {
}
$WEBGUI_ROOT = $CONFIG_FILE;
# convert to absolute path
unless ( File::Spec->file_name_is_absolute($WEBGUI_ROOT) ) {
$WEBGUI_ROOT = File::Spec->rel2abs($WEBGUI_ROOT);
}
@ -45,9 +51,8 @@ BEGIN {
$WEBGUI_ROOT = substr( $WEBGUI_ROOT, 0, index( $WEBGUI_ROOT, File::Spec->catdir( 'etc', $CONFIG_FILE ) ) );
$WEBGUI_ROOT = File::Spec->canonpath($WEBGUI_ROOT);
$WEBGUI_LIB ||= File::Spec->catpath( $WEBGUI_ROOT, 'lib' );
$WEBGUI_LIB ||= File::Spec->catpath( (File::Spec->splitpath($WEBGUI_ROOT))[0], $WEBGUI_ROOT, 'lib' );
lib->import( $WEBGUI_LIB );
push (@INC,$WEBGUI_LIB);
# http://thread.gmane.org/gmane.comp.apache.apreq/3378