Changeset 27499 for main

Timestamp:

2013-05-28T11:47:42+12:00 (11 years ago)

Author:

jmt12

Message:

New configuration options to control the creation of directories in the Archives directory... controlling the length of each split, and whether the string HASH should count against that limit

File:

• main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm

@@ -82 +82 @@
      'type' => "flag",
      'reqd' => "no",
-     'hiddengli' => "yes"}
+     'hiddengli' => "yes"},
+       { 'name' => "subdir_split_length",
+     'desc' => "{BasPlugout.subdir_split_length}",
+     'type' => "int",
+     'reqd' => "no",
+         'deft' => "8",
+     'hiddengli' => "no"},
+       { 'name' => "subdir_hash_prefix",
+     'desc' => "{BasPlugout.subdir_hash_prefix}",
+     'type' => "flag",
+     'reqd' => "no",
+         'deft' => "no",
+     'hiddengli' => "no"}
 ];
 
@@ -615 +627 @@
    do {
        $doc_dir .= "/" if $doc_dir_num > 0;
-       if ($doc_dir_rest =~ s/^(.{1,8})//) {
+       my $pattern = '^(.{1,' . $self->{'subdir_split_length'} . '})';
+       if ($self->{'subdir_hash_prefix'})
+       {
+         $pattern = '^((HASH)?.{1,' . $self->{'subdir_split_length'} . '})';
+       }
+       #if ($doc_dir_rest =~ s/^(.{1,$limit})//) {
+       if ($doc_dir_rest =~ s/$pattern//i)
+       {
        $doc_dir .= $1;
        $doc_dir_num++;