Mercurial > pub > Impl
changeset 75:915df8fcd16f
docs
small fixes
author | wizard |
---|---|
date | Tue, 30 Mar 2010 20:31:36 +0400 (2010-03-30) |
parents | 84aa8c395fce |
children | b1652a158b2b |
files | Lib/IMPL/DOM/Node.pm Lib/IMPL/Web/QueryHandler/SecureCookie.pm Lib/IMPL/Web/TDocument.pm |
diffstat | 3 files changed, 105 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- a/Lib/IMPL/DOM/Node.pm Mon Mar 29 17:40:06 2010 +0400 +++ b/Lib/IMPL/DOM/Node.pm Tue Mar 30 20:31:36 2010 +0400 @@ -229,7 +229,9 @@ } else { delete $this->{$parentNode}; - $newOwner = 0; + + #keep document + $newOwner = $this->{$document}; } if (($this->{$document}||0) != $newOwner) { @@ -273,3 +275,52 @@ } 1; + +__END__ + +=pod + +=head1 NAME + +C<IMPL::DOM::Node> ������� DOM ������ + +=head1 DESCRIPTION + +������� ���� DOM ������. �� ���� ����� ����������� ������ �������� DOM ������. + +=head1 MEMBERS + +=head2 PROPERTIES + +=over + +=item C<[get] nodeName> + +��� ����. �������� ��� ��������. + +=item C<[get] document> + +�������� � �������� ����������� ����. �������� ��� �������� ����. + +=item C<[get] isComplex> + +���������� �������� �� ���� ������� (������ ���� �� ����). + +C<true> - ����, C<false> - ���. + +=item C<[get,set] nodeValue> + +�������� ����, ������ ������� ������, �� ����� �� ������ ���� +������������� ����� ��������. + +=item C<[get,list] childNodes> + +������ �����, �������� ������� C<IMPL::Object::List>. + +=item C<[get] parentNode> + +������ �� ������������ �������, ���� ������� �������. + +=head2 METHODS + +=cut \ No newline at end of file
--- a/Lib/IMPL/Web/QueryHandler/SecureCookie.pm Mon Mar 29 17:40:06 2010 +0400 +++ b/Lib/IMPL/Web/QueryHandler/SecureCookie.pm Tue Mar 30 20:31:36 2010 +0400 @@ -13,25 +13,33 @@ sub CTOR { my ($this) = @_; - + $this->salt('DeadBeef') unless $this->salt; } sub Process { my ($this,$action,$nextHandler) = @_; + return undef unless $nextHandler; + my $method = $action->query->cookie('method') || 'simple'; if ($method eq 'simple') { my $sid = $action->query->cookie('sid'); - my $cookie = $action->query->cookie('cookie'); + my $cookie = $action->query->cookie('sdata'); + my $sign = $action->query->cookie('sign'); - if ($action->query->cookie('sign') eq md5_hex( - $this->salt, - $sid, - $cookie, - $this->salt - ) ) { + if ( + $sid and + $cookie and + $sign and + $sign eq md5_hex( + $this->salt, + $sid, + $cookie, + $this->salt + ) + ) { my $context = $action->application->security->Session( id => $sid @@ -50,5 +58,35 @@ } } +1; -1; \ No newline at end of file +__END__ + +=pod + +=head1 NAME + +C<IMPL::Web::QueryHandler::SecureCookie> + +=head1 DESCRIPTION + +C<use base qw(IMPL::Web::QueryHandler)> + +������������ ������ ������������ �� ������ ���������� ���������� ����� Cookie. + +���������� �������� ������� ���������� ��� �������� �������� ������� ������ ����� +������� �����-���� ��������. + +������ ���������� ���������� ��������� ���������� ����������� �����������. + +=head1 MEMBERS + +=over + +=item C<[get,set] salt> + +������, �������������� ��� ������� ������. + +=back + +=cut \ No newline at end of file
--- a/Lib/IMPL/Web/TDocument.pm Mon Mar 29 17:40:06 2010 +0400 +++ b/Lib/IMPL/Web/TDocument.pm Tue Mar 30 20:31:36 2010 +0400 @@ -2,7 +2,7 @@ use strict; use warnings; -use base qw(IMPL::DOM::Node IMPL::Object::Disposable); +use base qw(IMPL::DOM::Document IMPL::Object::Disposable); use Template::Context; use Template::Provider; use IMPL::Class::Property; @@ -15,7 +15,7 @@ } our %CTOR = ( - 'IMPL::DOM::Node' => sub { nodeName => 'document' } + 'IMPL::DOM::Document' => sub { nodeName => 'document' } ); sub Provider { @@ -100,6 +100,8 @@ =head1 SYNOPSIS +=begin code + // create new document my $doc = new IMPL::Web::TDocument; @@ -109,6 +111,8 @@ // render file print $doc->Render(); +=end code + =head1 DESCRIPTION ��������, ���������� �� ������� Template::Toolkit. ��������� ��������� ������,