fix sh/cl at user startup with new arrangements

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 6306b7fbed905902abea96f23d9a14c219e98e31..d75d3a165b0f9d418584e35337196556a4cc8b1b 100644 (file)
--- 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;