Re: Modifying the reported size in a directory index

[Doug MacEachern <do...@covalent.net>]

On Tue, 22 Aug 2000, Jens-Uwe Mager wrote:

> I am looking for a way to update the reported size of a file in a plain
> directory index generated by Apache. I have installed a perl fixup
> handler that does check if a Macintosh resource fork is available
> additionally to the plain data fork and it replaces the default content
> handler with a custom one that combines both the data and resource fork
> on the fly in the MacBinary archive format. This all runs fine and well.
> 
> The problem I have now that I need to modify the displayed size in the
> directory index. For example if the file in question is a Mac resource
> file with no data area the directory index displays 0k as the plain data
> file really has a zero length. I would believe that I need to delve into
> the C innards of the request record and add the size of the resource
> fork to the st_size field of the stat record to fix this, or does
> anybody have any better idea how to do this in plain perl?

i probably shouldn't be 'working' on xmas, but have some time to kill
before the airport and have had this in mind since you first posted (4
months ago!).  with the patch below and this package:
http://perl.apache.org/~dougm/Sys-Stat-0.01.tar.gz

a fixup handler can modify the reported size like so:

sub MyFixup::handler {
    my $r = shift;
    my $stat = Sys::Stat->stat($r->filename);
    $stat->size(10_000); #whatever size
    $r->finfo($stat); #changed size will be reflected in dirindex output
    0;
}

Index: src/modules/perl/Apache.xs
===================================================================
RCS file: /home/cvs/modperl/src/modules/perl/Apache.xs,v
retrieving revision 1.118
diff -u -r1.118 Apache.xs
--- src/modules/perl/Apache.xs	2000/12/22 20:56:24	1.118
+++ src/modules/perl/Apache.xs	2000/12/26 02:02:13
@@ -1906,10 +1906,26 @@
 #  struct stat finfo;		/* ST_MODE set to zero if no such file */
 
 SV *
-finfo(r)
+finfo(r, sv_statbuf=Nullsv)
     Apache r
+    SV *sv_statbuf
 
     CODE:
+    if (sv_statbuf) {
+        if (SvROK(sv_statbuf) && SvOBJECT(SvRV(sv_statbuf))) {
+            STRLEN sz;
+            char *buf = SvPV((SV*)SvRV(sv_statbuf), sz);
+            if (sz != sizeof(r->finfo)) {
+                croak("statbuf size mismatch, got %d, wanted %d",
+                      sz, sizeof(r->finfo));
+            }
+            memcpy(&r->finfo, buf, sz);
+        }
+        else {
+            croak("statbuf is not an object");
+        }
+    }
+
     statcache = r->finfo;
     if (r->finfo.st_mode) {
 	laststatval = 0;

Re: Modifying the reported size in a directory index

[Jens-Uwe Mager <ju...@helios.de>]

On Mon, Dec 25, 2000 at 06:22:04PM -0800, Doug MacEachern wrote:
> i probably shouldn't be 'working' on xmas, but have some time to kill
> before the airport and have had this in mind since you first posted (4
> months ago!).  with the patch below and this package:
> http://perl.apache.org/~dougm/Sys-Stat-0.01.tar.gz
> 
> a fixup handler can modify the reported size like so:
> 
> sub MyFixup::handler {
>     my $r = shift;
>     my $stat = Sys::Stat->stat($r->filename);
>     $stat->size(10_000); #whatever size
>     $r->finfo($stat); #changed size will be reflected in dirindex output
>     0;
> }

Wow! Thanks for making that available, it exactly does what I wanted. I
just patched my modperl with the patch and also installed Sys::Stat and
use the new module in my MacBinary fixup handler and it works beautifully.

-- 
Jens-Uwe Mager

HELIOS Software GmbH
Steinriede 3
30827 Garbsen
Germany

Phone:		+49 5131 709320
FAX:		+49 5131 709325
Internet:	jum@helios.de