Changeset 18510
- Timestamp:
- 2009-02-12T13:31:40+13:00 (15 years ago)
- Location:
- gsdl/trunk/bin/script
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/bin/script/full-rebuild.pl
r18470 r18510 61 61 my $collect = pop @argv; 62 62 63 my $collect_dir = &util::filename_cat($ENV{'GSDLHOME'},"collect",$collect); 64 if (!-d $collect_dir) { 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) { 65 90 print STDERR "Error: $collect_dir does not exist\n"; 66 91 exit(-1); 67 92 } 68 93 94 95 if (!defined $build_dir) { 96 $build_dir = &util::filename_cat($this_collect_dir,"building"); 97 push(@filtered_argv,"-builddir",$build_dir); 98 } 69 99 70 100 … … 91 121 my $buildcol_status = system($buildcol_cmd)/256; 92 122 if ($buildcol_status == 0) { 93 my $building_dir = &util::filename_cat($collect_dir,"building");94 123 my $index_dir = &util::filename_cat($collect_dir,"index"); 95 124 … … 106 135 print "************************\n"; 107 136 108 &util::mv($build ing_dir,$index_dir);137 &util::mv($build_dir,$index_dir); 109 138 110 139 } -
gsdl/trunk/bin/script/incremental-buildcol.pl
r18492 r18510 83 83 84 84 if (!defined $collect_dir) { 85 $collect_dir = &util::filename_cat($ENV{'GSDLHOME'},"collect" ,$collect);85 $collect_dir = &util::filename_cat($ENV{'GSDLHOME'},"collect"); 86 86 } 87 if (!-d $collect_dir) { 87 my $this_collect_dir = &util::filename_cat($collect_dir,$collect); 88 89 if (!-d $this_collect_dir) { 88 90 print STDERR "Error: $collect_dir does not exist\n"; 89 91 exit(-1); … … 92 94 93 95 if (!defined $build_dir) { 94 $build_dir = &util::filename_cat($ collect_dir,"index");96 $build_dir = &util::filename_cat($this_collect_dir,"index"); 95 97 push(@filtered_argv,"-builddir",$build_dir); 96 98 } -
gsdl/trunk/bin/script/incremental-import.pl
r18492 r18510 85 85 } 86 86 87 if (!defined $collect_dir) { 88 $collect_dir = &util::filename_cat($ENV{'GSDLHOME'},"collect"); 89 } 90 my $this_collect_dir = &util::filename_cat($collect_dir,$collect); 87 91 88 if (!defined $collect_dir) { 89 $collect_dir = &util::filename_cat($ENV{'GSDLHOME'},"collect",$collect); 90 } 91 if (!-d $collect_dir) { 92 print STDERR "Error: $collect_dir does not exist\n"; 92 if (!-d $this_collect_dir) { 93 print STDERR "Error: $this_collect_dir does not exist\n"; 93 94 exit(-1); 94 95 } … … 96 97 97 98 if (!defined $archive_dir) { 98 $archive_dir = &util::filename_cat($ collect_dir,"archives");99 $archive_dir = &util::filename_cat($this_collect_dir,"archives"); 99 100 } 100 101 -
gsdl/trunk/bin/script/incremental-rebuild.pl
r18470 r18510 61 61 my $collect = pop @argv; 62 62 63 my $collect_dir = &util::filename_cat($ENV{'GSDLHOME'},"collect",$collect);64 if (!-d $collect_dir) {65 print STDERR "Error: $collect_dir does not exist\n";66 exit(-1);67 }68 69 70 71 63 my $quoted_argv = join(" ", map { "\"$_\"" } @argv); 72 64
Note:
See TracChangeset
for help on using the changeset viewer.