projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added CTY-3007 prefixes
[spider.git]
/
perl
/
DXXml
/
Cmd.pm
diff --git
a/perl/DXXml/Cmd.pm
b/perl/DXXml/Cmd.pm
index f56c270e80f478444c36957da15bbed5976b36f0..5f89456838f439253d2554427edd40df3d88af68 100644
(file)
--- a/
perl/DXXml/Cmd.pm
+++ b/
perl/DXXml/Cmd.pm
@@
-1,7
+1,7
@@
#
# XML (R)Cmd handler
#
#
# XML (R)Cmd handler
#
-#
$Id$
+#
#
# Copyright (c) Dirk Koopman, G1TLH
#
#
# Copyright (c) Dirk Koopman, G1TLH
#
@@
-13,16
+13,10
@@
package DXXml::Cmd;
use DXDebug;
use DXProt;
use IsoTime;
use DXDebug;
use DXProt;
use IsoTime;
-use Investigate;
use DXXml::Text;
use DXLog;
use DXXml::Text;
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
@ISA = qw(DXXml);
sub handle_input
@@
-39,7
+33,7
@@
sub handle_input
@in = (DXCommandmode::run_cmd($dxchan, $cmd));
} else {
# remote command
@in = (DXCommandmode::run_cmd($dxchan, $cmd));
} else {
# remote command
- my $ref = DXUser
->
get_current($self->{o});
+ my $ref = DXUser
::
get_current($self->{o});
my $cref = Route::Node::get($self->{o});
my $answer;
my $cref = Route::Node::get($self->{o});
my $answer;
@@
-67,7
+61,7
@@
sub topcxx
{
my $self = shift;
{
my $self = shift;
- my $ref = DXUser
->
get_current($self->{to});
+ my $ref = DXUser
::
get_current($self->{to});
my $s;
if ($ref && $ref->is_clx && $self->{u}) {
my $s;
if ($ref && $ref->is_clx && $self->{u}) {