|
Last change
on this file since 24839 was 24694, checked in by jmt12, 13 years ago |
|
Setup script to generate a number of collections or varying sizes based on template collections
|
-
Property svn:executable
set to
*
|
|
File size:
793 bytes
|
| Line | |
|---|
| 1 | #!/usr/bin/perl
|
|---|
| 2 |
|
|---|
| 3 | use strict;
|
|---|
| 4 | use warnings;
|
|---|
| 5 |
|
|---|
| 6 | print "\n===== Spawn Test Collections =====\n\n";
|
|---|
| 7 |
|
|---|
| 8 | my $base_path = '/research/jmt12/gsdl-64-svn/collect';
|
|---|
| 9 | my @collections = ('gdbm','sqlite','tdb');
|
|---|
| 10 | my @sizes = (100,500,1000,5000,10000,50000,100000,500000,1000000);
|
|---|
| 11 |
|
|---|
| 12 | foreach my $collection (@collections)
|
|---|
| 13 | {
|
|---|
| 14 | foreach my $size (@sizes)
|
|---|
| 15 | {
|
|---|
| 16 | next if ($collection eq 'tdb' && $size == 5000);
|
|---|
| 17 | my $size_str = sprintf("%07d", $size);
|
|---|
| 18 | my $collection_name = $collection . $size_str;
|
|---|
| 19 | 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 | }
|
|---|
| 25 | }
|
|---|
| 26 | print "\n===== Complete! =====\n\n";
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
