wip login/logout handling

[nj-awaymsg.git] / mason / main

diff --git a/mason/main b/mason/main
index a9bc72e20621da1a183218ecba490259ef544095..03f25cb8440bb70f47c821bab7d7d6f776bc64da 100755 (executable)
--- a/mason/main
+++ b/mason/main
@@ -4,6 +4,9 @@ db_connect();
 www_begin($r,$m);
 my ($sth,$row,$sthi,$rowi);
 </%init>
+<%shared>
+our ($cgi,$ar);
+</%shared>
 <&htmlhead, subpage => 'Overview' &>
 
 <h2>Email addresses and their configuration</h2>
@@ -49,7 +52,8 @@ END
 $sth->execute();
 </%perl>
 % while (my $row= $sth->fetchrow_hashref()) {
-<form action="edit" method="get">
+<form action="<% $ENV{'URL'} %>/edit" method="POST">
+<% $ar->secret_hidden_html() %>
 <h3>Message "<% $row->{'desc'} |h %>"</h3>
 
 <&| txtable, tx => $row &>