X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fdx.pl;h=94fbb7d84f97dfe4eaab5db3de78072fc86415d9;hb=77592822c77e2a3696997d4b958ecc11956c5e44;hp=6a9a3829a3a7a79f5878034703edd9a7bfb2959d;hpb=9561d4df06c832afdb57213f94e6606e4180c910;p=spider.git diff --git a/cmd/show/dx.pl b/cmd/show/dx.pl index 6a9a3829..94fbb7d8 100644 --- a/cmd/show/dx.pl +++ b/cmd/show/dx.pl @@ -50,7 +50,8 @@ sub handle next if $from && $to > $from; } if ($f && !$to) { - ($to) = $f =~ /^(\d+)$/o || 0 if !$to; # is it a to count? + ($to) = $f =~ /^(\d+)$/o if !$to; # is it a to count? + $to ||= 0; dbg("sh/dx to: $to") if isdbg('sh/dx'); next if $to; } @@ -79,6 +80,22 @@ sub handle push @flist, "info {QSL|VIA}"; next; } + if (lc $f eq '') { + dbg("sh/dx ") if isdbg('sh/dx'); + push @flist, "info {}"; + next; + } + if (lc $f eq '') { + dbg("sh/dx ") if isdbg('sh/dx'); + push @flist, "info {}"; + next; + } + if (lc $f eq '') { + dbg("sh/dx ") if isdbg('sh/dx'); + push @flist, "info {}"; + next; + } + if (lc $f eq 'iota') { my $doiota; if (@list && $list[0] && (($a, $b) = $list[0] =~ /(AF|AN|NA|SA|EU|AS|OC)[-\s]?(\d\d?\d?)/i)) {