22 if ($textid ne 'new') {
23 my $dtextq = $dbh->prepare("DELETE FROM texts WHERE textid = ?");
24 my $ndeleted = $dtextq->execute($textid);
30 if ($textid eq 'new') {
32 my $ntextq = $dbh->prepare("SELECT textid FROM texts".
33 " ORDER BY textid DESC LIMIT 1");
35 my $ntextrow = $ntextq->fetchrow_hashref();
37 my $mintextid = $ntextrow->{'textid'} + 1;
38 $textid = $mintextid if $textid < $mintextid;
42 print STDERR Dumper([$textid, $desc, $subject, $text]);
44 my $dinsertq = $dbh->prepare("INSERT INTO texts (textid, desc, subject, text)".
46 $dinsertq->execute($textid, $desc, $subject, $text);
48 my $tdeleteq = $dbh->prepare("DELETE FROM addresses WHERE textid = ?");
49 $tdeleteq->execute($textid);
51 my $odeleteq = $dbh->prepare("DELETE FROM addresses WHERE emailaddr = ?");
53 my $tinsertq = $dbh->prepare("INSERT INTO addresses (emailaddr, textid)".
55 my $tlistq = $dbh->prepare("SELECT * FROM config");
57 while (my $row = $tlistq->fetchrow_hashref()) {
58 if ($ARGS{"u_".hquote($row->{'emailaddr'})}) {
59 $odeleteq->execute($row->{'emailaddr'});
60 $tinsertq->execute($row->{'emailaddr'}, $textid);
66 </%perl><& htmlhead, subpage => "Saved \"$desc\"" &>
67 Message and configuration saved.
69 <form action="main" method="get">
70 <input type="submit" value="OK">