X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Ftalias.pl;fp=perl%2Ftalias.pl;h=049c024dd4207e5c59e7b16dffe01650afb8a976;hb=6a0068ec3df1dca0c6ae2714af3c0a4a62998dcf;hp=0000000000000000000000000000000000000000;hpb=3f145290a93b39bf15b50269dd8be585d7b4bc9c;p=spider.git

diff --git a/perl/talias.pl b/perl/talias.pl
new file mode 100755
index 00000000..049c024d
--- /dev/null
+++ b/perl/talias.pl
@@ -0,0 +1,28 @@
+#!/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";
+}