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

Revision 19409, 3.9 KB (checked in by ak19, 11 years ago)

Getting the incremental build scripts to work on Windows (it already works on the Vista here, but only because .pl files were associated with Perl).

  • 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    # for windows, need PERLPATH in order to launch Perl
39    if($ENV{'GSDLOS'} =~ m/windows/) {
40     die "PERLPATH, which is required for Windows, is not set.\n" unless defined $ENV{'PERLPATH'};
41    }
42}
43
44
45use strict;
46
47use util;
48
49
50sub main
51{
52    my ($argc,@argv) = @_;
53
54    if (($argc==0)  || (($argc==1) && ($argv[0] =~ m/^--?h(elp)?$/))) {
55    my ($progname) = ($0 =~ m/^.*\/(.*?)$/);
56
57
58    print STDERR "\n";
59    print STDERR "Usage: $progname [buildcol.pl options] collection\n";
60    print STDERR "\n";
61
62    exit(-1);
63    }
64
65
66    my $collect = pop @argv;
67
68
69    my @filtered_argv = ();
70
71    my $collect_dir = undef;
72    my $build_dir  = undef;
73
74    while (my $arg = shift @argv) {
75    if ($arg eq "-collectdir") {
76        $collect_dir = shift @argv;
77        push(@filtered_argv,$arg,$collect_dir);
78    }
79    elsif ($arg eq "-builddir") {
80        $build_dir = shift @argv;
81        push(@filtered_argv,$arg,$build_dir);
82    }
83    else {
84        push(@filtered_argv,$arg);
85    }
86    }
87
88
89    if (!defined $collect_dir) {
90    $collect_dir = &util::filename_cat($ENV{'GSDLHOME'},"collect");
91    }
92    my $this_collect_dir = &util::filename_cat($collect_dir,$collect);
93
94    if (!-d $this_collect_dir) {
95    print STDERR "Error: $collect_dir does not exist\n";
96    exit(-1);
97    }
98
99
100    if (!defined $build_dir) {
101    # Yes this is intentional that 'build_dir' points to "index"
102    $build_dir = &util::filename_cat($this_collect_dir,"index");
103    push(@filtered_argv,"-builddir",$build_dir);
104    }
105
106    my $quoted_argv = join(" ", map { "\"$_\"" } @filtered_argv);
107   
108    my $build_cfg_filename = &util::filename_cat($build_dir,"build.cfg");
109
110    my $buildcol_cmd = "buildcol.pl";
111    if($ENV{'GSDLOS'} =~ m/windows/) {
112    $buildcol_cmd = "$ENV{'PERLPATH'}\\Perl.exe -S $buildcol_cmd";
113    #$buildcol_cmd = "perl -S $buildcol_cmd";
114    }
115
116    if (-e $build_cfg_filename) {
117    $buildcol_cmd .= " -incremental";
118    }
119    else {
120### print STDERR "$build_cfg_filename does not exist.\n";
121    print STDERR "*****\n";
122    print STDERR "* First time built. Switching to full buildcol.pl.\n";
123    print STDERR "*****\n";
124    $buildcol_cmd .= " -removeold";
125    }
126
127   
128    $buildcol_cmd .= " $quoted_argv \"$collect\"";
129   
130    my $buildcol_status = system($buildcol_cmd)/256;
131   
132    if ($buildcol_status != 0) {
133    print STDERR "Error: Failed to run: $buildcol_cmd\n";
134    print STDERR "       $!\n" if ($! ne "");
135    exit(-1);
136    }
137}
138
139&main(scalar(@ARGV),@ARGV);
140
141
142
143
Note: See TracBrowser for help on using the browser.