21 if ($textid ne 'new') {
22 my $dtextq = $dbh->prepare("DELETE FROM texts WHERE textid = ?");
23 my $ndeleted = $dtextq->execute($textid);
29 if ($textid eq 'new') {
31 my $ntextq = $dbh->prepare("SELECT textid FROM texts".
32 " ORDER BY textid DESC LIMIT 1");
34 my $ntextrow = $ntextq->fetchrow_hashref();
36 my $mintextid = $ntextrow->{'textid'} + 1;
37 $textid = $mintextid if $textid < $mintextid;
41 my $dinsertq = $dbh->prepare("INSERT INTO texts (textid, desc, subject, text)".
43 $dinsertq->execute($textid, $desc, $subject, $text);
45 my $tdeleteq = $dbh->prepare("DELETE FROM addresses WHERE textid = ?");
46 $tdeleteq->execute($textid);
48 my $tinsertq = $dbh->prepare("INSERT INTO addresses (emailaddr, textid)".
50 my $tlistq = $dbh->prepare("SELECT * FROM config");
52 while (my $row = $tlistq->fetchrow_hashref()) {
53 if ($ARGS{"u_".hquote($row->{'emailaddr'})}) {
60 </%perl><& htmlhead, subpage => "Saved \"$desc\"" &>
61 Message and configuration saved.
63 <form action="main" method="get">
64 <input type="submit" value="OK">