Apache2-ASP

 view release on metacpan or  search on metacpan

lib/Apache2/ASP/ASPDOM/Node.pm  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
package Apache2::ASP::ASPDOM::Node;
 
use strict;
use warnings 'all';
use Carp 'confess';
use Scalar::Util 'weaken';
 
 
#==============================================================================
sub new
{
  my ($class, %args) = @_;
   
  my $s = bless {
    %args,
    childNodes          => [ ],
    events => {
      before_appendChild  => [ ],
      after_appendChild   => [ ],
    },
  }, $class;
  weaken($s->{parentNode}) if $s->{parentNode};
  return $s;
}# end new()
 
 
#==============================================================================
sub id { $_[0]->{id} }
sub tagName { $_[0]->{tagName} }
 
 
#==============================================================================

lib/Apache2/ASP/ASPDOM/Node.pm  view on Meta::CPAN

63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
  @{$_[0]->{childNodes}} or return;
  @{$_[0]->{childNodes}}
}# end childNodes()
 
 
#==============================================================================
sub parentNode
{
  my $s = shift;
   
  @_ ? weaken($s->{parentNode} = shift) : $s->{parentNode};
}# end parentNode()
 
 
#==============================================================================
sub appendChild
{
  my ($s, $child) = @_;
   
  # Call "before" handlers?
  foreach( @{$s->{events}->{before_appendChild}} )

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

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
package Apache2::ASP::ASPPage;
 
use strict;
use warnings 'all';
use Carp 'confess';
use base 'https://metacpan.org/pod/Apache2::ASP::HTTPHandler">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 );

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
package Apache2::ASP::ApplicationStateManager;
 
use strict;
use warnings 'all';
use Storable qw( freeze thaw );
use DBI;
use Scalar::Util 'weaken';
use base 'https://metacpan.org/pod/Ima::DBI">Ima::DBI';
use Digest::MD5 'md5_hex';
 
#==============================================================================
sub new
{
  my ($class, %args) = @_;
   
  my $s = bless { }, $class;

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
package Apache2::ASP::HTTPContext;
 
use strict;
use warnings 'all';
use Apache2::ASP::ConfigLoader;
use Apache2::ASP::Response;
use Apache2::ASP::Request;
use Apache2::ASP::Server;
use Carp qw( cluck confess );
use Scalar::Util 'weaken';
use HTTP::Headers;
 
use Apache2::ASP::SessionStateManager::NonPersisted;
use Apache2::ASP::ApplicationStateManager::NonPersisted;
 
our $instance;
our $ClassName = __PACKAGE__;
our %StartedServers = ( );
 
#==============================================================================

lib/Apache2/ASP/Mock/ClientSocket.pm  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
package Apache2::ASP::Mock::ClientSocket;
 
use strict;
use warnings 'all';
use Scalar::Util 'weaken';
 
 
#==============================================================================
sub new
{
  my ($class, %args) = @_;
   
  my $s = bless \%args, $class;
   
  weaken($s->{connection});
  return $s;
}# end new()
 
 
#==============================================================================
sub close
{
  my $s = shift;
   
  $s->{connection}->aborted( 1 );

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
package Apache2::ASP::SessionStateManager;
 
use strict;
use warnings 'all';
use base 'https://metacpan.org/pod/Ima::DBI">Ima::DBI';
use Digest::MD5 'md5_hex';
use Storable qw( freeze thaw );
use HTTP::Date qw( time2iso str2time );
use Scalar::Util 'weaken';
 
 
#==============================================================================
sub new
{
  my ($class, %args) = @_;
   
  my $s = bless {}, $class;
  my $conn = $s->context->config->data_connections->session;
  

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

167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
  UPDATE asp_sessions SET
    modified_on = ?
  WHERE session_id = ?
 
  $sth->execute( time2iso(), $id );
  $sth->finish();
}# end if()
 
undef(%$s);
$s = bless $data, ref($s);
weaken($s);
 
no warnings 'uninitialized';
 
my @keys = sort keys(%$s);
 
my $sig = md5_hex(
  join ":",
    map { "$_:$s->{$_}" } 
      grep { $_ ne '__signature' } @keys
);

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

5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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';
 
 
#==============================================================================
sub new
{
  my ($class, %args) = @_;
  

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

233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
  }# end foreach()
   
  if( $s->context->session && $s->context->session->{SessionID} )
  {
    $s->add_cookie(
      $s->context->config->data_connections->session->cookie_name => $s->context->session->{SessionID}
    );
  }# end if()
   
  $s->context->r->pool->call_cleanup_handlers();
  weaken($s->context->{cgi});
   
  return $response;
}# end _setup_response()
 
 
#==============================================================================
sub _setup_cgi
{
  my ($s, $req) = @_;