Original release 20150615

[fex.git] / lib / dop

diff --git a/lib/dop b/lib/dop
index df9511b70538fcd64f69ac88444d05805ea74283..d8166247c3f922e5256debb874e649aa21b97a63 100755 (executable)
--- a/lib/dop
+++ b/lib/dop
@@ -16,7 +16,7 @@ use Cwd       qw(getcwd abs_path);
 # import from fex.pp
 our ($bs,$tmpdir,@doc_dirs);
 
 # import from fex.pp
 our ($bs,$tmpdir,@doc_dirs);
 

-my $log = "$logdir/dop.log";
+my $log = 'dop.log';

 
 # POSIX time format needed for HTTP header
 setlocale(LC_TIME,'POSIX');
 
 # POSIX time format needed for HTTP header
 setlocale(LC_TIME,'POSIX');


@@ -307,6 +307,7 @@ sub http_output {
     if ($type eq 'text/html') {
       alarm($timeout*10);
       print $htmldoc;
     if ($type eq 'text/html') {
       alarm($timeout*10);
       print $htmldoc;

+      $s = $size;

     } else {
       # binary data # can be stream!
       seek $file,$seek,0 if $seek;
     } else {
       # binary data # can be stream!
       seek $file,$seek,0 if $seek;


@@ -417,11 +418,6 @@ sub showindex {
 }
 
 
 }
 
 

-sub mtime {
-  return (lstat shift)[9];
-}
-
-

 sub d3 {
   local $_ = shift;
   while (s/(\d)(\d\d\d\b)/$1,$2/) {};
 sub d3 {
   local $_ = shift;
   while (s/(\d)(\d\d\d\b)/$1,$2/) {};