Changeset 24841 for gs2-extensions/parallel-building/trunk/src
- Timestamp:
- 2011-12-01T12:26:53+13:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs2-extensions/parallel-building/trunk/src/bin/script/spawn_collections.pl
r24694 r24841 4 4 use warnings; 5 5 6 BEGIN 7 { 8 die "GSDLHOME not set\n" unless defined $ENV{'GSDLHOME'}; 9 } 10 6 11 print "\n===== Spawn Test Collections =====\n\n"; 7 12 8 my $base_path = '/research/jmt12/gsdl-64-svn/collect';9 my @collections = ('gdbm','sqlite','tdb' );13 my $base_path = $ENV{'GSDLHOME'} . '/collect'; 14 my @collections = ('gdbm','sqlite','tdb','gdbmserver'); 10 15 my @sizes = (100,500,1000,5000,10000,50000,100000,500000,1000000); 11 16 … … 14 19 foreach my $size (@sizes) 15 20 { 16 next if ($collection eq 'tdb' && $size == 5000);17 21 my $size_str = sprintf("%07d", $size); 18 22 my $collection_name = $collection . $size_str; 19 23 my $collection_path = $base_path . '/' . $collection_name; 20 print " - Creating collection: " . $collection_name . "\n"; 21 `mkdir $collection_path`; 22 `ln -s $base_path/$collection/etc $collection_path/etc`; 23 `ln -s $base_path/lorem$size_str/import $collection_path/import`; 24 if (!-d $collection_path) 25 { 26 print " - Creating collection: " . $collection_name . "\n"; 27 `mkdir $collection_path`; 28 `ln -s $base_path/$collection/etc $collection_path/etc`; 29 `ln -s $base_path/lorem$size_str/import $collection_path/import`; 30 } 31 else 32 { 33 print " - Collection exists. Skipping: " . $collection_name . "\n"; 34 } 24 35 } 25 36 }
Note:
See TracChangeset
for help on using the changeset viewer.