]> scm.dxcluster.org Git - spider.git/blob - perl/talias.pl
typo
[spider.git] / perl / talias.pl
1 #!/usr/bin/perl
2 #
3 # alias testing tool
4 #
5
6 # search local then perl directories
7 BEGIN {
8   # root of directory tree for this system
9   $root = "/spider"; 
10   $root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
11
12   unshift @INC, "$root/perl";   # this IS the right way round!
13   unshift @INC, "$root/local";
14 }
15
16 use DXVars;
17 use CmdAlias;
18
19 use Carp;
20
21 while (<>) {
22   chomp;
23   last if /^q$/;
24   
25   $o1 = CmdAlias::get_cmd($_);
26   $o2 = CmdAlias::get_hlp($_);
27   print "in: $_ cmd: $o1 hlp: $o2\n";
28 }