version 1.3, 2003/05/13 01:01:49
|
version 1.8, 2005/06/16 22:33:45
|
Line 35
|
Line 35
|
|
|
=cut |
=cut |
|
|
|
use strict; |
|
|
package LondTransaction; |
package LondTransaction; |
|
|
=pod |
=pod |
Line 91 Creates a new transaction object.
|
Line 93 Creates a new transaction object.
|
|
|
=cut |
=cut |
|
|
|
|
|
|
sub new { |
sub new { |
my $class = shift; |
|
my $Transaction = shift; |
my ($class, $Transaction) = @_; |
|
|
|
|
my $self = {request => $Transaction, |
my $self = {request => $Transaction, |
active => 0, |
active => 0, |
deferred => 0}; |
deferred => 0}; |
bless($self, $class); |
bless($self, $class); |
|
return $self; |
} |
} |
=pod |
=pod |
|
|
Line 121 will be carried.
|
Line 126 will be carried.
|
|
|
=cut |
=cut |
sub Activate { |
sub Activate { |
my $self = shift; |
|
my $Connection = shift; # Reference to a lond connection. |
|
|
my ($self, $Connection) = @_; |
|
|
|
|
$self->{londSocket} = $Connection; # Store the connection object and |
$self->{londSocket} = $Connection; # Store the connection object and |
$self->{active} = 1; # Indicate it's active. |
$self->{active} = 1; # Indicate it's active. |
Line 173 Name of the file that holds the deferred
|
Line 180 Name of the file that holds the deferred
|
|
|
=cut |
=cut |
sub SetDeferred { |
sub SetDeferred { |
my $self = shift; |
|
my $File = shift; |
|
|
my ($self, $File) = @_; |
|
|
$self->{deferred} = 1; |
$self->{deferred} = 1; |
$self->{DeferrredFile} = $File; |
$self->{DeferredFile} = $File; |
} |
} |
|
|
=pod |
=pod |
Line 199 Parameters:
|
Line 207 Parameters:
|
|
|
=cut |
=cut |
sub SetClient { |
sub SetClient { |
my $self = shift; |
|
my $Client = shift; |
my ($self, $Client) = @_; |
|
|
$self->{deferred} = 0; |
$self->{deferred} = 0; |
$self->{clientSocket} = $Client; |
$self->{clientSocket} = $Client; |
Line 208 sub SetClient {
|
Line 216 sub SetClient {
|
|
|
=pod |
=pod |
|
|
=item WroteSome |
|
|
|
Called to indicate that some bytes were writtne to lond. |
|
The request is trimmed by the number of bytes written. |
|
If no bytes are left, nonzero is returned, else 0. |
|
|
|
Parameters: |
|
|
|
=over 3 |
|
|
|
=item Count |
|
|
|
Number of bytes written |
|
|
|
=back |
|
|
|
=cut |
|
sub WroteSome { |
|
my $self = shift; |
|
my $Count = shift; |
|
|
|
substr($self->{request}, length($self->{request}), $Count); |
|
|
|
return (length($self->{request]) == 0); |
|
|
|
=pod |
|
|
|
=head2 Selectors |
=head2 Selectors |
|
|
|
|
Line 319 sub getServer {
|
Line 300 sub getServer {
|
Returns the remaining request text. |
Returns the remaining request text. |
|
|
=cut |
=cut |
|
|
sub getRequest { |
sub getRequest { |
my $self = shift; |
my $self = shift; |
return $self->{request}; |
return $self->{request}; |
} |
} |
|
|
|
=pod |
|
|
|
=item getLoggableRequest |
|
|
|
Use this top get what the request is when you don't want to spew |
|
sensitive data into logs |
|
|
|
=cut |
|
|
|
sub getLoggableRequest { |
|
my $self = shift; |
|
my ($cmd,$subcmd)=split(':',$self->{request}); |
|
if ($cmd eq 'encrypt') { |
|
return "$cmd:$subcmd"; |
|
} |
|
return $cmd; |
|
} |
|
|
|
1; |