perl-docs-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-docs/src/search apache.org-setup.pl swish.cgi
Date Fri, 22 Mar 2002 10:52:17 GMT
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 swishscript@hank.org
  +#    swish.cgi $Revision: 1.5 $ Copyright (C) 2001 Bill Moseley swishscript@hank.org
   #    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 search@hank.org
  +swish.cgi $Revision: 1.5 $ Copyright (C) 2001 Bill Moseley search@hank.org
   Example CGI program for searching with SWISH-E
   
   
  
  
  

---------------------------------------------------------------------
To unsubscribe, e-mail: docs-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: docs-cvs-help@perl.apache.org


Mime
View raw message