use strict;
use warnings;
+use Carp qw(cluck confess);
use My::Web;
+cluck "No Geo::IP!" if !$My::Web::have_Geo_IP; # For: &a_href_cc
Wrequire 'project::Lib';
{
My::Web->init(
"title"=>'Captive NTFS Thanks',
- "head"=><<"HERE",
-<link rel="stylesheet" type="text/css" href="@{[ uri_escaped(path_web "./Lib.css") ]}" />
-HERE
+ "css_push"=>"./Lib.css",
"heading_novskip"=>1,
"no_job"=>1,
);
print name "Karel Zatoukal",a_href("http://www.sun.com/","Sun Microsystems");
print name "Tim Boudreau",a_href("http://www.sun.com/","Sun Microsystems");
-print name a_href_cz('http://www.itpravo.cz/admin.shtml?x=45480','Jiri Cermak'),
+print name a_href_cc({"CZ"=>'http://www.itpravo.cz/admin.shtml?x=45480'},'Jiri Cermak'),
a_href("http://www.bakernet.com/",'Baker & McKenzie'),
'preflight IT law analysis';
print name a_href('http://www.ucw.cz/~mj/','Martin "MJ" Mares');
print name "Lubomir Bulej";
print name "Tomas Bures";
-print name a_href_cz('http://www.vellum.cz/','Lukas "Klokan" Horalek'),undef(),"services hosting";
+print name a_href_cc({"CZ"=>'http://www.vellum.cz/'},'Lukas "Klokan" Horalek'),undef(),"services hosting";
print name a_href('http://www-troja.fjfi.cvut.cz/~drab/','Martin Drab'),undef(),
"betatesting, ".a_href('http://lufs.sourceforge.net/lufs/','LUFS')." patches";
print name a_href('http://www.pavouk.org/','Pavel "Pavouk" Ruzicka'),a_href('http://www.gtsgroup.cz/','GTS'),
print name "Christian Kristukat",undef(),a_href('http://www.suse.com/','SUSE')." support";
print name "Jesse Glick",a_href("http://www.sun.com/","Sun Microsystems"),"betatesting";
print name "Lew",a_href("http://www.pivovary-staropramen.cz/web/en/","Pivovary Staropramen"),"web";
-print name a_href_cz('http://vellum.cz/~mikc/','Michal "MIKC" Conos'),undef(),
+print name a_href_cc({"CZ"=>'http://vellum.cz/~mikc/'},'Michal "MIKC" Conos'),undef(),
"betatesting";
print name a_href("http://sys.xiloo.com/","Matt Wu"),
a_href("http://sys.xiloo.com/projects/projects.htm#ext2fsd","Ext2fsd")." developer","W32 tips";
HERE
-My::Web->footer();
+exit;
}
1;