hi all,

At the moment I'm reading "Practical mod_perl", and usually I want to try out the examples. Like the example starting on page 298 (the BrowseSee.pm). I've checked the errata et al, I couldn't find anything about the example, so I guess it's not been fixed yet (or I'm just mis-using it).

Of course it doesn't work like expected :-)

Lemme startof with the code I have (I have tweaked the example a little bit) 
package Apache::BrowseSee;

use strict;
use Apache::Constants qw(:common);
use File::Spec::Functions qw(catdir canonpath curdir updir);
use File::Basename 'dirname';
my $document_root = '/home/insaniac/work/code/perl/www';

sub new {bless {}, shift}

sub handler ($$) {
    my ($self,$r)= @_;
    $self = $self->new unless ref $self;
    $self->{r} = $r;
    $self->{r}->document_root($document_root);
    $self->{dir}= $r->path_info || '/';
    $self->{uri}= $r->uri || '/';
    $self->{dirs} = {};
    $self->{files} = {};
    eval { $self->fetch };
    return NOT_FOUND if $@;

    $self->head;
    print "current dir:",$self->{dir},"<br />";
    print "path info:",$r->path_info,"<br />";
    print "uri:",$r->uri,"<br />";
    $self->render;
    $self->tail;

    return OK;
}

sub fetch {
    my $self = shift;
    my $doc_root = Apache->document_root;
    my $base_dir = canonpath(catdir($doc_root,$self->{dir}));

    my $base_entry = $self->{dir} eq '/' ? '' : $self->{dir};
    my $dh = Apache::gensym();
    opendir $dh, $base_dir or die "Cannot open $base_dir: $!";
    for (readdir $dh) {
        next if $_ eq curdir();

        my $full_dir = catdir $base_dir, $_;
        my $entry = "$base_dir/$_";
        if ( -d $full_dir ) {
            if ( $_ eq updir() ){
                $entry = dirname $self->{dir};
                next if catdir($base_dir,$entry) eq $doc_root;
            }
            $self->{dirs}{$_} = $entry;
        }
        else {
            $self->{files}{$_} = $entry;
        }
    }
    closedir($dh);
}

sub head {
    my $self = shift;
    $self->{r}->send_http_header("text/html");
    print "<html><head><title>Dir: $self->{dir}</title></head><body>";
    print "<h1>Browse And See</h1>";
}

sub tail {
    my $self = shift;
    print "</body></html>";
}

sub render {
    my $self = shift;

    my $location = $self->{r}->location;
    print "<h2>Current directory: ${location}$self->{dir}</h2>";
    print "<p>location:$location</p>";
    print qq{<a href="${location}$self->{dir}$_">$_</a><br />} 
        for sort keys %{$self->{dirs} || {} };
    print qq{$_<br />} for sort keys %{ $self->{files} || {} };
}

1;

[download]
And my Apache config: 
Alias /browse /home/insaniac/work/code/perl/
<Location /browse>
        SetHandler perl-script
        PerlHandler Apache::BrowseSee
</Location>

[download]
Now, all works well, until you click on of a links (the subdirectories)... it doesn't work. Lemme clarify:

The dir I'm scanning looks like this: 

insaniac][amano: ~/work/code/perl/www : ls -F
Apache/  Bonsai/  sessions/

[download]
If you click on one these subdirs in the HTML page rendered by modperl, nothing happens. BUT, the request_uri seems to have catched the subdir, because the first lines of my HTML page show: 
Browse And See
current dir:/
path info:
uri:/browse/Bonsai

[download]
So, the path_info() method returns undef, but the request contains the subdir! If I add the name of the dir to the uri (for instance /browse/Bonsai/Bonsai ), all works perfect! This I don't understand

So, my deepest apologies for this lengthy post, but this was the only way to explain (at least for me..)

Thanks in advance for helping me! (and maybe some others who are stuck with this example)

to ask a question is a moment of shame
to remain ignorant is a lifelong shame

In reply to [mod_perl] path_info() problem by insaniac

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.