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

[www.jankratochvil.net.git] / project / ssht / Index.pm

diff --git a/project/ssht/Index.pm b/project/ssht/Index.pm
index c654889..3572fa6 100644 (file)
--- a/project/ssht/Index.pm
+++ b/project/ssht/Index.pm
@@ -58,7 +58,7 @@ my $cvsfile=sub ($) {
 my($file)=@_;
 
        return a_href $W->{"project_viewcvs"}.'/*checkout*/ssht/hostintranet/etc-inittab?rev=HEAD',
-                       CGI::escapeHTML($file);
+                       escapeHTML($file);
 };
 
 print <<"HERE";
@@ -94,6 +94,6 @@ print <<"HERE";
 HERE
 
 
-My::Web->footer();
+exit;
 }
 1;