Changeset 214

Timestamp:

03/29/06 22:13:26 (18 years ago)

Author:

nanardon

Message:

• add a way to execute a command after processing, file list is pipe to the process

Location:

trunk/soft/ObsData

Files:

• ObsData.pm (modified) (1 diff)
• bin/obsdata (modified) (1 diff)
• testdata/obsdata-conftest (modified) (1 diff)

trunk/soft/ObsData/ObsData.pm

@@ -404 +404 @@
 }
 
+sub postprocessed {
+    my ($self) = @_;
+    my %datastype;
+    foreach my $entry (@{$self->{processed_lists}}) {
+        push(@{$datastype{$entry->{datatype}}}, $entry);
+    }
+
+    foreach my $datatype (keys %datastype) {
+        my $command = $self->getvalue($datatype, 'postexec');
+        $self->logging(0, 'postexec for %s is %s',
+            $datatype,
+            $command ? "`$command'" : 'not set, skipping',
+        );
+        if ($command) {
+            if (open(my $posthandle, "| $command")) {
+                foreach (@{$datastype{$datatype}}) {
+                    print $posthandle "$_->{destfile}\n" or do {
+                        $self->logging(4, "cannot write to postexec handle for `%s': %s",
+                            $datatype,
+                            $!,
+                        );
+                        last;
+                    };
+                }
+                my $exitstatus = close($posthandle);
+                $self->logging($exitstatus ? 0 : 4,
+                    "postexec for %s exit %s",
+                    $datatype,
+                    $exitstatus ? "correctly" : "with failure : " . ($! ? ($!) : "(??)"),
+                );
+            } else {
+                $self->logging(4, "Cannot exec post `%s' for `%s'",
+                    $command,
+                    $datatype,
+                );
+                next;
+            }
+        }
+    }
+}
+
 1;
 

trunk/soft/ObsData/bin/obsdata

@@ -132 +132 @@
 
 my $s = $obsdata->generated_reported();
-
-
+$s = $obsdata->postprocessed();
 
 =head1 AUTHOR

trunk/soft/ObsData/testdata/obsdata-conftest

@@ -18 +18 @@
 dest=%s/dest%s
 reportto=nanardon@nanardon.zarb.org
+postexec=cat > postexec.log
 
 [oxygene]