Mailing List Archive

requested file reference in EmbperlObject
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 [ In reply to ]
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