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

Diff for /loncom/LondTransaction.pm between versions 1.6 and 1.8

version 1.6, 2003/09/15 09:26:17 version 1.8, 2005/06/16 22:33:45
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; 
Line 297  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;  1;
Removed from v.1.6  
changed lines
  Added in v.1.8

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