Changeset 211

Timestamp:

01/27/06 21:42:25 (18 years ago)

Author:

thauvin

Message:

• add function to genrated mail report

Location:

trunk/soft/ObsData

Files:

• ObsData.pm (modified) (2 diffs, 1 prop)
• bin/obsdata (modified) (1 diff, 1 prop)
• testdata/obsdata-conftest (modified) (2 diffs, 1 prop)

trunk/soft/ObsData/ObsData.pm

@@ -8 +8 @@
 use POSIX qw(strftime);
 use ObsData::Repository;
+use Mail::Sendmail;
+use MIME::QuotedPrint;
 
 my @loglevel = (
@@ -355 +357 @@
 }
 
+sub generated_reported {
+    my ($self) = @_;
+    my $result = {
+        all => [],
+        users => {},
+    };
+
+    foreach my $entry (@{$self->{processed_lists}}) {
+        my @people = split(/\s*,\s*/, $self->getvalue($entry->{datatype}, 'reportto') || "");
+        @people or next;
+        foreach my $p (@people) {
+            push(@{$result->{users}{$p}{$entry->{datatype}}}, $entry);
+        }
+    }
+
+    foreach my $p (keys(%{$result->{users} || {}})) {
+        my %msg = (
+            Subject => 'ObsData Report',
+            To => $p,
+            'X-ObsData-Version' => $VERSION,
+            'Content-Type' => "TEXT/PLAIN;\n  charset=ISO-8859-1",
+            'Content-Transfer-Encoding' => 'QUOTED-PRINTABLE',
+            From => 'ObsData <robot@aerov.jussieu.fr>',
+        );
+        my $message = "";
+        foreach my $d (keys(%{$result->{users}{$p} || {}})) {
+            $message .= "\nDataType: $d\n";
+            foreach (@{$result->{users}{$p}{$d} || []}) {
+                $message .= sprintf("\tfile %s from %s\n\t=> %s\n",
+                    $_->{datafile},
+                    $_->{archive},
+                    $_->{destfile},
+                );
+            }
+        }
+        sendmail(
+            %msg,
+            smtp => 'mailhost',
+            Message => encode_qp($message),
+        ) or $self->log(4, "Cannot send mail to %s: %s",
+            $msg{To}, $Mail::Sendmail::error,
+        );
+        print "OK. Log says:\n", $Mail::Sendmail::log;
+    }
+    return $result;
+}
+
 1;
 

trunk/soft/ObsData/bin/obsdata

@@ -131 +131 @@
 }
 
+my $s = $obsdata->generated_reported();
+
+
+
 =head1 AUTHOR
 

trunk/soft/ObsData/testdata/obsdata-conftest

@@ -17 +17 @@
 destarg=num num
 dest=%s/dest%s
+reportto=nanardon@nanardon.zarb.org
 
 [oxygene]
@@ -25 +26 @@
 destarg=%Y arnum $datafile
 dest=%s/dest%s/%s
+reportto=thauvin@aerov.jussieu.fr