#
# XML Text handler
#
-# $Id$
+#
#
# Copyright (c) Dirk Koopman, G1TLH
#
use DXProt;
use DXLog;
-use vars qw($VERSION $BRANCH @ISA %pings);
-$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0));
-$main::build += $VERSION;
-$main::branch += $BRANCH;
-
+use vars qw(@ISA);
@ISA = qw(DXXml);
sub handle_input
my $dxchan = shift;
my @out;
- my $ref = DXUser->get_current($self->{to});
- while (@_) {
- my $line = shift;
+ my $ref = DXUser::get_current($self->{to});
+ for (split /(?:%0D)?\%0A/, $self->{content}) {
+ my $line = $_;
$line =~ s/\s*$//;
Log('rcmd', 'out', $self->{to}, $line);
if ($self->{u} && $dxchan->is_clx && $ref->is_clx) {