use warnings;
use My::Web;
-require Crypt::Rot13;
Wrequire 'project::Lib';
Wrequire 'product::Lib';
a_href('/resume/ResumeJanKratochvil.pdf','PDF'),
a_href('/resume/ResumeJanKratochvil.txt','text'),
)." ]",
- "OpenPGP" =>a_href('/pgp-JanKratochvil.txt','4D2089DB'),
+ "OpenPGP" =>a_href('/pgp-JanKratochvil.txt','1F0D6D7B'),
);
}
$r.='<td>';
$r.=$fullname;
if (lc($W->{"args"}{"referees"}) eq "referees") {
- my $rot13=Crypt::Rot13->new();
- $rot13->charge($mail);
- $mail=($rot13->rot13())[0];
+ # &Crypt::Rot13::rot13
+ $mail=~tr/a-zA-Z/n-za-mN-ZA-M/;
$r.=' <'.a_href("mailto:$mail").'>';
}
$r.='</td>';
@{[ vskip "2ex" ]}
-<p>Not looking for a new job.</p>
+@{[ # <p>Not looking for a new job.</p>
+]}
@{[ vskip "2ex" ]}
<tr><td class="tab-head">Protocols </td><td>GSM SMS/PDU/Nokia Smart Messaging/EMS/WAP/WTP/WSP/MMSE/SMIL/WML/AMR/ETSI stds/3GPP stds,
IPv4, HTTP, SMTP/RFC822/MIME, FTP, SSH, DHCP, POP3, IMAP4, NFS v2/v3, PPP/LCP/IPCP,...</td></tr>
<tr><td class="tab-head">Filesystems </td><td>ext2, FAT, AmigaFFS, ISO-9660</td></tr>
-<tr><td class="tab-head">Certificates </td><td>@{[ a_href('https://www.redhat.com/wapps/training/certification/verify.html?certNumber=805008572734652','RHCE') ]}</td></tr>
+<tr><td class="tab-head">Certificates </td><td>@{[ a_href('https://www.redhat.com/rhtapps/certification/verify/?certId=110-518-099','RHCE 110-518-099') ]}</td></tr>
</table>
@{[ vskip "2ex" ]}