Apache2-DirBasedHandler

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

          my $self = shift;
          my ($r,$uri_args,$args) = @_;

          if (@$uri_args) {
              return Apache2::Const::NOT_FOUND;
          }

          return (
              Apache2::Const::OK,
              qq[this is the index],
              qq[text/plain; charset=utf-8]
          );
      }

      sub super_page {
          my $self = shift;
          my ($r,$uri_args,$args) = @_;

          return (
              Apache2::Const::OK,
              qq[this is $location/super and all it's contents],
              qq[text/plain; charset=utf-8]
          );
      }

      sub super_dooper_page {
          my $self = shift;
          my ($r,$uri_args,$args) = @_;

          return (
              Apache2::Const::OK,
              qq[this is $location/super/dooper and all it's contents],
              qq[text/plain; charset=utf-8]
          );
      }

      1;

DESCRIPTION
    This module is designed to allow people to more quickly implement uri to
    function style handlers. This module is intended to be subclassed.

    A request for

lib/Apache2/DirBasedHandler.pm  view on Meta::CPAN

sub uri_to_function {
    my ($self,$r,$uri_bits) = @_;

    return join('_', @{$uri_bits}) . q[_page];
}

sub root_index {
    return (
        Apache2::Const::OK,
        q[you might want to override "root_index"],
        'text/html; charset=utf-8'
    );
}

sub set_debug {
    $debug = shift;
    return;
}

1;

lib/Apache2/DirBasedHandler.pm  view on Meta::CPAN

      my $self = shift;
      my ($r,$uri_args,$args) = @_;

      if (@$uri_args) {
          return Apache2::Const::NOT_FOUND;
      }

      return (
          Apache2::Const::OK,
          qq[this is the index],
          qq[text/plain; charset=utf-8]
      );
  }

  sub super_page {
      my $self = shift;
      my ($r,$uri_args,$args) = @_;

      return (
          Apache2::Const::OK,
          qq[this is $location/super and all it's contents],
          qq[text/plain; charset=utf-8]
      );
  }

  sub super_dooper_page {
      my $self = shift;
      my ($r,$uri_args,$args) = @_;

      return (
          Apache2::Const::OK,
          qq[this is $location/super/dooper and all it's contents],
          qq[text/plain; charset=utf-8]
      );
  }

  1;

=head1 DESCRIPTION

This module is designed to allow people to more quickly implement uri to function
style handlers.  This module is intended to be subclassed.

t/My/Thingy.pm  view on Meta::CPAN

    my ($r,$uri_args,$args) = @_;

    if (@$uri_args) {
        $r->warn('got uri args - ' . join( ',', @$uri_args));
        return Apache2::Const::NOT_FOUND;
    }

    return (
        Apache2::Const::OK,
        qq[this is the index],
        qq[text/plain; charset=utf-8]
    );
}

sub super_page {
    my $self = shift;
    my ($r,$uri_args,$args) = @_;

    return (
        Apache2::Const::OK,
        qq[this is \$location/super and all it's contents],
        qq[text/plain; charset=utf-8]
    );
}

sub super_dooper_page {
    my $self = shift;
    my ($r,$uri_args,$args) = @_;

    return (
        Apache2::Const::OK,
        qq[this is \$location/super/dooper and all it's contents],
        qq[text/plain; charset=utf-8]
    );
}

sub blank_page {
    my $self = shift;
    my ($r,$uri_args,$args) = @_;

    return (
        Apache2::Const::OK
    );