15 if (defined $create) {
17 foreach my $k (keys %ARGS) {
18 if ($k =~ m/^t(\d{0,7})$/) {
23 die unless defined $textid;
28 if ($ARGS{'create'}) {
29 my $date = `date --iso-8601=minutes`; chomp $date or die;
30 $tx = { desc => "Message created $date",
31 subject => "Away from my email",
35 my $sth = $dbh->prepare("SELECT * FROM texts WHERE textid=?");
36 $sth->execute($textid);
37 $tx = $sth->fetchrow_hashref();#
40 my $usedq = $dbh->prepare("SELECT * FROM addresses ORDER BY emailaddr");
43 if (!$tx) { die "no such text $textid"; }
46 <& htmlhead, subpage => "Edit \"$tx->{'desc'}\"" &>
47 <form action="save" method="post">
48 <&| txtable, tx => $tx, inputs => 1 &>
49 <tr><td colspan=2><textarea name="text" cols="79" rows="15"><%
50 $tx->{'text'} |h %></textarea></td></tr>
53 % while (my $row = $usedq->fetchrow_hashref()) {
54 <tr><td>Use for <% $row->{'emailaddr'} |h %></td>
55 <td><input type="checkbox"
60 <input type="hidden" name="textid" value="<% $tx->{'textid'} %>">
61 <input type="submit" name="save" value="Save">
62 <input type="submit" name="cancel" value="Cancel edit">