X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=nj-awaymsg.git;a=blobdiff_plain;f=mason%2Fedit;h=c8ee036601ac0f7e578394100f99bb773dc2c215;hp=7869cc814c4cc6526c0aec599e2efd881d48223a;hb=ad848a3d5e86602f7a568e6a0b034b21a177171a;hpb=1f01b365b07c5952ec878a4ca0d4b69f2ed14f80 diff --git a/mason/edit b/mason/edit index 7869cc8..c8ee036 100755 --- a/mason/edit +++ b/mason/edit @@ -1,6 +1,7 @@ <%init> use AwayMsg; db_connect(); +www_begin($r,$m); <%args> @@ -22,21 +23,40 @@ if (defined $create) { die unless defined $textid; } -my $sth = $dbh->prepare("SELECT * FROM texts WHERE textid=?"); -$sth->execute($textid); -my $tx = $sth->fetchrow_hashref();# +my $tx; + +if ($ARGS{'create'}) { + my $date = `date --iso-8601=minutes`; chomp $date or die; + $tx = { desc => "Message created $date", + subject => "Away from my email", + textid => "new", + text => "" }; +} else { + my $sth = $dbh->prepare("SELECT * FROM texts WHERE textid=?"); + $sth->execute($textid); + $tx = $sth->fetchrow_hashref();# +} + +my $usedq = $dbh->prepare("SELECT * FROM addresses ORDER BY emailaddr"); +$usedq->execute(); if (!$tx) { die "no such text $textid"; } - -Editing - <% $tx->{'desc'} |h %> - Email "out of office" setup - -

Edit "<% $tx->{'desc'} |h %>"

+<& htmlhead, subpage => "Edit \"$tx->{'desc'}\"" &>