use warnings;
use My::Web;
-require CGI;
require Crypt::Rot13;
Wrequire 'project::Lib';
my $W=My::Web->init(
"title"=>"Resume",
"section"=>"Resume",
- "heading"=>undef(),
- "footer"=>undef(),
- "head"=><<"HERE",
-<link rel="stylesheet" type="text/css" href="@{[ uri_escaped(path_web "/resume/ResumeJanKratochvil.css") ]}" />
-HERE
+ "heading"=>0,
+ "footer"=>0,
+ "css_push"=>"/resume/ResumeJanKratochvil.css",
"args_check"=>{
"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();
my $now=(localtime())[5]+1900;
print <<"HERE";
-<table width="100%" style="border-style: none;"><tr><td align="center"><table>
+<table border="0" class="margin-center">
HERE
my @contact=__PACKAGE__->Contact();
while (@contact) {
HERE
}
print <<"HERE";
-</table></td></tr></table>
+</table>
@{[ vskip "3ex" ]}
<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>
<hr />
<form method="post" action="@{[ uri_escaped(path_web $W->{"resume_url"}) ]}">
<p>Enter the word '<b>referees</b>' (without quotes) to disclose e-mail addresses:<br />
- <input type="text" size="15" name="referees" value="@{[ CGI::escapeHTML($W->{"args"}{"referees"}) ]}" /><br />
+ <input type="text" size="15" name="referees" value="@{[ escapeHTML($W->{"args"}{"referees"}) ]}" /><br />
<input type="submit" value="Submit" /><br />
(spambot protection)</p>
</form>
HERE
-My::Web->footer();
+exit;
}
1;