adding cgi::carp module too

[koha_gimpoz] / installer / install.pl

diff --git a/installer/install.pl b/installer/install.pl
index e64a4c2..f1e7431 100755 (executable)
--- a/installer/install.pl
+++ b/installer/install.pl
@@ -54,9 +54,6 @@ if ( $step && $step == 1 ) {
     #First Step
     #Checking ALL perl Modules and services needed are installed.
     #Whenever there is an error, adding a report to the page
-    # I suppose here that Apache user can access /usr/bin/
-    # If mysql or zebra are in some fancy directory not in PATH
-    # Performing a disk search.
     $template->param( language => 1 );
     my $problem;
 
@@ -64,46 +61,6 @@ if ( $step && $step == 1 ) {
         $template->param( "problems" => 1, "perlversion" => 1 );
         $problem = 1;
     }
-    unless ( -x "/usr/bin/perl" ) {
-        my $realperl = `which perl`;
-        $realperl = `find / -name perl` unless ($realperl);
-        chomp $realperl;
-        $template->param( "problems" => 1, 'perllocation' => 1 )
-          unless ($realperl);
-        $problem = 1 unless ($realperl);
-    }
-    unless ( -x "/usr/local/bin/mysql" ) {
-        my $mysql = `which mysql`;
-        $mysql = `find / -name mysql` unless ($mysql);
-        chomp $mysql;
-        $template->param( "problems" => 1, 'mysql' => 1 ) unless ($mysql);
-        $problem = 1 unless ($mysql);
-    }
-    unless ( -x "/usr/local/bin/zebraidx" || -x "/usr/local/bin/zebraidx-2.0" )
-    {
-        my $zebra = `which zebraidx`;
-        $zebra = `which zebraidx-2.0`       unless ($zebra);
-        $zebra = `find / -name "zebraidx*"` unless ($zebra);
-        chomp $zebra;
-        $template->param( "problems" => 1, 'zebra' => 1 ) unless ($zebra);
-        $problem = 1 unless ($zebra);
-    }
-    unless ( -x "/usr/local/bin/zebrasrv" || -x "/usr/local/bin/zebrasrv-2.0" )
-    {
-        my $zebra = `which zebrasrv`;
-        $zebra = `which zebrasrv-2.0`       unless ($zebra);
-        $zebra = `find / -name "zebrasrv*"` unless ($zebra);
-        chomp $zebra;
-        $template->param( "problems" => 1, 'zebra' => 1 ) unless ($zebra);
-        $problem = 1 unless ($zebra);
-    }
-    unless ( -x "/usr/local/bin/yaz-client" ) {
-        my $yaz = `which yaz-client`;
-        $yaz = `find / -name "yaz-client*"` unless ($yaz);
-        chomp $yaz;
-        $template->param( "problems" => 1, 'yaz' => 1 ) unless ($yaz);
-        $problem = 1 unless ($yaz);
-    }
 
     # We could here use a special find
     my @missing = ();
@@ -152,6 +109,10 @@ if ( $step && $step == 1 ) {
     unless ( eval { require XML::RSS } ) {
         push @missing, { name => "XML::RSS" };
     }
+    unless ( eval { require CGI::Carp } ) {
+        push @missing, { name => "CGI::Carp" };
+    }
+
 
 # The following modules are not mandatory, depends on how the library want to use Koha
     unless ( eval { require PDF::API2 } ) {