projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix show/node type
[spider.git]
/
perl
/
DXXml
/
Cmd.pm
diff --git
a/perl/DXXml/Cmd.pm
b/perl/DXXml/Cmd.pm
index 7369d40d3592cf063e935b6b1228ef77ad9f44ad..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,7
+13,6
@@
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;
@@
-34,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;
@@
-62,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}) {