Changeset 25573 for main/trunk/greenstone2/bin/script/full-rebuild.pl
- Timestamp:
- 2012-05-10T21:32:52+12:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/bin/script/full-rebuild.pl
r24747 r25573 32 32 # (assumming import.pl did not end with an error) 33 33 34 # The -keepold argument can be passed into this script since this calls activate.pl 35 # And activate.pl allows the contents of a src dir to be moved into the dest_dir 36 # without destroying other (uniquely-named) contents of dest_dir. 34 37 35 38 BEGIN { … … 43 46 44 47 48 # This subroutine has been replaced by a call to activate.pl in sub main 45 49 sub full_replace 46 50 { … … 119 123 my @import_argv = (); 120 124 my @buildcol_argv = (); 125 my @activate_argv = (); 121 126 122 127 my $site = undef; … … 130 135 push(@import_argv,$arg,$site); 131 136 push(@buildcol_argv,$arg,$site); 137 push(@activate_argv,$arg,$site); 132 138 } 133 139 elsif ($arg eq "-collectdir") { … … 135 141 push(@import_argv,$arg,$collect_dir); 136 142 push(@buildcol_argv,$arg,$collect_dir); 143 push(@activate_argv,$arg,$collect_dir); 137 144 } 138 145 elsif ($arg eq "-importdir") { … … 142 149 } 143 150 elsif ($arg eq "-builddir") { 144 # only makes sense in buildcol.pl 151 # only makes sense in buildcol.pl and activate.pl 145 152 $build_dir = shift @argv; 146 153 push(@buildcol_argv,$arg,$build_dir); 154 push(@activate_argv,$arg,$build_dir); 147 155 } 148 156 elsif ($arg eq "-indexdir") { 149 # only makes sense in buildcol.pl 157 # only makes sense in buildcol.pl and activate.pl 150 158 $index_dir = shift @argv; 151 159 push(@buildcol_argv,$arg,$index_dir); 160 push(@activate_argv,$arg,$index_dir); 152 161 } 153 162 else { 154 163 push(@import_argv,$arg); 155 164 push(@buildcol_argv,$arg); 165 push(@activate_argv,$arg); 156 166 } 157 167 } … … 160 170 my $quoted_import_argv = join(" ", map { "\"$_\"" } @import_argv); 161 171 my $quoted_buildcol_argv = join(" ", map { "\"$_\"" } @buildcol_argv); 172 my $quoted_activate_argv = join(" ", map { "\"$_\"" } @activate_argv); 162 173 163 174 my $final_status = 0; … … 186 197 if ($buildcol_status == 0) { 187 198 188 full_replace($site,$collect_dir,$collect,$build_dir,$index_dir); 199 #full_replace($site,$collect_dir,$collect,$build_dir,$index_dir); 200 my $activatecol_cmd = $launch_cmd . "activate.pl $quoted_activate_argv \"$collect\""; 201 my $activatecol_status = system($activatecol_cmd)/256; 189 202 } 190 203 else {
Note:
See TracChangeset
for help on using the changeset viewer.