X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fgdx.pl;fp=perl%2Fgdx.pl;h=0000000000000000000000000000000000000000;hb=8b68c016b1907375bfad28d762daa49df7b93f5d;hp=f88761ab5ec5285a35f7078955c50576491a18db;hpb=035de21c0d81fd20d0fc0cee41cfd811663a3660;p=spider.git

diff --git a/perl/gdx.pl b/perl/gdx.pl
deleted file mode 100755
index f88761ab..00000000
--- a/perl/gdx.pl
+++ /dev/null
@@ -1,42 +0,0 @@
-#!/usr/bin/perl
-#
-# grep for expressions in various fields of the dx file
-#
-
-# search local then perl directories
-BEGIN {
-	# root of directory tree for this system
-	$root = "/spider"; 
-	$root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
-	
-	unshift @INC, "$root/perl";	# this IS the right way round!
-	unshift @INC, "$root/local";
-}
-
-use IO::Handle;
-use DXUtil;
-use Bands;
-use Spot;
-
-$dxdir = "/spider/cmd/show";
-$dxcmd = "dx.pl";
-$s = readfilestr($dxdir, $dxcmd);
-$dxproc = eval "sub { $s }";
-die $@ if $@;
-
-STDOUT->autoflush(1);
-Spot::init();
-Bands::load();
-
-for (;;) {
-  print "expr: ";
-  $expr = <STDIN>;
-  last if $expr =~ /^q/i;
-
-  chomp $expr;
-
-  my @out = map {"$_\n"} &$dxproc({priv=>0,call=>'GDX'}, $expr);
-  shift @out;   # remove return code
-  print @out;
-}
-