{
my ($self, $line) = @_;
- if ($line =~ '^<\w+\s') {
+ if ($line =~ '^<\w+\s' && $main::do_xml) {
DXXml::normal($self, $line);
return;
}
}
# send info to all logged in thingies
- $self->tell_login('loginu', $call) if DXUser->get_current($ncall)->is_local_node;
- $self->tell_buddies('loginb', $call);
+ $self->tell_login('loginu', "$ncall: $call") if DXUser->get_current($ncall)->is_local_node;
+ $self->tell_buddies('loginb', $call, $ncall);
# add this station to the user database, if required
# $call =~ s/-\d+$//o; # remove ssid for users
}
# send info to all logged in thingies
- $self->tell_login('logoutu', $ucall) if DXUser->get_current($ncall)->is_local_node;
- $self->tell_buddies('logoutb', $ucall);
+ $self->tell_login('logoutu', "$ncall: $ucall") if DXUser->get_current($ncall)->is_local_node;
+ $self->tell_buddies('logoutb', $ucall, $ncall);
if (eph_dup($line)) {
dbg("PCPROT: dup PC17 detected") if isdbg('chanerr');