gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Test for Net::Z3950

This commit is contained in:
tonnesen 2002-07-22 22:41:59 +00:00
parent c273fdd785
commit d7aedb5192
2 changed files with 57 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
installer.pl
View File

@ -1,6 +1,6 @@
#!/usr/bin/perl -w # please develop with -w
use diagnostics;
#use diagnostics;
use strict; # please develop with the strict pragma
if ($<) {
@ -128,21 +128,21 @@ unless (eval {require DBI}) { push @missing,"DBI" };
unless (eval {require Date::Manip}) { push @missing,"Date::Manip" };
unless (eval {require DBD::mysql}) { push @missing,"DBD::mysql" };
unless (eval {require Set::Scalar}) { push @missing,"Set::Scalar" };
#unless (eval {require Net::Z3950}) {
# print qq|
#
#The Net::Z3950 module is missing. This module is necessary if you want to use
#Koha's Z39.50 client to download bibliographic records from other libraries.
#To install this module, you will need the yaz client installed from
#http://www.indexdata.dk/yaz/ and then you can install the perl module with the
#command:
#
#perl -MCPAN -e 'install Net::Z3950'
#
#Press the <ENTER> key to continue:
#|;
# <STDIN>;
#}
unless (eval {require Net::Z3950}) {
print qq|
The Net::Z3950 module is missing. This module is necessary if you want to use
Koha's Z39.50 client to download bibliographic records from other libraries.
To install this module, you will need the yaz client installed from
http://www.indexdata.dk/yaz/ and then you can install the perl module with the
command:
perl -MCPAN -e 'install Net::Z3950'
Press the <ENTER> key to continue:
|;
<STDIN>;
}
#
# Print out a list of any missing modules
@ -330,6 +330,31 @@ foreach my $httpdconf (qw(/usr/local/apache/conf/httpd.conf
close(HTTPDCONF);
}
}
unless ($realhttpdconf) {
print qq|
I was not able to find your apache configuration file. It is usually
called httpd.conf or apache.conf.
|;
print "Where is your Apache configuratin file? ";
chomp($input = <STDIN>);
if ($input) {
$realhttpdconf = $input;
} else {
$realhttpdconf='';
}
if ( -f $realhttpdconf ) {
open (HTTPDCONF, $realhttpdconf) or warn "Insufficient privileges to open $realhttpdconf for reading.\n";
while (<HTTPDCONF>) {
if (/^\s*User\s+"?([-\w]+)"?\s*$/) {
$httpduser = $1;
}
}
close(HTTPDCONF);
}
}
unless ($httpduser) {
print qq|

34
koha.upgrade
View File

@ -1,6 +1,6 @@
#!/usr/bin/perl -w
use diagnostics;
#use diagnostics;
use strict; # please develop with the strict pragma
@ -123,23 +123,21 @@ unless (eval {require DBI}) { push @missing,"DBI" };
unless (eval {require Date::Manip}) { push @missing,"Date::Manip" };
unless (eval {require DBD::mysql}) { push @missing,"DBD::mysql" };
unless (eval {require Set::Scalar}) { push @missing,"Set::Scalar" };
unless (eval {require Digest::MD5}) { push @missing,"Digest::MD5" };
unless (eval {require HTML::Template}) { push @missing,"HTML::Template" };
#unless (eval {require Net::Z3950}) {
# print qq|
#
#The Net::Z3950 module is missing. This module is necessary if you want to use
#Koha's Z39.50 client to download bibliographic records from other libraries.
#To install this module, you will need the yaz client installed from
#http://www.indexdata.dk/yaz/ and then you can install the perl module with the
#command:
#
#perl -MCPAN -e 'install Net::Z3950'
#
#Press the <ENTER> key to continue:
#|;
# <STDIN>;
#}
unless (eval {require Net::Z3950}) {
print qq|
The Net::Z3950 module is missing. This module is necessary if you want to use
Koha's Z39.50 client to download bibliographic records from other libraries.
To install this module, you will need the yaz client installed from
http://www.indexdata.dk/yaz/ and then you can install the perl module with the
command:
perl -MCPAN -e 'install Net::Z3950'
Press the <ENTER> key to continue:
|;
<STDIN>;
}
#
# Print out a list of any missing modules