1 # Copyright 2005 MJ Ray and koha development team
3 # This file is part of Koha.
5 # Koha is free software; you can redistribute it and/or modify it under the
6 # terms of the GNU General Public License as published by the Free Software
7 # Foundation; either version 2 of the License, or (at your option) any later
10 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
11 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
12 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
14 # You should have received a copy of the GNU General Public License along with
15 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
16 # Suite 330, Boston, MA 02111-1307 USA
18 # Current maintainer MJR slef at users.sourceforge.net
19 # See http://www.koha.org/wiki/?page=KohaInstaller
21 use ExtUtils::MakeMaker;
23 die "perl >= 5.6.1 required" unless ($] >= 5.006001);
34 'HTML::Template' => 1,
37 'Mail::Sendmail' => 1,
44 # Figure out options here?
48 PL_FILES => { # generator => target
49 # need to copy detail, moredetail, search, subjectsearch and logout from intranet to opac
50 # need to write koha.conf
51 # need to write koha-httpd.conf
52 # need to write koha.sql
54 # need to check permissions somehow
58 my ($self,$path) = @_;
60 # set up the recursion
62 elsif ($path !~ /\//) { $path = ''; }
64 # reimplementation of buildrelease and Install::installfiles
65 # ban some shell specials too
66 elsif ($path =~ /(\/CVS\/|\.bak$|\.orig$|\/,|\/t\/|[^\$]\(| )/) { $path = ''; }
68 $path =~ s:\)/misc:\)/intranet/scripts: ||
69 $path =~ s:\)/updater:\)/intranet/scripts/updater: ||
70 $path =~ s:\)/z3950/(processz3950queue|.*sh):\)/intranet/scripts/z3950daemon/\1: ||
71 $path =~ s:\)/z3950:\)/intranet/cgi-bin/z3950: ||
72 $path =~ s:\)/koha-tmpl/intranet-tmpl:\)/intranet/htdocs/intranet-tmpl: ||
73 $path =~ s:\)/koha-tmpl/intranet.html:\)/intranet/htdocs/index.html: ||
74 $path =~ s:\)/koha-tmpl/opac-tmpl:\)/opac/htdocs/opac-tmpl: ||
75 $path =~ s:\)/koha-tmpl/opac.html:\)/opac/htdocs/index.html: ||
76 $path =~ s:\)/opac:\)/opac/cgi-bin:
78 elsif ($path !~ /\.p[lm]$/) { $path = ''; }
79 elsif ($path !~ /\)\/C4/) { $path =~ s!/!/intranet/cgi-bin/!; }
81 #print STDERR $path."\n";