浏览代码

Send Content-Length header

Alois Mahdal 11 年前
父节点
当前提交
d9ff5ad2fa
共有 1 个文件被更改,包括 4 次插入1 次删除
  1. 4
    1
      cgi-bin/htlog/htlog.cgi

+ 4
- 1
cgi-bin/htlog/htlog.cgi 查看文件

47
 
47
 
48
 print $fh $message;
48
 print $fh $message;
49
 
49
 
50
+my $out = "Message logged: $msg\n";
51
+
50
 print $q->header(
52
 print $q->header(
51
     -type               => 'text/plain',
53
     -type               => 'text/plain',
52
     -expires            => 'now',
54
     -expires            => 'now',
55
+    -content_lentgth    => length $out
53
 );
56
 );
54
 
57
 
55
-print "Message logged: $msg\n";
58
+print $out;
56
 
59
 
57
 close $fh or die "cannot close log file: $!";
60
 close $fh or die "cannot close log file: $!";
58
 
61