Xu, Qiang (XSSC SGP) wrote:
#!d:/perl/bin/perl -w
# select-user.pl - use current user's option file to connect
use strict;
use CGI qw(:standard);
use lib qw(/apachee-lib/perl);
As Perl runs without knowledge of Apache's configuaration you must specify
full path:
use lib "D:/Apache Group/Apache/htdocs/apachee-lib/perl/";
... qw-style is bound to fail on the space, so it's manually quoted...
or silently adapt cross-server|OS to the point of installation:
eval{$ENV{'DOCUMENT_ROOT'}=substr($ENV{'SCRIPT_FILENAME'},0,length($ENV{'SCR
IPT_FILENAME'})-length($ENV{'SCRIPT_NAME'}))}; #only needed using vhosts
use lib "$ENV{'DOCUMENT_ROOT'}/apachee-lib/perl/";
HansH