root/gsdl/trunk/bin/script/incremental-buildcol.pl @ 19410

Revision 19410, 3.7 KB (checked in by ak19, 11 years ago)

Further modifications to launching perl on windows in the new incremental and full building scripts: Removed the check inside the BEGIN statement that insisted on PERLPATH being defined. Now the code uses PERLPATH for launching Perl on Windows if this is defined, otherwise it refers to just perl (assuming it is on the PATH already).

  • Property svn:executable set to *
Line 
1#!/usr/bin/perl -w
2
3###########################################################################
4#
5# incremental-buildcol.pl -- runs buildcol.pl with -incremental on
6# A component of the Greenstone digital library software
7# from the New Zealand Digital Library Project at the
8# University of Waikato, New Zealand.
9#
10# Copyright (C) 2009 New Zealand Digital Library Project
11#
12# This program is free software; you can redistribute it and/or modify
13# it under the terms of the GNU General Public License as published by
14# the Free Software Foundation; either version 2 of the License, or
15# (at your option) any later version.
16#
17# This program is distributed in the hope that it will be useful,
18# but WITHOUT ANY WARRANTY; without even the implied warranty of
19# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
20# GNU General Public License for more details.
21#
22# You should have received a copy of the GNU General Public License
23# along with this program; if not, write to the Free Software
24# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
25#
26###########################################################################
27
28
29# This program is designed to support incremental building of Greenstone
30# Runs:        buildcol.pl -incremental -builddir GSDLHOME/collect/$collect/index ...
31
32
33BEGIN {
34    die "GSDLHOME not set\n" unless defined $ENV{'GSDLHOME'};
35    die "GSDLOS not set\n" unless defined $ENV{'GSDLOS'};
36    unshift (@INC, "$ENV{'GSDLHOME'}/perllib");
37}
38
39
40use strict;
41
42use util;
43
44
45sub main
46{
47    my ($argc,@argv) = @_;
48
49    if (($argc==0)  || (($argc==1) && ($argv[0] =~ m/^--?h(elp)?$/))) {
50    my ($progname) = ($0 =~ m/^.*\/(.*?)$/);
51
52
53    print STDERR "\n";
54    print STDERR "Usage: $progname [buildcol.pl options] collection\n";
55    print STDERR "\n";
56
57    exit(-1);
58    }
59
60
61    my $collect = pop @argv;
62
63
64    my @filtered_argv = ();
65
66    my $collect_dir = undef;
67    my $build_dir  = undef;
68
69    while (my $arg = shift @argv) {
70    if ($arg eq "-collectdir") {
71        $collect_dir = shift @argv;
72        push(@filtered_argv,$arg,$collect_dir);
73    }
74    elsif ($arg eq "-builddir") {
75        $build_dir = shift @argv;
76        push(@filtered_argv,$arg,$build_dir);
77    }
78    else {
79        push(@filtered_argv,$arg);
80    }
81    }
82
83
84    if (!defined $collect_dir) {
85    $collect_dir = &util::filename_cat($ENV{'GSDLHOME'},"collect");
86    }
87    my $this_collect_dir = &util::filename_cat($collect_dir,$collect);
88
89    if (!-d $this_collect_dir) {
90    print STDERR "Error: $collect_dir does not exist\n";
91    exit(-1);
92    }
93
94
95    if (!defined $build_dir) {
96    # Yes this is intentional that 'build_dir' points to "index"
97    $build_dir = &util::filename_cat($this_collect_dir,"index");
98    push(@filtered_argv,"-builddir",$build_dir);
99    }
100
101    my $quoted_argv = join(" ", map { "\"$_\"" } @filtered_argv);
102   
103    my $build_cfg_filename = &util::filename_cat($build_dir,"build.cfg");
104
105    my $buildcol_cmd = "buildcol.pl";
106    if($ENV{'GSDLOS'} =~ m/windows/) {
107    if($ENV{'PERLPATH'}) {
108        $buildcol_cmd = "$ENV{'PERLPATH'}\\Perl.exe -S $buildcol_cmd";
109    } else {
110        $buildcol_cmd = "perl -S $buildcol_cmd";
111    }
112    }
113
114    if (-e $build_cfg_filename) {
115    $buildcol_cmd .= " -incremental";
116    }
117    else {
118### print STDERR "$build_cfg_filename does not exist.\n";
119    print STDERR "*****\n";
120    print STDERR "* First time built. Switching to full buildcol.pl.\n";
121    print STDERR "*****\n";
122    $buildcol_cmd .= " -removeold";
123    }
124
125   
126    $buildcol_cmd .= " $quoted_argv \"$collect\"";
127   
128    my $buildcol_status = system($buildcol_cmd)/256;
129   
130    if ($buildcol_status != 0) {
131    print STDERR "Error: Failed to run: $buildcol_cmd\n";
132    print STDERR "       $!\n" if ($! ne "");
133    exit(-1);
134    }
135}
136
137&main(scalar(@ARGV),@ARGV);
138
139
140
141
Note: See TracBrowser for help on using the browser.