&My::Web::footer call is deprecated now, use just: exit;

[www.jankratochvil.net.git] / Contact.pm

diff --git a/Contact.pm b/Contact.pm
index 73e982f..2bc4d68 100644 (file)
--- a/Contact.pm
+++ b/Contact.pm
@@ -25,7 +25,6 @@ use strict;
 use warnings;
 
 use My::Web;
-require CGI;
 Wrequire 'resume::ResumeJanKratochvil';
 use Carp qw(confess cluck);
 
@@ -41,7 +40,7 @@ My::Web->heading();
 
 
 print <<"HERE";
-<table width="100%" style="border-style: none;"><tr><td align="center"><table class="contact">
+<table border="0" class="contact">
 HERE
 my @contact=resume::ResumeJanKratochvil->Contact();
 my %keys=map(($_=>1),qw(Name eMail Projects OpenPGP));
@@ -59,11 +58,11 @@ HERE
        }
 cluck join(" ","Not found keys:",keys(%keys)) if keys(%keys);
 print <<"HERE";
-</table></td></tr></table>
+</table>
 
 HERE
 
 
-My::Web->footer();
+exit;
 }
 1;