ソースを参照

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