Return to LondConnection.pm CVS log | Up to [LON-CAPA] / loncom |
version 1.57, 2018/08/07 17:12:09 | version 1.58, 2018/12/03 13:48:13 |
---|---|
Line 530 sub Readable { | Line 530 sub Readable { |
} | } |
} elsif ($self->{State} eq "ReceivingKey") { | } elsif ($self->{State} eq "ReceivingKey") { |
my $buildkey = $self->{TransactionReply}; | my $buildkey = $self->{TransactionReply}; |
chomp($buildkey); | |
my $key = $self->{LoncapaHim}.$perlvar{'lonHostID'}; | my $key = $self->{LoncapaHim}.$perlvar{'lonHostID'}; |
$key=~tr/a-z/A-Z/; | $key=~tr/a-z/A-Z/; |
$key=~tr/G-P/0-9/; | $key=~tr/G-P/0-9/; |