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]