6 # Copyright (c) Dirk Koopman, G1TLH
17 use Time::HiRes qw(gettimeofday tv_interval);
19 use vars qw($VERSION $BRANCH @ISA %pings);
20 $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
21 $BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0));
22 $main::build += $VERSION;
23 $main::branch += $BRANCH;
32 if ($self->{to} eq $main::mycall) {
33 my $tochan = DXChannel::get($self->{u} || $main::myalias);
35 my $ref = $self->tocmd;
36 $tochan->send($_) for (ref $ref ? @$ref : $ref);
38 dbg("no user or $main::myalias not online") if isdbg('chanerr');
41 $self->route($dxchan);
51 my $ref = DXUser->get_current($self->{to});
55 Log('rcmd', 'out', $self->{to}, $line);
56 if ($self->{u} && $dxchan->is_clx && $ref->is_clx) {
57 push @out, pc85($main::mycall, $self->{to}, $self->{u}, "$main::mycall:$line");
59 push @out, pc35($main::mycall, $self->{to}, "$main::mycall:$line");
63 return $self->{'-pcxx'} = \@out;
70 my @out = split /(?:%0D)?\%0A/, $self->{content};
71 return $self->{-cmd} = \@out;