From 401e366b40e03f7e46a73f71c1910b370bed9a84 Mon Sep 17 00:00:00 2001
From: dragon28 <dragon28>
Date: Thu, 9 May 2002 09:26:47 +0000
Subject: [PATCH] Added testing for Perl and dependancies

---
 installer.pl | 37 ++++++++++++++++++++++++++++++++++---
 1 file changed, 34 insertions(+), 3 deletions(-)

diff --git a/installer.pl b/installer.pl
index 2b80e1dbea..8cc9b4caeb 100644
--- a/installer.pl
+++ b/installer.pl
@@ -9,8 +9,6 @@ print <<EOM;
 **********************************
 
 
-
-
 This installer will prompt you with a series of questions.
 It assumes you (or your system administrator) has installed:
   * Apache (http://httpd.apache.org/)
@@ -56,8 +54,41 @@ chomp $answer;
 # tar on solaris may not work properly, etc.
 system("tar -x $answer"); #unpack fill out
 
+#
+# Test for Perl - Do we need to explicity check versions?
+#
+print "\nChecking perl modules ...\n";
+    unless (eval "require 5.004") {
+    die "Sorry, you need at least Perl 5.004\n";
+}
+	
+
+#
+# Test for Perl Dependancies
+#
+my @missing = ();
+unless (eval require DBI)               { push @missing,"DBI" };
+unless (eval require Date::Manip)       { push @missing,"Datr::Manip" }
+unless (eval require DBD::mysql)        { push @missing,"DBD::mysql" }
+unless (eval require Set::Scalar)       { push @missing,"Set::Scalar" }
+
+#
+# Print out a list of any missing modules
+#
+
+if (@missing > 0) {
+    print "\n\n";
+    print "You are missing some Perl modules which are required by Koha.\n";
+    print "They can be installed by running (as root) the following:\n";
+    foreach my $module (@missing) {
+    print "   perl -MCPAN -e 'install \"$module\"'\n";
+    }
+    print "\n";
+    exit;
+}
+
 
-#test for Perl and Apache?
+#test for MySQL?
 print "Are you using MySql?(Y/[N]): ";
 $answer = $_;                      
 chomp $answer
-- 
2.39.5