Changeset 268 for obsdata/trunk

Timestamp:

10/23/06 11:08:01 (18 years ago)

Author:

nanardon

Message:

• allow to send all report to a list of people (#13), from a list by station (#14)
• ensure uniqness of message by mail

Location:

obsdata/trunk

Files:

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

obsdata/trunk/ObsData.pm

@@ -472 +472 @@
 
     foreach my $entry (@{$self->{processed_lists}}) {
-        my @people = split(/\s*,\s*/, $self->getvalue($entry->{datatype}, 'reportto') || "");
-        @people or next;
-        foreach my $p (@people) {
+        my %people = map { $_ => 1 } grep { $_ } (
+            split(/\s*,\s*/, $self->getvalue($entry->{datatype}, 'reportto') || ""),
+            split(/\s*,\s*/, $self->getvalue($entry->{obs}, 'reportto') || ""),
+            split(/\s*,\s*/, $self->getvalue('global', 'allreportto') || "")
+        );
+        keys %people or next;
+        foreach my $p (keys %people) {
             push(@{$result->{users}{$p}}, $entry);
         }

obsdata/trunk/testdata/obsdata-conftest

@@ -5 +5 @@
 [global]
 plugindir=plugins
+allreportto=thauvin@aero.jussieu.fr
 
 [Obs ohp]
@@ -12 +13 @@
 datadir=testdata/ohp
 datadir/ozone=testdata/ohp/ozone
+reportto=nanardon@zarb.org
 
 [ozone]