run-mason.cgi: seems to work

[nj-awaymsg.git] / mason / save

diff --git a/mason/save b/mason/save
index cedd05b28e87d389583cddfccb492fa5a520f343..c749084c757cb10928d2f7e25c804135f1c44703 100755 (executable)
--- a/mason/save
+++ b/mason/save
@@ -48,12 +48,15 @@ $dinsertq->execute($textid, $desc, $subject, $text);
 my $tdeleteq = $dbh->prepare("DELETE FROM addresses WHERE textid = ?");
 $tdeleteq->execute($textid);
 
+my $odeleteq = $dbh->prepare("DELETE FROM addresses WHERE emailaddr = ?");
+
 my $tinsertq = $dbh->prepare("INSERT INTO addresses (emailaddr, textid)".
                             " VALUES (?,?)");
 my $tlistq = $dbh->prepare("SELECT * FROM config");
 $tlistq->execute();
 while (my $row = $tlistq->fetchrow_hashref()) {
     if ($ARGS{"u_".hquote($row->{'emailaddr'})}) {
+       $odeleteq->execute($row->{'emailaddr'});
        $tinsertq->execute($row->{'emailaddr'}, $textid);
     }
 }