mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 15:57:12 +00:00
29 lines
490 B
Perl
Executable File
29 lines
490 B
Perl
Executable File
#!/usr/bin/perl
|
|
#
|
|
# alias testing tool
|
|
#
|
|
|
|
# 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 DXVars;
|
|
use CmdAlias;
|
|
|
|
use Carp;
|
|
|
|
while (<>) {
|
|
chomp;
|
|
last if /^q$/;
|
|
|
|
$o1 = CmdAlias::get_cmd($_);
|
|
$o2 = CmdAlias::get_hlp($_);
|
|
print "in: $_ cmd: $o1 hlp: $o2\n";
|
|
}
|