wip

[nj-awaymsg.git] / mason / save

diff --git a/mason/save b/mason/save
index a34abe970ca4bae07d15c80c4eea51b9cc927ef0..1f813c4867d969858902737870bbccb0f0648ed0 100755 (executable)
--- a/mason/save
+++ b/mason/save
@@ -42,6 +42,19 @@ my $dinsertq = $dbh->prepare("INSERT INTO texts (textid, desc, subject, text)".
                             " VALUES (?,?,?,?)");
 $dinsertq->execute($textid, $desc, $subject, $text);
 
+my $tdeleteq = $dbh->prepare("DELETE FROM addresses WHERE textid = ?");
+$tdeleteq->execute($textid);
+
+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'})}) {
+fixme
+    }
+}
+
 db_commit();
 
 </%perl><& htmlhead, subpage => "Saved \"$desc\"" &>