sync
[www.jankratochvil.net.git] / resume / ResumeJanKratochvil.pm
index 363310b..134c8fa 100644 (file)
@@ -25,7 +25,6 @@ use strict;
 use warnings;
 
 use My::Web;
-require Crypt::Rot13;
 Wrequire 'project::Lib';
 Wrequire 'product::Lib';
 
@@ -46,7 +45,7 @@ my($self)=@_;
                                       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'),
        );
 }
 
@@ -129,9 +128,8 @@ my($mail,$fullname)=@_;
        $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.=' &lt;'.a_href("mailto:$mail").'&gt;';
                        }
        $r.='</td>';
@@ -168,7 +166,8 @@ print <<"HERE";
 
 @{[ vskip "2ex" ]}
 
-<p>Not looking for a new job.</p>
+@{[ # <p>Not looking for a new job.</p>
+]}
 
 @{[ vskip "2ex" ]}
 
@@ -338,7 +337,7 @@ print <<"HERE";
 <tr><td class="tab-head">Protocols    </td><td>GSM SMS/PDU/Nokia&nbsp;Smart&nbsp;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" ]}