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

[www.jankratochvil.net.git] / project / ChangeLog.pm

diff --git a/project/ChangeLog.pm b/project/ChangeLog.pm
index 47d2bd4..dbed17e 100755 (executable)
--- a/project/ChangeLog.pm
+++ b/project/ChangeLog.pm
@@ -36,9 +36,10 @@ my $W=My::Web->init(
                                "cvs"=>'^[\w\d][\w\d/.]*$',
                                },
                );
+My::Web->heading();
+$W->{"r"}->content_type("text/plain");
 
 
-$W->{"r"}->content_type("text/plain");
 local *F;
 open F,""
                ."cvs -n -q -d ".$W->{"pserver"}.":".$W->{"pserver_path"}." rlog ".$W->{"args"}{"cvs"}
@@ -49,6 +50,6 @@ print $_ while <F>;
 close F;
 
 
-exit 0;
+exit;
 }
 1;