stas 02/03/22 02:52:17
Modified: src/search apache.org-setup.pl swish.cgi
Log:
more environment needed
Revision Changes Path
1.3 +15 -3 modperl-docs/src/search/apache.org-setup.pl
Index: apache.org-setup.pl
===================================================================
RCS file: /home/cvs/modperl-docs/src/search/apache.org-setup.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- apache.org-setup.pl 22 Mar 2002 10:45:47 -0000 1.2
+++ apache.org-setup.pl 22 Mar 2002 10:52:16 -0000 1.3
@@ -7,9 +7,21 @@
# on daedalus (the production server) we cannot modify the config file
# so we do it here
-if ($hostname && $hostname eq 'daedalus.apache.org') {
- $ENV{SWISH_BINARY_PATH} = "/home/stas/bin/swish-e";
-}
+BEGIN {
+ if ($hostname && $hostname eq 'daedalus.apache.org') {
+ $ENV{SWISH_BINARY_PATH} = "/home/stas/bin/swish-e";
+
+ unshift @INC,
+ qw(
+ /home/stas/lib/perl5/5.00503
+ /home/stas/lib/perl5/site_perl/5.005
+ /home/stas/lib/perl5/site_perl/
+ /home/stas/lib/perl5/site_perl/
+ /home/stas/lib/perl5/
+ );
+
+ }
+}
1;
1.5 +5 -5 modperl-docs/src/search/swish.cgi
Index: swish.cgi
===================================================================
RCS file: /home/cvs/modperl-docs/src/search/swish.cgi,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- swish.cgi 22 Mar 2002 10:42:04 -0000 1.4
+++ swish.cgi 22 Mar 2002 10:52:16 -0000 1.5
@@ -2,8 +2,8 @@
package SwishSearch;
use strict;
-# optional file
-eval {require "./apache.org-setup.pl"};
+# an optional file loading special environment
+BEGIN { eval { require "./apache.org-setup.pl" } }
use lib qw( modules ); ### This may need to be adjusted!
### It should point to the location of the
@@ -18,7 +18,7 @@
#
# To display documentation for this program type "perldoc swish.cgi"
#
-# swish.cgi $Revision: 1.4 $ Copyright (C) 2001 Bill Moseley [EMAIL
PROTECTED]
+# swish.cgi $Revision: 1.5 $ Copyright (C) 2001 Bill Moseley [EMAIL
PROTECTED]
# Example CGI program for searching with SWISH-E
#
# This example program will only run under an OS that supports fork().
@@ -37,7 +37,7 @@
#
# The above lines must remain at the top of this program
#
-# $Id: swish.cgi,v 1.4 2002/03/22 10:42:04 stas Exp $
+# $Id: swish.cgi,v 1.5 2002/03/22 10:52:16 stas Exp $
#
####################################################################################
@@ -2516,7 +2516,7 @@
=head1 LICENSE
-swish.cgi $Revision: 1.4 $ Copyright (C) 2001 Bill Moseley [EMAIL PROTECTED]
+swish.cgi $Revision: 1.5 $ Copyright (C) 2001 Bill Moseley [EMAIL PROTECTED]
Example CGI program for searching with SWISH-E
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
