$r->header_out("Cache-Control: no-cache");
}
+sub hquote ($) {
+ my ($raw) = @_;
+ return pack "H*", $raw;
+}
+
sub db_connect () {
my $dbf;
foreach my $d (@INC) {
if (defined $create) {
} else {
foreach my $k (keys %ARGS) {
- if ($k =~ m/^t(\d{0,7})$/) {
+ if ($k =~ m/^t_(\d{0,7})$/) {
$textid= $1;
last;
}
</table><table>
% while (my $row = $usedq->fetchrow_hashref()) {
<tr><td>Use for <% $row->{'emailaddr'} |h %></td>
-<td><input type="checkbox"
+<td><input type="checkbox" value="1" name=u_<% hqote($row->{'emailaddr'}) %>
% if (!$create && $row->{'textid'} eq $textid) {
checked></td><td>(currently using this message)
% } elsif (defined $row->{'textid'}) {
<% $row->{'text'} |h %>
</pre>
-<input type="submit" name="t<% $row->{'textid'} %>"
+<input type="submit" name="t_<% $row->{'textid'} %>"
value="Edit or configure this message">
<hr>
% }
" 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\"" &>