pas-dev Mailing List for Perl Application Server (Page 14)

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

> I've been having problems with included files today.  I recently updated my PAS 
> directory and none of the included files were showing up.  I tracked it down to 
> inside resolve_includes().  I changed this:
> 
>          $file = 
> $ENV{'PAS_BASE'}.'/'.$self->config()->get('pas.documentRoot').'/'.$file; 
> 
> 
> to this:
> 
>          $file = $self->config()->get('pas.documentRoot').'/'.$file; 

That's part of this block, right?:

      unless('/' eq substr($file,0,1)) {
        $file = $self->pwd().'/'.$file;
      }
      else {
        $file = $ENV{'PAS_BASE'}.'/'.$self->config()->get('pas.documentRoot').'/'.$file;
      }

I think the point of that if/else (ok, unless/else) is to use the file path
as specified, if it is an absolute path (starts with a '/'), otherwise,
assume it's pathed the document root.

The problem is obviously in the else block -- we need to check the value
of pas.documentRoot to see if it starts with a '/', and prefix it with
PAS_BASE otherwise.

Maybe this should be a function in the Environment package?  Do we already 
have a method that returns the document root somewhere?  Maybe we should
add the proper logic to it, and then update the line above to use it.

> And it works.  On another box (internal production environment), we have version 
> 1.12 of the Compiler.pm checked out and it works fine.  Actually, it looks like 
> we had a similar problem back then:
> 
> 	#$file = $ENV{'PAS_BASE'}.'/'.$self->config()->get('pas.documentRoot').'/'.$file;
>          $file = $self->config()->get('pas.documentRoot').'/'.$file;
> 
> It was solved the same exact way.  However, mortis checked it in with the 
> $ENV{'PAS_BASE'} for 1.13 (we're on 1.19 in case anyone is wondering).
> 
> I guess we have to figure out how were're going to do this.  I think it should 
> be off of pas.documentRoot.  I don't know why $ENV{'PAS_BASE'} is in there.

PAS_BASE is there, becuase we want the flexibility for the the doc root to
be either relative to PAS_BASE, or absolutely pathed.  How would you guys
like to do this?

Kyle

> Let me know if you want me to check it in or if someone else wants to make the 
> change.
> 
> Justin
> 
> 
> _______________________________________________________________
> 
> Don't miss the 2002 Sprint PCS Application Developer's Conference
> August 25-28 in Las Vegas -- http://devcon.sprintpcs.com/adp/index.cfm
> 
> _______________________________________________
> Pas-dev mailing list
> Pa...@li...
> https://lists.sourceforge.net/lists/listinfo/pas-dev

-- 

------------------------------------------------------------------------------
Wisdom and Compassion are inseparable.
        -- Christmas Humphreys
mo...@vo...                            http://www.voicenet.com/~mortis
------------------------------------------------------------------------------

2002	Jan	Feb (6)	Mar (19)	Apr (3)	May (147)	Jun (6)	Jul (4)	Aug (12)	Sep (1)	Oct (12)	Nov (23)	Dec (3)
2003	Jan (4)	Feb (12)	Mar (13)	Apr (16)	May (28)	Jun (9)	Jul (1)	Aug (2)	Sep	Oct	Nov (84)	Dec (25)
2004	Jan (5)	Feb	Mar	Apr	May	Jun	Jul	Aug (13)	Sep	Oct	Nov	Dec
2005	Jan	Feb (1)	Mar	Apr	May	Jun	Jul	Aug (5)	Sep (5)	Oct	Nov	Dec

pas-dev Mailing List for Perl Application Server (Page 14)

pas-dev — Development mailing list.