Apache2-ASP

 view release on metacpan or  search on metacpan

lib/Apache2/ASP/ASPHandler.pm  view on Meta::CPAN

package Apache2::ASP::ASPHandler;

use strict;
use warnings 'all';
use base 'Apache2::ASP::HTTPHandler';
use Carp 'confess';
use vars __PACKAGE__->VARS;

use Data::Dumper;

#==============================================================================
sub run
{
  my ($s, $context, $args) = @_;
  
  $s->init_asp_objects( $context );

  # Find the page:
  $ENV{SCRIPT_FILENAME} .= 'index.asp'

lib/Apache2/ASP/ASPPage.pm  view on Meta::CPAN

use strict;
use warnings 'all';
use Carp 'confess';
use base 'Apache2::ASP::HTTPHandler';
use vars __PACKAGE__->VARS;
use Apache2::ASP::ASPDOM::Node;
use Apache2::ASP::ASPDOM::Document;
use HTTP::Date 'time2iso';
use Scalar::Util 'weaken';

use Data::Dumper;


#==============================================================================
sub new
{
  my ($class, %args) = @_;
  
  $class->init_asp_objects( $class->context );
    
  foreach(qw/ virtual_path /)

sbin/runasp  view on Meta::CPAN

#!/usr/local/bin/perl -w

use strict;
use warnings 'all';
use base 'Apache2::ASP::Test::Base';
use Data::Dumper;

my $url = shift(@ARGV) or die <<"USAGE";
  Usage:  $0 "<url>"
USAGE

my $s = __PACKAGE__->SUPER::new();

my $res = $s->ua->get( $url );
if( $res->is_success )
{

t/900-old-tests/03.08-aspdom-node.t  view on Meta::CPAN

#!/usr/bin/env perl -w

use strict;
use warnings 'all';
use Test::More 'no_plan';
use Data::Dumper;
use Test::Memory::Cycle;

use_ok('Apache2::ASP::ASPDOM::Node');

my $node = Apache2::ASP::ASPDOM::Node->new();
ok( $node );

my $ref = sub {
  my ($s, $child) = @_;
#  warn "Adding $child to $s";

t/htdocs/upload.asp  view on Meta::CPAN

HELLO WORLD!: UPLOAD!
<%
  use Data::Dumper;
  warn Dumper({ $Request->FileUpload('uploaded_file') });
%>