- if ($uref && $msg eq $uref->passwd) {
- my $sort = $conn->{csort};
- $sort = 'local' if $conn->{peerhost} eq "127.0.0.1";
- $conn->{usedpasswd} = 1;
- $conn->to_connected($conn->{call}, 'A', $sort);
- } else {
- $conn->send_now("Sorry");
- $conn->disconnect;
+ if ($msg =~ m{|HELLO,}) {
+ # a possibly valid HELLO line, process it
+ $conn->new_channel($msg);