X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fshowdx;h=b84d34ba4871bb05e1691a8f2ae39fac074d98e0;hb=refs%2Fheads%2Fstaging;hp=9af8f41bcfba489681c86419da5a12e819bf964f;hpb=8b68c016b1907375bfad28d762daa49df7b93f5d;p=spider.git

diff --git a/perl/showdx b/perl/showdx
index 9af8f41b..b84d34ba 100755
--- a/perl/showdx
+++ b/perl/showdx
@@ -4,8 +4,7 @@
 #
 # Copyright (c) 1998-2000 Dirk Koopman G1TLH
 #
-# $Id$
-#
+
 
 # search local then perl directories
 BEGIN {
@@ -21,6 +20,7 @@ use IO::Handle;
 use DXUtil;
 use Bands;
 use Spot;
+use VE7CC;
 
 $dxdir = "/spider/cmd/show";
 $dxcmd = "dx.pl";
@@ -44,7 +44,7 @@ for (;;) {
 		chomp $myexpr;
 		last if $myexpr =~ /^q$/i;
 	}
-	my @out = map {"$_\n"} &$dxproc({priv=>0,call=>'GDX'}, $myexpr);
+	my @out = map {"$_\n"} &$dxproc(undef, $myexpr);
 	shift @out;   # remove return code
 	print @out;
 	last if $expr;