Changeset 221

Timestamp:

04/09/06 04:45:21 (18 years ago)

Author:

nanardon

Message:

• running plugin code

Location:

trunk/soft/ObsData

Files:

• ObsData/Repository.pm (modified) (2 diffs)
• plugins/dummy.pl (modified) (1 diff)

trunk/soft/ObsData/ObsData/Repository.pm

@@ -578 +578 @@
     }
 
+    my %val;
+    if (my $sub = $self->{obsdata}->get_sub_plugin(
+            $datatype,
+            'match_plugin')) {
+        $self->logging(0,
+            "Found plugin %s for %s, running it",
+            'match_plugin',
+            $datatype,
+        );
+        my ($exitstatus, @result) = $sub->(
+            $self,
+            'match_plugin',
+            $datafile,
+            $datatype,
+        );
+        if ($exitstatus && @result % 2 == 0) {
+            $self->logging(0,
+                "Plugin %s for %s exit with %s (%d values)",
+                'match_plugin',
+                $datatype,
+                $exitstatus,
+                scalar(@result),
+            );
+            %val = @result;
+        } else {
+            $self->logging(4,
+                "No result from plugin %s of %s",
+                'match_plugin',
+                $datatype,
+            );
+        # FIXME return;  
+        }
+    }
+    
     my $dest = $self->{obsdata}->getvalue($datatype, 'dest');
     my @matcharg = split(/\s+/, $self->{obsdata}->getvalue($datatype, 'matcharg'));
@@ -583 +617 @@
     my @destarg = split(/\s+/, $self->{obsdata}->getvalue($datatype, 'destarg'));
     my @gmtime = gmtime;
-    my %val;
+
     foreach (@matcharg) {
         $val{$_} = shift(@data);

trunk/soft/ObsData/plugins/dummy.pl

@@ -4 +4 @@
 
 sub {
-    my ($obsdata) = @_;
-    return(1);
+    my ($rda, $plugintype, $datafile, $datatype) = @_;
+    return(
+        1, # exit code
+        'plugintype', $plugintype,
+        'datafile', $datafile,
+        'datatype', $datatype,
+    );
 }