openpgp: 1E3AD15E

[www.jankratochvil.net.git] / resume / ResumeJanKratochvil.pm

diff --git a/resume/ResumeJanKratochvil.pm b/resume/ResumeJanKratochvil.pm
index b8f0353..d9ab100 100644 (file)
--- a/resume/ResumeJanKratochvil.pm
+++ b/resume/ResumeJanKratochvil.pm
@@ -25,7 +25,6 @@ use strict;
 use warnings;
 
 use My::Web;
-require Crypt::Rot13;
 Wrequire 'project::Lib';
 Wrequire 'product::Lib';
 
@@ -39,7 +38,6 @@ my($self)=@_;
                "English" =>"technical: fluent, general: communicable",
                "Born"    =>"1979",
                "Sex"     =>"male",
-               "Licenses"=>"motorcycle, car",
                "eMail"   =>a_href('mailto:web@jankratochvil.net'),
                "Projects"=>a_href('http://www.jankratochvil.net/project/'),
                "Resume"  =>a_href('http://www.jankratochvil.net/resume/')."<br />"
@@ -47,7 +45,7 @@ my($self)=@_;
                                       a_href('/resume/ResumeJanKratochvil.pdf','PDF'),
                                       a_href('/resume/ResumeJanKratochvil.txt','text'),
                                       )." ]",
-               "OpenPGP" =>a_href('/pgp-JanKratochvil.txt','26A802B2'),
+               "OpenPGP" =>a_href('/pgp-JanKratochvil.txt','1E3AD15E'),
        );
 }
 
@@ -130,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>';
@@ -169,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" ]}
 
@@ -178,7 +176,9 @@ print <<"HERE";
 <tr><th>Date</th><th>Company</th>
                <th>Description</th></tr>
 <tr><td>2006/07-...</td><td class="com">@{[ a_href 'http://www.redhat.com/','Red Hat' ]}</td>
-               <td>GNU Build Tools development: primarily @{[ a_href 'http://www.gnu.org/software/gdb/','GDB' ]}</td></tr>
+               <td>
+                       @{[ a_href 'https://en.wikipedia.org/wiki/LLDB_(debugger)','LLDB' ]} development, @{[ a_href 'https://en.wikipedia.org/wiki/Executable_and_Linkable_Format','ELF' ]}, @{[ a_href 'https://en.wikipedia.org/wiki/DWARF','DWARF' ]}, @{[ a_href 'https://en.wikipedia.org/wiki/ptrace','ptrace' ]}, @{[ a_href 'https://en.wikipedia.org/wiki/Call_stack#Unwinding','unwinding' ]}, @{[ a_href 'https://en.wikipedia.org/wiki/Application_binary_interface','ABI' ]}, formerly @{[ a_href 'https://en.wikipedia.org/wiki/GNU_Debugger','GDB' ]} development
+               </td></tr>
 <tr><td>2005/04-11</td><td class="com">@{[
                                                a_href_cc {""=>'http://www.valinux.co.jp/en/',
                                                         "JP"=>'http://www.valinux.co.jp/'},'VA Linux Systems Japan' ]}</td>
@@ -339,6 +339,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/rhtapps/certification/verify/?certId=110-518-099','RHCE 110-518-099') ]}</td></tr>
 </table>
 
 @{[ vskip "2ex" ]}