Return-Path: 
 <embperl-return-5126-apmail-perl-embperl-archive=perl.apache.org@perl.apache.org>
Delivered-To: apmail-perl-embperl-archive@perl.apache.org
Received: (qmail 11692 invoked by uid 500); 31 Dec 2002 01:35:59 -0000
Mailing-List: contact embperl-help@perl.apache.org; run by ezmlm
Precedence: bulk
list-help: <mailto:embperl-help@perl.apache.org>
list-unsubscribe: <mailto:embperl-unsubscribe@perl.apache.org>
list-post: <mailto:embperl@perl.apache.org>
Delivered-To: mailing list embperl@perl.apache.org
Received: (qmail 11679 invoked from network); 31 Dec 2002 01:35:58 -0000
Subject: Re: pathname of current executing file relative to document root
From: Carlos Kassab <ckg@glin.com.mx>
To: Kee Hinckley <nazgul@somewhere.com>
Cc: embperl@perl.apache.org
In-Reply-To: <p05300b80ba369f531180@[192.168.0.17]>
References: <p05300b6bba3665d19707@[192.168.0.17]>
	<p05300b80ba369f531180@[192.168.0.17]>
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
X-Mailer: Ximian Evolution 1.0.8-3mdk 
Date: 30 Dec 2002 19:36:47 -0600
Message-Id: <1041298608.2376.20.camel@ckg01>
Mime-Version: 1.0
X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N

Hi, maybe this resolve your problem.


[+ $ENV{'PATH_TRANSLATED'}+]

This env variable have the value you are looking for.

Well it resolve the problem i have to execute subs from different
directory trees.


[-

@keys =3D keys %ENV;
@values =3D values %ENV;

-]

[$ while (@keys) $]

[+pop(@keys)+]=3D [+pop(@values)+]<br>

[$ endwhile $]

<br><br>
[-
$the_page_path=3Dsubstr($ENV{'PATH_TRANSLATED'},0,length($ENV{'PATH_TRANSLA=
TED'})-6); -]

File being called: [+ $ENV{'PATH_TRANSLATED'}+]<br><br>
Page path: [+ the_page_path +]<br><br>


Carlos Kassab

El lun, 30-12-2002 a las 19:12, Kee Hinckley escribi=F3:
> At 4:09 PM -0500 12/30/02, Kee Hinckley wrote:
> >Is there a clean way to get this in HTML::EmbperlObject, or should I jus=
t take
> >
> >$0->ReqFilename() and remove $ENV{DOCUMENT_ROOT}?
>=20
> Actually, I take it back.  ReqFilename doesn't have the right name=20
> either.  How do I get the name of the file currently being executed.
> --=20
>=20
> Kee Hinckley - Somewhere.Com, LLC
> http://consulting.somewhere.com/
>=20
> I'm not sure which upsets me more: that people are so unwilling to accept
> responsibility for their own actions, or that they are so eager to regula=
te
> everyone else's.
>=20
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
> For additional commands, e-mail: embperl-help@perl.apache.org
--=20
Consultor=EDa ERP BaaN Tools
Aplicaciones Internet/Intranet
http://www.glin.com.mx



---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org