2 # XML IM handler (Chat, Announces, Talk)
6 # Copyright (c) Dirk Koopman, G1TLH
17 use Time::HiRes qw(gettimeofday tv_interval);
19 use vars qw(@ISA %pings);
23 # This is the general purpose IM sentence
25 # It is of the form: <chat [to=<user call>|<node call>|<chat group>] ...>the text</chat>
29 # announce/full (no to=)
30 # announce/local (to="$mycall")
31 # announce/<node call> (to="<node call>")
32 # chat <group> (to="<group>")
33 # talk <user call> (to="<user call>")
41 if ($self->{to} eq $main::mycall) {
44 $self->route($dxchan);
51 unless (exists $self->{'-pcxx'}) {
52 if (my $to = $self->{to}) {
53 if (Route::Node::get($to)) {
57 $self->{'-pcxx'} = DXProt::pc51($self->{to}, $self->{o}, $self->{s});
59 return $self->{'-pcxx'};