Changeset 24841 for gs2-extensions

Timestamp:

2011-12-01T12:26:53+13:00 (12 years ago)

Author:

jmt12

Message:

 

File:

• gs2-extensions/parallel-building/trunk/src/bin/script/spawn_collections.pl (modified) (2 diffs)

gs2-extensions/parallel-building/trunk/src/bin/script/spawn_collections.pl

@@ -4 +4 @@
 use warnings;
 
+BEGIN
+{
+  die "GSDLHOME not set\n" unless defined $ENV{'GSDLHOME'};
+}
+
 print "\n===== Spawn Test Collections =====\n\n";
 
-my $base_path = '/research/jmt12/gsdl-64-svn/collect';
-my @collections = ('gdbm','sqlite','tdb');
+my $base_path = $ENV{'GSDLHOME'} . '/collect';
+my @collections = ('gdbm','sqlite','tdb','gdbmserver');
 my @sizes = (100,500,1000,5000,10000,50000,100000,500000,1000000);
 
@@ -14 +19 @@
     foreach my $size (@sizes)
     {
-    next if ($collection eq 'tdb' && $size == 5000);
     my $size_str = sprintf("%07d", $size);
     my $collection_name = $collection . $size_str;
     my $collection_path = $base_path . '/' . $collection_name;
-    print " - Creating collection: " . $collection_name . "\n";
-    `mkdir $collection_path`;
-    `ln -s $base_path/$collection/etc $collection_path/etc`;
-    `ln -s $base_path/lorem$size_str/import $collection_path/import`;
+        if (!-d $collection_path)
+        {
+          print " - Creating collection: " . $collection_name . "\n";
+          `mkdir $collection_path`;
+          `ln -s $base_path/$collection/etc $collection_path/etc`;
+          `ln -s $base_path/lorem$size_str/import $collection_path/import`;
+        }
+        else
+        {
+          print " - Collection exists. Skipping: " . $collection_name . "\n";
+        }
     }
 }