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

[www.jankratochvil.net.git] / resume / ResumeJanKratochvil.pm

diff --git a/resume/ResumeJanKratochvil.pm b/resume/ResumeJanKratochvil.pm
index 8d01fb7..41ef8f8 100644 (file)
--- a/resume/ResumeJanKratochvil.pm
+++ b/resume/ResumeJanKratochvil.pm
@@ -42,8 +42,8 @@ my($self)=@_;
                "eMail"   =>(map({ a_href("mailto:$_",$_); } 'job@jankratochvil.net'))[0],
                "Projects"=>a_href('http://www.jankratochvil.net/project/'),
                "Resume"  =>a_href('http://www.jankratochvil.net/resume/')."<br />"
-                          ."[ ".a_href('/resume/Resume-JanKratochvil.pdf','PDF')
-                          ."| ".a_href('/resume/Resume-JanKratochvil.txt','text')
+                          ."[ ".a_href('/resume/ResumeJanKratochvil.pdf','PDF')
+                          ."| ".a_href('/resume/ResumeJanKratochvil.txt','text')
                           ."]",
                "OpenPGP" =>a_href('/pgp-JanKratochvil.txt','')
                            .'pub  1024D/26A802B2 2004-01-17'."<br />"
@@ -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 />
@@ -366,6 +366,6 @@ print <<"HERE";
 HERE
 
 
-My::Web->footer();
+exit;
 }
 1;