[BACK]Return to LondTransaction.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom

Diff for /loncom/LondTransaction.pm between versions 1.3 and 1.7

version 1.3, 2003/05/13 01:01:49 version 1.7, 2004/06/01 10:06:52
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 325  sub getRequest { Line 306  sub getRequest {
 }  }
   
   
   1;
Removed from v.1.3  
changed lines
  Added in v.1.7

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>