chiark
/
gitweb
/
~ian
/
nj-awaymsg.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
run-mason.cgi: seems to work
[nj-awaymsg.git]
/
mason
/
main
diff --git
a/mason/main
b/mason/main
index e0d35c9a46f859d62305fa91662c7ce2a3d41a3d..a9bc72e20621da1a183218ecba490259ef544095 100755
(executable)
--- a/
mason/main
+++ b/
mason/main
@@
-1,6
+1,7
@@
<%init>
use AwayMsg;
db_connect();
<%init>
use AwayMsg;
db_connect();
+www_begin($r,$m);
my ($sth,$row,$sthi,$rowi);
</%init>
<&htmlhead, subpage => 'Overview' &>
my ($sth,$row,$sthi,$rowi);
</%init>
<&htmlhead, subpage => 'Overview' &>
@@
-39,7
+40,7
@@
$sth->execute();
<hr>
<h2>Outbound messages</h2>
<%perl>
<hr>
<h2>Outbound messages</h2>
<%perl>
-$sth = $dbh->prepare("SELECT * FROM texts ORDER BY
desc
");
+$sth = $dbh->prepare("SELECT * FROM texts ORDER BY
textid
");
$sthi = $dbh->prepare(<<END);
SELECT * FROM addresses
WHERE textid = ?
$sthi = $dbh->prepare(<<END);
SELECT * FROM addresses
WHERE textid = ?
@@
-53,15
+54,20
@@
$sth->execute();
<&| txtable, tx => $row &>
% $sthi->execute($row->{'textid'});
<&| txtable, tx => $row &>
% $sthi->execute($row->{'textid'});
+% my $anyused = 0;
% while (my $rowi= $sthi->fetchrow_hashref()) {
<tr><td>Used for:</td><td><% $rowi->{'emailaddr'} |h %></td></tr>
% while (my $rowi= $sthi->fetchrow_hashref()) {
<tr><td>Used for:</td><td><% $rowi->{'emailaddr'} |h %></td></tr>
+% $anyused++;
+% }
+% if ($anyused) {
+<tr><td colspan=2>Not currently in use</td></tr>
% }
</&>
<pre>
<% $row->{'text'} |h %>
</pre>
% }
</&>
<pre>
<% $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>
% }
value="Edit or configure this message">
<hr>
% }