" 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\"" &>