[LON-CAPA-cvs] cvs: newloncapa /types LondConnection.pm

[foxr]

foxr		Tue Apr  1 18:22:35 2003 EDT

  Modified files:              
    /newloncapa/types	LondConnection.pm 
  Log:
  Add encryption key negotiation and debug.
  
  
Index: newloncapa/types/LondConnection.pm
diff -u newloncapa/types/LondConnection.pm:1.3 newloncapa/types/LondConnection.pm:1.4
--- newloncapa/types/LondConnection.pm:1.3	Sat Mar 22 19:05:27 2003
+++ newloncapa/types/LondConnection.pm	Tue Apr  1 18:22:35 2003
@@ -303,8 +303,10 @@
     $self->{InformReadable}     = 0;
     $self->{Timeoutable}        = 1;
     $self->{TimeoutRemaining}   = $self->{TimeoutValue};
+    $self->Transition("SendingRequest");
 }
 
+
 =pod
     Sets a callback for state transitions.  Returns a reference to any
     prior established callback, or undef if there was none:
@@ -365,6 +367,12 @@
 sub WantTimeout {
     my $self = shift;
     return $self->{Timeoutable};
+}
+
+
+sub GetReply {
+    my $self = shift;
+    return $self->{TransactionReply};
 }
     
 1;