character encoding information in generated headers; password in eval_bb()

[ott/bsta] / frame.1.pl

diff --git a/frame.1.pl b/frame.1.pl
index 360f8ad630aedbaf258ef4175bcc805dbde1d7df..92485f34d9ef5367cd04c945b59a4f60bda0f3d4 100644 (file)
--- a/frame.1.pl
+++ b/frame.1.pl
@@ -201,7 +201,9 @@ unless (binmode($fh)) {
 if (my @file_info = stat_encoded($frame_path)){
        print 'Content-length: '.$file_info[7]."\n";
 }
-print 'Content-type: '.$frame_data{'content-type'}."\n";
+if ($frame_data{'content-type'} ne '') {
+       print 'Content-type: '.$frame_data{'content-type'}."\n";
+}
 unless (binmode STDOUT) {
        close($fh);
        exit fail_500("Can't switch output to binary mode.");