"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 />"
"referees"=>'', # Do not bother with '^(?:(?i)referees)?$'
"print"=>'^(?:print)?$',
},
+ "http_safe"=>1, # For our anti-robot POST request.
);
$W->{"args"}{"Wabs"}=1;
My::Web->heading();
<caption>Fulltime Jobs</caption>
<tr><th>Date</th><th>Company</th>
<th>Description</th></tr>
-<tr><td>2005/04-now</td><td class="com">@{[ a_href 'http://www.valinux.co.jp/','VA Linux Systems Japan' ]}</td>
+<tr><td>2005/04-now</td><td class="com">@{[
+ a_href_cc {""=>'http://www.valinux.co.jp/en/',
+ "JP"=>'http://www.valinux.co.jp/'},'VA Linux Systems Japan' ]}</td>
<td>@{[ a_href 'http://www.kernel.org/','Linux kernel' ]}
based development</td></tr>
<tr><td>2004/01-11</td><td class="com">@{[ a_href 'http://www.sun.com/','Sun Microsystems' ]}</td>
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 />
HERE
-My::Web->footer();
+exit;
}
1;