Changeset 813 for trunk

Timestamp:

1999-12-07T10:49:15+13:00 (24 years ago)

Author:

sjboddie

Message:

plugins now take options and classifiers are handled properly

File:

• trunk/gsdl/perllib/cfgread.pm (modified) (4 diffs)

trunk/gsdl/perllib/cfgread.pm

@@ -71 +71 @@
 
 
-# stringexp and arrayexp should be something like
-#   '^(this|that)$'
+# stringexp, arrayexp, hashexp and arrayarrayexp 
+# should be something like '^(this|that)$'
 sub read_cfg_file {
-    my ($filename, $stringexp, $arrayexp, $hashexp) = @_;
+    my ($filename, $stringexp, $arrayexp, $hashexp, $arrayarrayexp) = @_;
     my ($line);
     my $data = {};
@@ -92 +92 @@
             my $v = shift @$line;
             $data->{$key}->{$k} = $v;
+        } elsif (defined $arrayarrayexp && $key =~ /$arrayarrayexp/) {
+            if (!defined $data->{$key}) {
+            $data->{$key} = [];
+            }
+            push (@{$data->{$key}}, $line);
         }
         }
@@ -104 +109 @@
 
 
-# stringexp and arrayexp should be something like
-#   '^(this|that)$'
+# stringexp, arrayexp, hashexp and arrayarrayexp 
+# should be something like '^(this|that)$'
 sub write_cfg_file {
-    my ($filename, $data, $stringexp, $arrayexp, $hashexp) = @_;
-
+    my ($filename, $data, $stringexp, $arrayexp, $hashexp, $arrayarrayexp) = @_;
+    
     if (open (COLCFG, ">$filename")) {
     foreach $key (sort(keys(%$data))) {
@@ -118 +123 @@
         foreach $k (keys (%{$data->{$key}})) {
             &write_cfg_line ('COLCFG', [$key, $k, $data->{$key}->{$k}]);
+        }
+        } elsif ($key =~ /$arrayarrayexp/) {
+        foreach $k (@{$data->{$key}}) {
+            &write_cfg_line ('COLCFG', [$key, @$k]);
         }
         }