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

[www.jankratochvil.net.git] / project / captive / Thanks.pm

diff --git a/project/captive/Thanks.pm b/project/captive/Thanks.pm
index 8999879..c6a2586 100755 (executable)
--- a/project/captive/Thanks.pm
+++ b/project/captive/Thanks.pm
@@ -25,7 +25,7 @@ use warnings;
 
 use Carp qw(cluck confess);
 use My::Web;
-cluck "No Geo::IP!" if !$My::Web::have_Geo_IP; # For: &a_href_cz
+cluck "No Geo::IP!" if !$My::Web::have_Geo_IP; # For: &a_href_cc
 Wrequire 'project::Lib';
 
 
@@ -61,13 +61,13 @@ my($name,$pos,$why)=@_;
 
 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'),
@@ -75,7 +75,7 @@ print name a_href('http://www.pavouk.org/','Pavel "Pavouk" Ruzicka'),a_href('htt
 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";
@@ -88,6 +88,6 @@ print <<'HERE';
 HERE
 
 
-My::Web->footer();
+exit;
 }
 1;