@ISA=qw(Exporter);
@EXPORT=qw(%WebConfig);
+use My::Web;
require CGI;
"pserver"=>':pserver:pserver:@cvs.jankratochvil.net',
"pserver_path"=>"/cvs",
"heading"=>sub () {
-# print "<h1>heading</h1>\n";
+ print '<table border="0" align="center" style="font-size: larger;">'."\n";
+ print '<col width="20%">'."\n";
+ print '<col width="50%">'."\n";
+ print '<col width="20%">'."\n";
+ print '<tr>'."\n";
+ print '<td>'."\n";
+ print '<table border="1" align="left"'
+ .' style="border-collapse: collapse; border-style: solid; border-width: 2px;">'."\n";
+ print '<tr>'."\n";
+ print '<td style="padding: 5px; font-weight: bold;">'."\n";
+ print My::Web::a_href('http://www.jankratochvil.net/','Jan Kratochvil');
+ print '</td>'."\n";
+ print '</tr>'."\n";
+ print '</table>';
+ print '</td>'."\n";
+ print '<td>'."\n";
+ print '<table border="1" align="center"'
+ .' style="border-collapse: collapse; border-style: solid; border-width: 2px;">'."\n";
+ print '<tr>'."\n";
+ my @sections=(
+ My::Web::top_dir()."/project/"=>"Projects",
+ "http://cvs.jankratochvil.net/"=>"CVS",
+# My::Web::top_dir()."/News.html.pl"=>"News",
+ My::Web::top_dir()."/Resume.html.pl"=>"Resume",
+ My::Web::top_dir()."/Contact.html.pl"=>"Contact",
+ );
+ while (@sections) {
+ my $section_path=shift @sections;
+ my $section_name=shift @sections;
+ print '<td style="padding: 5px;">';
+ print(($My::Web::W->{"section"} || "") eq $section_name ? "<b>$section_name</b>"
+ : My::Web::a_href($section_path,$section_name));
+ print "</td>\n";
+ }
+ print '</tr>'."\n";
+ print '</table>'."\n";
+ print '</td>'."\n";
+ print '</tr>'."\n";
+ print '</table>'."\n";
+ print My::Web::vskip("1ex");
},
"footing"=>sub () {
# print "<h1>footing</h1>\n";