Install koha through the CPAN module

Signed-off-by: Chris Cormack <crc@liblime.com>

diff --git a/install-CPAN.pl b/install-CPAN.pl
new file mode 100644 (file)
index 0000000..09d994c
--- /dev/null
+++ b/install-CPAN.pl
@@ -0,0 +1,45 @@
+# cpan_install.pl - Install prerequisites from CPAN then Koha
+
+($ARGV[0] =~ /koha-.*z/) || die "
+ Run this as the CPAN-owning user (usually root) with:
+   perl $0 path/to/koha.tgz
+";
+
+# Copyright 2007 MJ Ray
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# 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
+#
+# Current maintainer MJR http://mjr.towers.org.uk/
+# See http://www.koha.org/wiki/?page=KohaInstaller
+
+# Create a fake CPAN location for koha
+use CPAN;
+CPAN::Config->load;
+$cpan = $CPAN::Config->{cpan_home};
+mkdir $cpan.'/sources/authors/id/K';
+mkdir $cpan.'/sources/authors/id/K/KO';
+mkdir $cpan.'/sources/authors/id/K/KO/KOHA';
+
+# Move the tarball to it
+$koha = $ARGV[0];
+( rename $koha,$cpan.'/sources/authors/id/K/KO/KOHA/'.$koha ) ||
+die 'Cannot move koha distribution into position.
+This may be due to an unconfigured CPAN or running as the wrong user.
+To configure cpan, try perl -MCPAN -e shell
+Installation aborted';
+
+# Start the main CPAN install routine
+CPAN::install('KOHA/'.$koha);