mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 15:57:12 +00:00
54 lines
947 B
Perl
Executable File
54 lines
947 B
Perl
Executable File
#!/usr/bin/perl
|
|
#
|
|
# Implement an external "show/dx" command
|
|
#
|
|
# Copyright (c) 1998-2000 Dirk Koopman G1TLH
|
|
#
|
|
|
|
|
|
# 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;
|
|
use VE7CC;
|
|
|
|
$dxdir = "/spider/cmd/show";
|
|
$dxcmd = "dx.pl";
|
|
$s = readfilestr($dxdir, $dxcmd);
|
|
$dxproc = eval "sub { $s }";
|
|
die $@ if $@;
|
|
|
|
STDOUT->autoflush(1);
|
|
Spot::init();
|
|
Bands::load();
|
|
|
|
$expr = join ' ', @ARGV if @ARGV;
|
|
|
|
for (;;) {
|
|
if ($expr) {
|
|
$myexpr = $expr;
|
|
} else {
|
|
print "show/dx: ";
|
|
$myexpr = <STDIN>;
|
|
last unless defined $myexpr;
|
|
chomp $myexpr;
|
|
last if $myexpr =~ /^q$/i;
|
|
}
|
|
my @out = map {"$_\n"} &$dxproc(undef, $myexpr);
|
|
shift @out; # remove return code
|
|
print @out;
|
|
last if $expr;
|
|
}
|
|
exit(0);
|
|
|