Skip to content
Browse files

Add missing message IDs.

  • Loading branch information...
1 parent 42739f3 commit e34cf74edf2836ce80165aa2b8f682047ceee6d6 matthew committed Oct 22, 2007
Showing with 3 additions and 1 deletion.
  1. +3 −1 mySociety/Alert.pm
View
4 mySociety/Alert.pm
@@ -6,7 +6,7 @@
# Copyright (c) 2007 UK Citizens Online Democracy. All rights reserved.
# Email: matthew@mysociety.org; WWW: http://www.mysociety.org/
#
-# $Id: Alert.pm,v 1.36 2007/10/02 09:07:18 matthew Exp $
+# $Id: Alert.pm,v 1.37 2007/10/22 18:00:04 matthew Exp $
package mySociety::Alert::Error;
@@ -31,6 +31,7 @@ use mySociety::EmailUtil;
use mySociety::Gaze;
use mySociety::GeoUtil;
use mySociety::MaPit;
+use mySociety::Random qw(random_bytes);
use mySociety::Sundries qw(ordinal);
use mySociety::Web qw(ent);
@@ -190,6 +191,7 @@ sub _send_aggregated_alert_email(%) {
_parameters_ => \%data,
From => [mySociety::Config::get('CONTACT_EMAIL'), mySociety::Config::get('CONTACT_NAME')],
To => $data{alert_email},
+ 'Message-ID' => sprintf('<alert-%s-%s@mysociety.org>', time(), unpack('h*', random_bytes(5))),
});
my $result;

0 comments on commit e34cf74

Please sign in to comment.
Something went wrong with that request. Please try again.