git://git.jankratochvil.net
/
www.jankratochvil.net.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
DeDOSified newlines, ugh.
[www.jankratochvil.net.git]
/
Contact.pm
diff --git
a/Contact.pm
b/Contact.pm
index
73e982f
..
296ae8c
100644
(file)
--- a/
Contact.pm
+++ b/
Contact.pm
@@
-25,7
+25,6
@@
use strict;
use warnings;
use My::Web;
use warnings;
use My::Web;
-require CGI;
Wrequire 'resume::ResumeJanKratochvil';
use Carp qw(confess cluck);
Wrequire 'resume::ResumeJanKratochvil';
use Carp qw(confess cluck);
@@
-41,7
+40,7
@@
My::Web->heading();
print <<"HERE";
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));
HERE
my @contact=resume::ResumeJanKratochvil->Contact();
my %keys=map(($_=>1),qw(Name eMail Projects OpenPGP));
@@
-59,7
+58,7
@@
HERE
}
cluck join(" ","Not found keys:",keys(%keys)) if keys(%keys);
print <<"HERE";
}
cluck join(" ","Not found keys:",keys(%keys)) if keys(%keys);
print <<"HERE";
-</table>
</td></tr></table>
+</table>
HERE
HERE