Apache2-ASP

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

  - Fixed bug that resulted in multiple cookies being created on the initial request,
    when the first ASP script to be rendered contained Include() or TrapInclude() calls.
  - Added HTML::FillInForm as a dependency.
  - Added built-in "sticky forms" for all ASP scripts, exclusive of UploadHandler subclasses.
  - Began new offline test framework.
  - Added Apache2::ASP::Test::UserAgent.
  - Added Apache2::ASP::Test::MockRequest.
  - Updated Apache2::ASP::Request to work within the new test framework.
  - Removed some tests that need to be rewritten with the new test framework.
  - Updated some other tests to work with the new test framework as they are.
  - Added dependencies HTTP::Request::AsCGI, HTML::FillInForm and CGI::Simple.

1.07 2007-06-23
  - Fixed a bug that caused 404 errors to return a blank page instead of the standard
    '404 Not Found' message.
  - Adjusted POD so that Apache2::ASP::Manual::Intro shows up correctly.

1.06 2007-06-23
  - Fixed a bug in Apache2::ASP::PageHandler that caused a bug in which changed ASP
    scripts would not be reloaded by other Apache processes after the first Apache
    process had recompiled the *.pm file as a result of the ASP script being changed.

META.yml  view on Meta::CPAN

    CGI::Apache2::Wrapper:  0.215
    CGI::Simple:          1.106
    Cwd:                  3.2701
    Data::Properties::YAML:  0.02
    DBD::SQLite:          1.14
    DBI:                  1.607
    Digest::MD5:          2.36
    HTML::Form:           5.817
    HTTP::Body:           1.04
    HTTP::Date:           5.81
    HTTP::Request::AsCGI:  0.5
    Ima::DBI:             0.35
    IO::File:             1.14
    Mail::Sendmail:       0.79
    MIME::Types:          1.24
    Storable:             2.18
    Test::Memory::Cycle:  1.04
    Test::More:           0.84
    Time::HiRes:          1.9715
    XML::Parser:          2.36
    XML::Simple:          2.18

Makefile.PL  view on Meta::CPAN

#requires    'CGI::Apache2::Wrapper'   => 0.215;           # HTTP POST parsing.
requires    'Cwd'                     => 3.2701;          # Configuration file discovery.
requires    'Digest::MD5'             => 2.36;            # Session and Application state.
requires    'DBI'                     => 1.607;           # Session and Application state.
requires    'DBD::SQLite'             => 1.14;            # For testing.
requires    'Storable'                => 2.18;            # Session and Application state.
requires    'HTTP::Date'              => 5.810;           # For Session timeouts.
requires    'MIME::Types'             => 1.24;            # For MediaManager.
requires    'Mail::Sendmail'          => 0.79;            # For sending email.
requires    'HTML::Form'              => 5.817;           # For Apache2::ASP::Test::*
requires    'HTTP::Request::AsCGI'    => 0.5;             # For Apache2::ASP::Test::*
requires    'CGI::Simple'             => 1.106;           # For Apache2::ASP::Test::*
requires    'CGI'                     => 3.43;            # For...cgi stuff...
requires    'Ima::DBI'                => 0.35;            # For sessions & applications.
requires    'XML::Parser'             => 2.36;            # For XML::Simple.
requires    'IO::File'                => 1.14;            # For MediaManager
requires    'Encode'                  => 2.23;            # For Server.URLDecode

install_script 'sbin/runasp';
install_script 'sbin/asphelper';

lib/Apache2/ASP/Test/UserAgent.pm  view on Meta::CPAN

package Apache2::ASP::Test::UserAgent;

use strict;
use warnings 'all';
use HTTP::Request::Common;
use HTTP::Response;
use HTTP::Request::AsCGI;
use HTTP::Body;
use Apache2::ASP::HTTPContext;
use Apache2::ASP::SimpleCGI;
use Apache2::ASP::Mock::RequestRec;
use Carp 'confess';
use IO::File;
use Scalar::Util 'weaken';
use Cwd 'cwd';

our $ContextClass = 'Apache2::ASP::HTTPContext';

lib/Apache2/ASP/Test/UserAgent.pm  view on Meta::CPAN

{
  my ($s, $req) = @_;
  
  my $docroot = $ENV{DOCUMENT_ROOT};
  $s->{c}->DESTROY
    if $s->{c};
  $req->referer( $s->{referer} || '' );
  ($s->{referer}) = $req->uri =~ m/.*?(\/[^\?]+)/;

  no warnings 'redefine';
  *HTTP::Request::AsCGI::stdout = sub { 0 };
  
  $s->{c} = HTTP::Request::AsCGI->new($req)->setup;
  $ENV{SERVER_NAME} = $ENV{HTTP_HOST} = 'localhost';
  
  unless( $req->uri =~ m@^/handlers@ )
  {
    my ($uri_no_args) = split /\?/, $req->uri;
    $ENV{SCRIPT_FILENAME} = $s->context->config->web->www_root . $uri_no_args;
    $ENV{SCRIPT_NAME} = $uri_no_args;
  }# end unless()
  
  # User-Agent: