X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=d75d3a165b0f9d418584e35337196556a4cc8b1b;hb=d159dc5c4d04124bf2672ef719d2ee412e777bcb;hp=6306b7fbed905902abea96f23d9a14c219e98e31;hpb=00795f6a9d8fe391fe636e124e366547886a61c2;p=spider.git diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm index 6306b7fb..d75d3a16 100644 --- a/perl/DXCommandmode.pm +++ b/perl/DXCommandmode.pm @@ -210,8 +210,7 @@ sub start $script->run($self) if $script; # send cluster info - my $info = Route::cluster(); - $self->send("Cluster:$info"); + $self->send($self->run_cmd("show/cluster")); # send prompts for qth, name and things $self->send($self->msg('namee1')) if !$user->name;