]> dxcluster.net Git - spider.git/blob - perl/DXXml/Text.pm
3496e0edad09355c7c382b7dc3fe0ff41d6b8464
[spider.git] / perl / DXXml / Text.pm
1 #
2 # XML Text handler
3 #
4 # $Id$
5 #
6 # Copyright (c) Dirk Koopman, G1TLH
7 #
8
9 use strict;
10
11 package DXXml::Text;
12
13 use DXDebug;
14 use DXProt;
15 use DXLog;
16
17 use vars qw($VERSION $BRANCH @ISA %pings);
18 $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
19 $BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/  || (0,0));
20 $main::build += $VERSION;
21 $main::branch += $BRANCH;
22
23 @ISA = qw(DXXml);
24
25 sub handle_input
26 {
27         my $self = shift;
28         my $dxchan = shift;
29
30         if ($self->{to} eq $main::mycall) {
31                 my $tochan = DXChannel::get($self->{u} || $main::myalias);
32                 if ($tochan) {
33                         $tochan->send($self->tocmd);
34                 } else {
35                         dbg("no user or $main::myalias not online") if isdbg('chanerr');
36                 }
37         } else {        
38                 $self->route($dxchan);
39         }
40 }
41
42 sub topcxx
43 {
44         my $self = shift;
45         my $dxchan = shift;
46         my @out;
47
48         my $ref = DXUser->get_current($self->{to});
49         while (@_) {
50                 my $line = shift;
51                 $line =~ s/\s*$//;
52                 Log('rcmd', 'out', $self->{to}, $line);
53                 if ($self->{u} && $dxchan->is_clx && $ref->is_clx) {
54                         push @out, DXProt::pc85($main::mycall, $self->{to}, $self->{u}, "$main::mycall:$line");
55                 } else {
56                         push @out, DXProt::pc35($main::mycall, $self->{to}, "$main::mycall:$line");
57                 }
58         }
59
60         return $self->{'-pcxx'} = \@out;
61 }
62
63 sub tocmd
64 {
65         my $self = shift;
66
67         my @out = split /(?:%0D)?\%0A/, $self->{content};
68         return $self->{-cmd} = \@out;
69 }
70
71 1;