requested file reference in EmbperlObject

[Volker Hess <Vo...@avmz.uni-siegen.de>]

Hi,

Using EmbperlObject I need a reference to the requested file to do
something like this in EMBPERL_OBJECT_BASE:

	$mtime = (stat($filename))[9]

I tried using the request object from mod_perl ($r->filename) but this is
a reference to EMBPERL_OBJECT_BASE. Does you have a simple solution?

Thanx
Volker

-- 
         Uni Siegen . Medienzentrum  **  Volker.Hess@avmz.uni-siegen.de
          phone: +49(0)271/740 2282  **  fax: +49(0)271/740 2526
     http://www.avmz.uni-siegen.de/  **  http://www.online-h.de/

Re: requested file reference in EmbperlObject

[Gerald Richter <ri...@ecos.de>]

Hi,
>
> Using EmbperlObject I need a reference to the requested file to do
> something like this in EMBPERL_OBJECT_BASE:
>
> $mtime = (stat($filename))[9]
>
> I tried using the request object from mod_perl ($r->filename) but this is
> a reference to EMBPERL_OBJECT_BASE. Does you have a simple solution?
>

[- $r = shift ;  # The Embperl request object -]

[- $mtime = (stat($r -> Sourcefile))[9] ; # name of the current executing
file -]

[- $mtime = (stat($r -> ReqFilename))[9] ; # name of the file for which the
request is  -]

Needs 1.3b4+

Gerald