projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added Log Parsing
[spider.git]
/
perl
/
DXCommandmode.pm
diff --git
a/perl/DXCommandmode.pm
b/perl/DXCommandmode.pm
index ab8d9573dd4c4f8e446472cd71737f23bd889d67..84d809fd257e730e30ed388dd324be25e3d93665 100644
(file)
--- a/
perl/DXCommandmode.pm
+++ b/
perl/DXCommandmode.pm
@@
-18,6
+18,7
@@
use DXVars;
use DXDebug;
use DXM;
use DXLog;
use DXDebug;
use DXM;
use DXLog;
+use DXLogPrint;
use CmdAlias;
use FileHandle;
use Carp;
use CmdAlias;
use FileHandle;
use Carp;
@@
-51,13
+52,10
@@
sub start
my $user = $self->{user};
my $call = $self->{call};
my $name = $user->{name};
my $user = $self->{user};
my $call = $self->{call};
my $name = $user->{name};
- my $info = DXCluster::cluster();
$self->{name} = $name ? $name : $call;
$self->send($self->msg('l2',$self->{name}));
$self->send_file($main::motd) if (-e $main::motd);
$self->{name} = $name ? $name : $call;
$self->send($self->msg('l2',$self->{name}));
$self->send_file($main::motd) if (-e $main::motd);
- $self->send("Cluster:$info");
- $self->send($self->msg('pr', $call));
$self->state('prompt'); # a bit of room for further expansion, passwords etc
$self->{priv} = $user->priv;
$self->{lang} = $user->lang;
$self->state('prompt'); # a bit of room for further expansion, passwords etc
$self->{priv} = $user->priv;
$self->{lang} = $user->lang;
@@
-79,6
+77,11
@@
sub start
my @pc16 = DXProt::pc16($nchan, $cuser);
DXProt::broadcast_ak1a(@pc16);
Log('DXCommand', "$call connected");
my @pc16 = DXProt::pc16($nchan, $cuser);
DXProt::broadcast_ak1a(@pc16);
Log('DXCommand', "$call connected");
+
+ # send prompts and things
+ my $info = DXCluster::cluster();
+ $self->send("Cluster:$info");
+ $self->send($self->msg('pr', $call));
}
#
}
#