X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=rewrite-config.PL;h=e903d4995ca230f6202f1e65b96eaa0ac78803bd;hb=9c5e40e4923179bf0b2b630d3e09797dc4c1fdb0;hp=2b8bf9c4796e56210bf3713cfbb9db1d5d09ba96;hpb=bc4699ca64d073fb9aa8516694d588353e2d770c;p=koha.git diff --git a/rewrite-config.PL b/rewrite-config.PL index 2b8bf9c479..e903d4995c 100644 --- a/rewrite-config.PL +++ b/rewrite-config.PL @@ -11,12 +11,13 @@ # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR # A PARTICULAR PURPOSE. See the GNU General Public License for more details. # -# You should have received a copy of the GNU General Public License along with -# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, -# Suite 330, Boston, MA 02111-1307 USA +# You should have received a copy of the GNU General Public License along +# with Koha; if not, write to the Free Software Foundation, Inc., +# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. # # Current maintainer MJR http://mjr.towers.org.uk/ -# See http://www.koha.org/wiki/?page=KohaInstaller +# +# 2007/11/12 Added DB_PORT and changed other keywords to reflect multi-dbms support. -fbcit use Sys::Hostname; use Socket; @@ -42,8 +43,8 @@ guesses worked out by the script. The following configuration keywords are available: PREFIX, -BASE_DIR, CGI_DIR, LOG_DIR, -MYSQL_DB, MYSQL_HOST, MYSQL_PASS, MYSQL_USER, WEBMASTER_EMAIL, WEBSERVER_DOMAIN, +BASE_DIR, CGI_DIR, LOG_DIR, PLUGINS_DIR, INSTALL_BASE, +DB_TYPE, DB_HOST, DB_PORT, DB_NAME, DB_PASS, DB_USER, WEBMASTER_EMAIL, WEBSERVER_DOMAIN, WEBSERVER_HOST, WEBSERVER_IP, WEBSERVER_PORT, WEBSERVER_PORT_LIBRARIAN, ZEBRA_PASS, ZEBRA_USER =head1 EXAMPLES @@ -58,35 +59,93 @@ also need to override WEBSERVER_IP. =cut -$myhost = hostname(); -$mydomain = $myhost; -$mydomain =~ s/^.*?\.//; -# This is set here to rescue systems with broken DNS -$myip = $ENV{'WEBSERVER_IP'} || inet_ntoa(scalar gethostbyname($myhost||'localhost')) || die "Cannot get our own IP address: DNS fault?"; -$prefix = $ENV{'PREFIX'} || "/usr"; +if ( $myhost = $ENV{WEBSERVER_HOST} || hostname ) { + ( $mydomain = $myhost ) =~ s/.*?\.//; +} else { + $myhost = 'localhost'; + $mydomain = 'localdomain'; +} + +unless ( $myip = $ENV{WEBSERVER_IP} ) { + my $byname = gethostbyname( $myhost ) + or die "Could not get the IP address of $myhost, DNS fault? ($!)"; + $myip = inet_ntoa $byname + or die "can't inet_ntoa ($!)"; +} + + +$prefix = $ENV{'INSTALL_BASE'} || "/usr"; # These are our configuration guesses # Keys were extracted by # "",/' %configuration = ( - "__BASE_DIR__" => ($ENV{'INSTALLSITELIB'} || sprintf($prefix."/lib/perl5/site_perl/%vd",$^V))."/koha", - "__CGI_DIR__" => $prefix."/lib/cgi-bin/koha", + "__KOHA_INSTALLED_VERSION__" => "no_version_found", "__LOG_DIR__" => "/var/log", + "__PLUGINS_DIR__" => "/var/lib/koha/plugins", "__DB_TYPE__" => "mysql", "__DB_NAME__" => "koha", "__DB_HOST__" => $myhost, "__DB_PORT__" => "3306", "__DB_USER__" => "kohaadmin", "__DB_PASS__" => "katikoan", - "__PREFIX__" => $prefix, "__WEBMASTER_EMAIL__" => 'webmaster@'.$mydomain, "__WEBSERVER_DOMAIN__" => $mydomain, "__WEBSERVER_HOST__" => $myhost, "__WEBSERVER_IP__" => $myip, "__WEBSERVER_PORT__" => "80", "__WEBSERVER_PORT_LIBRARIAN__" => "8080", + "__ZEBRA_SRU_HOST__" => $myhost, + "__ZEBRA_SRU_BIBLIOS_PORT__" => "9998", + "__ZEBRA_SRU_AUTHORITIES_PORT__" => "9999", + "__KOHA_USER__" => "koha", + "__KOHA_GROUP__" => "koha", "__ZEBRA_PASS__" => "zebrastripes", "__ZEBRA_USER__" => "kohauser", + '__BACKUP_DIR__' => "$prefix/var/spool", + '__INTRANET_CGI_DIR__' => "$prefix/intranet/cgi-bin", + '__INTRANET_TMPL_DIR__' => "$prefix/intranet/templates", + '__INTRANET_WWW_DIR__' => "$prefix/intranet/www", + '__OPAC_CGI_DIR__' => "$prefix/opac/cgi-bin", + '__OPAC_TMPL_DIR__' => "$prefix/opac/templates", + '__OPAC_WWW_DIR__' => "$prefix/opac/www", + '__PERL_MODULE_DIR__' => ($ENV{'INSTALLSITELIB'} || sprintf($prefix."/lib/perl5/site_perl/%vd",$^V))."/koha", + '__KOHA_CONF_DIR__' => "$prefix/etc/koha", + '__ZEBRA_CONF_DIR__' => "$prefix/etc/koha/zebradb", + '__PAZPAR2_CONF_DIR__' => "$prefix/etc/koha/pazpar2", + '__MISC_DIR__' => "$prefix/misc", + '__SCRIPT_DIR__' => "$prefix/bin", + '__MAN_DIR__' => "$prefix/man", + '__DOC_DIR__' => "$prefix/doc", + '__ZEBRA_LOCK_DIR__' => "$prefix/var/lock/zebradb", + '__ZEBRA_DATA_DIR__' => "$prefix/var/lib/zebradb", + '__ZEBRA_RUN_DIR__' => "$prefix/var/run/zebradb", + '__ZEBRA_MARC_FORMAT__' => 'marc21', + '__ZEBRA_LANGUAGE__' => 'en', + '__ZEBRA_TOKENIZER__' => 'chr', + '__ZEBRA_TOKENIZER_STMT__' => 'charmap word-phrase-utf.chr', + '__ZEBRA_AUTH_CFG__' => 'zebra-authorities.cfg', + '__ZEBRA_BIB_CFG__' => 'zebra-biblios.cfg', + '__AUTH_RETRIEVAL_CFG__' => 'retrieval-info-auth-grs1.xml', + '__BIB_RETRIEVAL_CFG__' => 'retrieval-info-bib-grs1.xml', + "__MERGE_SERVER_HOST__" => $myhost, + "__MERGE_SERVER_PORT__" => '11001', + "__PAZPAR2_HOST__" => $myhost, + "__PAZPAR2_PORT__" => '11002', + "__INSTALL_MODE__" => 'standard', + "__INSTALL_BASE__" => '/usr/share/koha', + "__INSTALL_ZEBRA__" => 'yes', + "__INSTALL_SRU__" => 'yes', + "__INSTALL_PAZPAR2__" => 'no', + "__PAZPAR2_TOGGLE_XML_PRE__" => '', + "__AUTH_INDEX_MODE__" => 'grs1', + "__BIB_INDEX_MODE__" => 'grs1', + "__RUN_DATABASE_TESTS__" => 'no', + "__PATH_TO_ZEBRA__" => "", + "__USE_MEMCACHED__" => 'no', + "__MEMCACHED_SERVERS__" => "", + "__MEMCACHED_NAMESPACE__" => "", ); # Override configuration from the environment @@ -96,14 +155,32 @@ foreach $key (keys %configuration) { } } +# munge commenting out the PazPar2 mergeserver +# entry in koha-conf.xml if necessary +if ($configuration{'__INSTALL_PAZPAR2__'} eq 'yes') { + $configuration{'__PAZPAR2_TOGGLE_XML_PRE__'} = ''; + $configuration{'__PAZPAR2_TOGGLE_XML_POST__'} = ''; +} + $fname = $ARGV[0]; -$file = read_file($fname); -$file =~ s/__.*?__/$configuration{$&}/seg; -chmod 0644, $fname; +$file = &read_file($fname); +$file =~ s/__.*?__/exists $configuration{$&} ? $configuration{$&} : $&/seg; + +# At this point, file is in 'blib' and by default +# has mode a-w. Therefore, must change permission +# to make it writable. Note that stat and chmod +# (the Perl functions) should work on Win32 +my $old_perm; +$old_perm = (stat $fname)[2] & 07777; +my $new_perm = $old_perm | 0200; +chmod $new_perm, $fname; + open(OUTPUT,">$fname") || die "Can't open $fname for write: $!"; print OUTPUT $file; close(OUTPUT); +chmod $old_perm, $fname; + # Idea taken from perlfaq5 sub read_file($) { local(*INPUT,$/); @@ -124,4 +201,3 @@ Makefile.PL, ExtUtils::MakeMaker(3) MJ Ray mjr at phonecoop.coop =cut -