X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=nj-awaymsg.git;a=blobdiff_plain;f=mason%2Fmain;h=42cfaac56e48329390f41856deb226eb73c93593;hp=43ef45a058a29088207fe6563fb2064bdf0e0774;hb=47aa1f68c037b4f199b66740c94f837a7110ca2f;hpb=3b365cd3f647cf85145acec25d44a04415535be6 diff --git a/mason/main b/mason/main index 43ef45a..42cfaac 100755 --- a/mason/main +++ b/mason/main @@ -4,9 +4,9 @@ db_connect(); my ($sth,$row,$sthi,$rowi); -Email "out of office" setup +Email away message setup -

Email "out of office" setup

+

Email away message setup

Email addresses and their configuration

<%perl> @@ -24,29 +24,22 @@ $sth->execute(); Address Status Which message? -Expiry date % while (my $row= $sth->fetchrow_hashref()) { <% $row->{'emailaddr'} |h %> % if (defined $row->{'textid'}) { -% my $expires = expires2timet($row->{'expires'}); -% if (defined($expires) && $expires < time) { -expired -% } else { active -% } <% $row->{'desc'} |h %> -<% expirestime2show($expires) |h %> % } else { inactive - % } % } +

Outbound messages

<%perl> $sth = $dbh->prepare("SELECT * FROM texts ORDER BY desc"); @@ -73,6 +66,7 @@ $sth->execute(); +
% }

Add new message