Changeset 117

Timestamp:

12/12/05 20:46:29 (19 years ago)

Author:

thauvin

Message:

• update checkconfig for regexp

Location:

trunk/soft/ObsData

Files:

• MANIFEST (modified) (2 diffs, 1 prop)
• ObsData.pm (modified) (1 diff, 1 prop)
• t/O-03.t (added)
• testdata/obsdata-wrongconf (added)

trunk/soft/ObsData/MANIFEST

@@ -14 +14 @@
 testdata/coin.tar.gz
 testdata/obsdata-conftest
+testdata/obsdata-wrongconf
 testdata/ohp/ozone34.gz
 testdata/ohp/ozone12.gz
@@ -19 +20 @@
 t/O-01.t
 t/O-02.t
+t/O-03.t
 t/OA-01.t
 t/OA-02.t

trunk/soft/ObsData/ObsData.pm

@@ -147 +147 @@
         foreach my $param ($self->{config}->Parameters($obs)) {
         }
+        foreach my $datatype ($self->list_datatype) {
+            my $regexp = $self->getvalue($datatype, 'match') or next; # next ? are we sure ?
+            eval { qr/$regexp/ }; # Many thanks Rafael
+            if ($@) {
+                $self->loging(4, "error in regexp: '%s': %s",
+                    $regexp,
+                    $@,
+                );
+                # TODO set this reg unavalable
+            }
+        }
     }
 }