view release on metacpan or  search on metacpan

ChangeLog  view on Meta::CPAN

	* Added a workaround for a netscape bug related to escaping blanks.
	  Eric Garland <egarland@mediaone.net>

1999-04-23  Jochen Wiedmann  <joe@ispsoft.de> (0.1002)

	* lib/Apache/Roaming.pm (GET): The Last-Modified header is
	  now set. This requires compiling mod_perl with PERL_FILE_API=1.

1999-02-12  Jochen Wiedmann  <joe@ispsoft.de> (0.1001)

	* Roaming.pm (handler): Added use of uri_escape.
	* Added some words on the browser configuration to the docs.
	* Test suite should now work with dynamic modules.

lib/Apache/Roaming.pm  view on Meta::CPAN

main task is creating an instance of Apache::Roaming by calling the
I<new> method and then passing control to the I<Authenticate>,
I<CheckDir> and I<GET>, I<PUT>, I<DELETE> or I<MOVE>, respectively,
methods.

=cut

sub handler ($$) {
    my($class, $r) = @_;

    my $file = File::Spec->canonpath(URI::Escape::uri_unescape($r->filename()));

    if ($file=~/IMAP$/) {
        my $addon=$r->the_request();
        $addon=~s/IMAP\s(.*)\s.*$/$1/;
        $file="$file%20$addon";
    }

    if (my $pi = $r->path_info()) {
	my @dirs = grep { length $_ } split(/\//, $pi);
	my $f = pop @dirs;