#
# Copyright (c) 1998-2000 Dirk Koopman G1TLH
#
-# $Id$
-#
+
# search local then perl directories
BEGIN {
use DXUtil;
use Bands;
use Spot;
+use VE7CC;
$dxdir = "/spider/cmd/show";
$dxcmd = "dx.pl";
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;