Provide better <form /> specification by new: &My:Web::form_method

diff --git a/project/captive/Index.pm b/project/captive/Index.pm
index 1e2fcef..f28a8ca 100755 (executable)
--- a/project/captive/Index.pm
+++ b/project/captive/Index.pm
@@ -292,7 +292,7 @@ print <<"HERE";
 
 <h2 id="lists">Mailing Lists</h2>
 
-<form action="@{[ uri_escaped(path_web "/Mailman.pm") ]}" method="post">
+<form action="@{[ uri_escaped(path_web "/Mailman.pm") ]}" @{[ form_method "post" ]}>
        <table border="1" class="mailman" style="border-collapse: collapse; border-style: solid; border-width: 1px;">
                <tr>@{[ map('<th>'.$_.'@jankratochvil.net</th>',@lists) ]}</tr>
                <tr><td>New version announcements<br />

diff --git a/resume/ResumeJanKratochvil.pm b/resume/ResumeJanKratochvil.pm
index 55f51b8..41ef8f8 100644 (file)
--- a/resume/ResumeJanKratochvil.pm
+++ b/resume/ResumeJanKratochvil.pm
@@ -290,7 +290,7 @@ if (lc($W->{"args"}{"referees"}) ne "referees") {
        print <<"HERE";
                <tr><td style="padding: 10px;" colspan="2">
                        <hr />
-                       <form method="post" action="@{[ uri_escaped(path_web $W->{"resume_url"}) ]}">
+                       <form action="@{[ uri_escaped(path_web $W->{"resume_url"}) ]}" @{[ form_method "post" ]}>
                                <p>Enter the word '<b>referees</b>' (without quotes) to disclose e-mail addresses:<br />
                                <input type="text" size="15" name="referees" value="@{[ escapeHTML($W->{"args"}{"referees"}) ]}" /><br />
                                <input type="submit" value="Submit" /><br />