X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=aef8d84c9bc048cc526bbfb9ffd4a2e05e98fc80;hb=363c72fbfe51f211df84899519cf0baf74a64fd6;hp=a8f0131a39975369a37e7038cb105f657b53cfb2;hpb=5e50c4fa111795e0cea2325d68bf1d2a9ce14f18;p=spider.git diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm index a8f0131a..aef8d84c 100644 --- a/perl/DXCommandmode.pm +++ b/perl/DXCommandmode.pm @@ -1092,7 +1092,7 @@ sub broadcast_debug { my $s = shift; # the line to be rebroadcast - foreach my $dxchan (DXChannel::get_all) { + foreach my $dxchan (DXChannel::get_all_users) { next unless $dxchan->{enhanced} && $dxchan->{senddbg}; if ($dxchan->{gtk}) { $dxchan->send_later('L', dd(['db', $s])); @@ -1253,9 +1253,13 @@ sub send_motd # Punt off a long running command into a separate process # -# Hhis is called from commands to run some potentially long running +# This is called from commands to run some potentially long running # function. The process forks and then runs the function and returns # the result back to the cmd. +# +# NOTE: this merely forks the current process and then runs the cmd in that (current) context. +# IT DOES NOT START UP SOME NEW PROGRAM AND RELIES ON THE FACT THAT IT IS RUNNING DXSPIDER +# THE CURRENT CONTEXT!! # # call: $self->spawn_cmd(\, [cb => sub{...}], [prefix => "cmd> "], [progress => 0|1], [args => [...]]); sub spawn_cmd