$conn->{peerhost} ||= 'ax25' if $conn->ax25;
$conn->{peerhost} ||= $conn->{sock}->peerhost if $conn->{sock} && $conn->{sock}->isa('IO::Socket::INET');
$conn->{peerhost} ||= 'UNKNOWN';
+ $conn->{peerhost} =~ s/^::ffff://;
return $conn->{peerhost};
}
my $conn = shift;
return if $conn->{disconnecting};
- if ($conn->{msg} =~ /\n/) {
- my @lines = split /\r?\n/, $conn->{msg};
- if ($conn->{msg} =~ /\n$/) {
+ if ($conn->{msg} =~ /\cJ/) {
+ my @lines = split /\cM?\cJ/, $conn->{msg};
+ if ($conn->{msg} =~ /\cM?\cJ$/) {
delete $conn->{msg};
} else {
$conn->{msg} = pop @lines;