if a user's email address is changed, also send an email to the old a…

…ddress

lib/Conch/Controller/User.pm

@@ -409,6 +409,17 @@ sub update ($c) {
             orig_data => \%orig_columns,
             new_data => \%dirty_columns,
         );
+
+        # also send to old email address, if it was changed!
+        $c->send_mail(
+            template_file => 'updated_user_account',
+            From => 'noreply',
+            To => '"'.$orig_columns{name}.'" <'.$orig_columns{email}.'>',
+            Subject => 'Your Conch account has been updated',
+            orig_data => \%orig_columns,
+            new_data => \%dirty_columns,
+        )
+        if exists $dirty_columns{email} and fc $input->{email} ne fc $orig_columns{email};
     }
 
     $c->log->debug('updating user '.$user->email.': '.$c->req->text);

t/integration/users.t

@@ -183,15 +183,23 @@ subtest 'User' => sub {
                 { email => '[email protected]' },
                 { name => 'conch' };
 
-    $t->post_ok('/user/me', json => { email => 'rO_USer@cONCh.joyent.us', name => 'rO_USer' })
+    $t->post_ok('/user/me', json => { email => 'rO_USer_new@cONCh.joyent.us', name => 'rO_USer' })
         ->status_is(204)
         ->location_is('/user/'.$ro_user->id)
-        ->email_cmp_deeply({
-            To => '"rO_USer" <[email protected]>',
+        ->email_cmp_deeply([
+          {
+            To => '"rO_USer" <[email protected]>',
             From => '[email protected]',
             Subject => 'Your Conch account has been updated',
-            body => re(qr/^Your account at \Q$JOYENT\E has been updated:\R\R {7}email: ro_user\@conch.joyent.us -> rO_USer\@cONCh.joyent.us\R {8}name: ro_user -> rO_USer\R\R/m),
-        });
+            body => re(qr/^Your account at \Q$JOYENT\E has been updated:\R\R {7}email: ro_user\@conch.joyent.us -> rO_USer_new\@cONCh.joyent.us\R {8}name: ro_user -> rO_USer\R\R/m),
+          },
+          {
+            To => '"ro_user" <[email protected]>',
+            From => '[email protected]',
+            Subject => 'Your Conch account has been updated',
+            body => re(qr/^Your account at \Q$JOYENT\E has been updated:\R\R {7}email: ro_user\@conch.joyent.us -> rO_USer_new\@cONCh.joyent.us\R {8}name: ro_user -> rO_USer\R\R/m),
+          },
+        ]);
 
     $ro_user->discard_changes;