projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
mega-merge of major parts of mojo
[spider.git]
/
perl
/
showdx
diff --git
a/perl/showdx
b/perl/showdx
index 9af8f41bcfba489681c86419da5a12e819bf964f..b84d34ba4871bb05e1691a8f2ae39fac074d98e0 100755
(executable)
--- a/
perl/showdx
+++ b/
perl/showdx
@@
-4,8
+4,7
@@
#
# Copyright (c) 1998-2000 Dirk Koopman G1TLH
#
#
# Copyright (c) 1998-2000 Dirk Koopman G1TLH
#
-# $Id$
-#
+
# search local then perl directories
BEGIN {
# search local then perl directories
BEGIN {
@@
-21,6
+20,7
@@
use IO::Handle;
use DXUtil;
use Bands;
use Spot;
use DXUtil;
use Bands;
use Spot;
+use VE7CC;
$dxdir = "/spider/cmd/show";
$dxcmd = "dx.pl";
$dxdir = "/spider/cmd/show";
$dxcmd = "dx.pl";
@@
-44,7
+44,7
@@
for (;;) {
chomp $myexpr;
last if $myexpr =~ /^q$/i;
}
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;
shift @out; # remove return code
print @out;
last if $expr;