- Timestamp:
- 2010-02-24T13:56:56+13:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/bin/script/incremental-buildcol.pl
r20925 r21733 61 61 62 62 63 my $collect = pop @argv;63 my $collection = pop @argv; 64 64 65 65 my @filtered_argv = (); … … 87 87 } 88 88 89 90 if (!defined $collect_dir) { 91 $collect_dir = &util::filename_cat($ENV{'GSDLHOME'},"collect"); 92 } 93 my $this_collect_dir = &util::filename_cat($collect_dir,$collect); 94 95 if (!-d $this_collect_dir) { 96 print STDERR "Error: $collect_dir does not exist\n"; 97 exit(-1); 98 } 89 # get and check the collection name 90 if ((&colcfg::use_collection($site, $collection, $collect_dir)) eq "") { 91 print STDERR "Unable to use collection \"$collection\" within \"$collect_dir\"\n"; 92 exit -1; 93 } 99 94 100 95 101 96 if (!defined $build_dir) { 102 97 # Yes this is intentional that 'build_dir' points to "index" 103 $build_dir = &util::filename_cat ($this_collect_dir,"index");98 $build_dir = &util::filename_cat ($ENV{'GSDLCOLLECTDIR'},"index"); 104 99 push(@filtered_argv,"-builddir",$build_dir); 105 100 } … … 119 114 } 120 115 121 if ((&colcfg::use_collection($site, $collect, $collect_dir)) eq "") {122 print STDERR "Unable to use collection \"$collect\" within \"$collect_dir\"\n";123 exit -1;124 }125 116 # Read in the collection configuration file. 126 117 my ($collect_cfg_filename, $gs_mode) = &colcfg::get_collect_cfg_name(STDERR); … … 163 154 164 155 165 $buildcol_cmd .= " $quoted_argv \"$collect \"";156 $buildcol_cmd .= " $quoted_argv \"$collection\""; 166 157 167 158 my $buildcol_status = system($buildcol_cmd)/256;
Note:
See TracChangeset
for help on using the changeset viewer.