wip

diff --git a/AwayMsg.pm b/AwayMsg.pm
index 472850a81149ae3bcb0d5fd0e5b0ee4e07f8236c..3e95f713bc7763b8be455920704a17545b444b21 100644 (file)
--- a/AwayMsg.pm
+++ b/AwayMsg.pm
@@ -25,6 +25,11 @@ sub www_begin ($$) {
     $r->header_out("Cache-Control: no-cache");
 }
 
+sub hquote ($) {
+    my ($raw) = @_;
+    return pack "H*", $raw;
+}
+
 sub db_connect () {
     my $dbf;
     foreach my $d (@INC) {

diff --git a/mason/edit b/mason/edit
index 651cb3e64f85da6ecc77534c4853daf174d0d4e2..bad80b836604c6e0ed5a891cb8605611f6324853 100755 (executable)
--- a/mason/edit
+++ b/mason/edit
@@ -15,7 +15,7 @@ my $textid;
 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;
        }
@@ -58,7 +58,7 @@ if (!$tx) { die "no such text $textid"; }
 </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'}) {

diff --git a/mason/main b/mason/main
index 55528eebe15265ce24fba3395cc5878aff27d5a4..a9a881719d368e8c7d2b4f0e9546b6fd1719515d 100755 (executable)
--- a/mason/main
+++ b/mason/main
@@ -62,7 +62,7 @@ $sth->execute();
 <% $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>
 % }

diff --git a/mason/save b/mason/save
index a34abe970ca4bae07d15c80c4eea51b9cc927ef0..1f813c4867d969858902737870bbccb0f0648ed0 100755 (executable)
--- a/mason/save
+++ b/mason/save
@@ -42,6 +42,19 @@ my $dinsertq = $dbh->prepare("INSERT INTO texts (textid, desc, subject, text)".
                             " 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\"" &>