version 1.6, 2003/09/15 09:26:17
|
version 1.7, 2004/06/01 10:06:52
|
Line 96 Creates a new transaction object.
|
Line 96 Creates a new transaction object.
|
|
|
|
|
sub new { |
sub new { |
my $class = shift; |
|
my $Transaction = shift; |
my ($class, $Transaction) = @_; |
|
|
|
|
my $self = {request => $Transaction, |
my $self = {request => $Transaction, |
Line 126 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 178 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->{DeferredFile} = $File; |
$self->{DeferredFile} = $File; |
Line 204 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; |