Re: [cgi-prototype-users] please patch PathInfo with this

2005-09-12 Thread Terrence Brannon 
"A. Pagaltzis" <[EMAIL PROTECTED]> writes:

> * Terrence Brannon <[EMAIL PROTECTED]> [2005-09-10 14:35]:
>> I am using this in my version of PathInfo.
>
> What for?

it would be nice for you to preserve a bit more context... but anyway,
I am needing the name of the .pm file for each resource_type so that I
an execute the "view source for this page" link that is on each page.

E.g, this link:

http://www.metaperl.org/Guestbook/viewsrc/welcome

Shows the source that was used for this page:

http://www.metaperl.org/Guestbook/welcome



---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
cgi-prototype-users mailing list
cgi-prototype-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/cgi-prototype-users

Re: [cgi-prototype-users] please patch PathInfo with this

2005-09-10 Thread A. Pagaltzis 
* Terrence Brannon <[EMAIL PROTECTED]> [2005-09-10 14:35]:
> I am using this in my version of PathInfo.

What for?

Regards,
-- 
#Aristotle
*AUTOLOAD=*_=sub{s/(.*)::(.*)/print$2,(",$\/"," ")[defined wantarray]/e;$1};
&Just->another->Perl->hacker;


---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
cgi-prototype-users mailing list
cgi-prototype-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/cgi-prototype-users

[cgi-prototype-users] please patch PathInfo with this

2005-09-10 Thread Terrence Brannon 
I am using this in my version of PathInfo. There could be some
refactoring to share code with name_to_page, but that's not done right
now.

=item name_to_pm

Called with a page name, translates it to a .pm file name, and returns it.

This module expects page names to look like relative URLs and will translate to
package names like you'd expect, ie assuming the default
C, C will translate to C.

=cut

sub name_to_pm {
  my $self = shift;
  my ( $name ) = @_;

my $pkg = join '::', (
  $self->config_class_prefix,
  split( m{/}, $self->validate_name( $name ) ),
 );

  $pkg =~ s!::!/!g;

  "$pkg.pm";
}



---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
cgi-prototype-users mailing list
cgi-prototype-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/cgi-prototype-users