[TWiki-Dev] [SVN] r3359 - twiki/scratch/RegisterCgiScriptRewrite/bin

[<Wil...@nt...>]

Author: WillNorris
Date: 2004-12-06 16:33:52 -0800 (Mon, 06 Dec 2004)
New Revision: 3359

Modified:
   twiki/scratch/RegisterCgiScriptRewrite/bin/setlib.cfg
Log:
SetMultipleDirsInSetlibDotCfg: sync with DEVELOP


Modified: twiki/scratch/RegisterCgiScriptRewrite/bin/setlib.cfg
===================================================================
--- twiki/scratch/RegisterCgiScriptRewrite/bin/setlib.cfg	2004-12-06 21:49:11 UTC (rev 3358)
+++ twiki/scratch/RegisterCgiScriptRewrite/bin/setlib.cfg	2004-12-07 00:33:52 UTC (rev 3359)
@@ -34,21 +34,26 @@
 
 
 # -------------- Change these settings if required
+#    Path to lib directory containing TWiki.pm. Set to *absolute file path*:
+use Cwd qw( cwd );
+$twikiLibPath = cwd() . "/../lib";
 
-#    Path to lib directory containing TWiki.pm.
-#    ATTENTION: Set to absolute file path:
-$twikiLibPath = '/home/mrjc/registertesttwiki.mrjc.com/twiki/lib';
+#    Path to local Perl modules
+my $CPANBASE = "$twikiLibPath/CPAN/lib/site_perl";
+if ( -e $CPANBASE )
+{
+	require Config;
+	my $VER = $Config::Config{version};
+	my $SITEARCH = $Config::Config{archname};
+	@localPerlLibPath = ( "$CPANBASE/$VER/$SITEARCH/", "$CPANBASE/$VER/", "$CPANBASE/" );
+}
 
-#    Path to local Perl modules (e.g. under home directory for users
-#    without 'root' on Unix/Linux). Uncomment and set if needed:
-$localPerlLibPath = '/home/mrjc/cpan-priv/lib/';
 
-
 # -------------- Don't change anything below this line
 
 # Prepend to @INC, the Perl search path for modules
 unshift @INC, $twikiLibPath;
-unshift @INC, $localPerlLibPath if $localPerlLibPath;
+unshift @INC, @localPerlLibPath if defined @localPerlLibPath;
 
 1;			    	# Return success for module loading