# $Id$
# Resume page Perl template.
# Copyright (C) 2003-2005 Jan Kratochvil <project-www.jankratochvil.net@jankratochvil.net>
# 
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; exactly version 2 of June 1991 is required
# 
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
# 
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA


package resume::ResumeJanKratochvil;
require 5.6.0;	# at least 'use warnings;' but we need some 5.6.0+ modules anyway
use vars qw($VERSION $CVS_ID);
$VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
$CVS_ID=q$Id$;
use strict;
use warnings;

use My::Web;
Wrequire 'project::Lib';
Wrequire 'product::Lib';


sub Contact($)
{
my($self)=@_;

	return (
		"name"    =>"Jan Kratochvil",
		"English" =>"fluent",
		"born"    =>"1979",
		"e-mail"  =>a_href('mailto:web@jankratochvil.net'),
		"projects before 2005"
		          =>a_href('http://www.jankratochvil.net/project/'),
		"resume"  =>a_href('http://www.jankratochvil.net/resume/')."<br />"
		            ."[ ".join(" | ",
		                       a_href('/resume/ResumeJanKratochvil.pdf','PDF'),
		                       )." ]",
		"OpenPGP" =>a_href('/pgp-JanKratochvil.txt','1E3AD15E'),
	);
}

sub handler
{
my $W=My::Web->init(
		"title"=>"Resume",
		"section"=>"Resume",
		"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.
		"no_job"=>1,
		);
$W->{"args"}{"Wabs"}=1;
My::Web->heading();


print <<"HERE";
<table border="0" class="margin-center">
HERE
my @contact=__PACKAGE__->Contact();
while (@contact) {
	my $key=shift @contact;
	my $val=shift @contact;
	print <<"HERE";
<tr>
	<td class="tab-head">$key</td>
	<td@{[ ($key ne "OpenPGP" ? '' : ' style="font-family: monospace; text-align: left;"') ]}>$val</td>
</tr>
HERE
	}
print <<"HERE";
</table>

@{[ vskip "2ex" ]}

<p style="text-align: center;">@{[ a_href('/resume/ResumeJanKratochvil.pdf','My PDF resume.') ]}</p>

HERE


exit;
}
1;