chiark / gitweb /
wip
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Wed, 12 Sep 2012 18:32:41 +0000 (19:32 +0100)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Wed, 12 Sep 2012 18:32:41 +0000 (19:32 +0100)
AwayMsg.pm
mason/edit
mason/main
mason/save

index 472850a..3e95f71 100644 (file)
@@ -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) {
index 651cb3e..bad80b8 100755 (executable)
@@ -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'}) {
index 55528ee..a9a8817 100755 (executable)
@@ -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>
 % }
index a34abe9..1f813c4 100755 (executable)
@@ -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\"" &>