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

diff --git a/perl/CmdAlias.pm b/perl/CmdAlias.pm
new file mode 100644
index 00000000..e5f6686a
--- /dev/null
+++ b/perl/CmdAlias.pm
@@ -0,0 +1,128 @@
+#
+# This package simply takes a string, looks it up in a
+# hash and returns the value.
+#
+# The hash is produced by reading the Alias file in both command directories
+# which contain entries for the %cmd hash. This file is in different forms in 
+# the two directories:-
+#
+# in the main cmd directory it has entries like:-
+#
+# package CmdAlias;
+#
+# %alias = (
+#   sp => 'send private',
+#   s/p => 'send private', 
+#   sb => 'send bulletin', 
+# );
+#
+# for the local cmd directory you should do it like this:-
+#
+# package CmdAlias;
+#
+# $alias{'s/p'} = 'send private';
+# $alias{'s/b'} = 'send bulletin';
+#
+# This will allow you to override as well as add to the basic set of commands 
+#
+# This system works in same way as the commands, if the modification times of
+# the two files have changed then they are re-read.
+#
+# Copyright (c) 1998 Dirk Koopman G1TLH
+#
+# $Id$
+#
+
+package CmdAlias;
+
+use DXVars;
+use DXDebug;
+use Carp;
+
+use strict;
+
+use vars qw(%alias $cmd_mtime $localcmd_mtime $fn $localfn);
+
+%alias = ();
+
+$cmd_mtime = 1;
+$localcmd_mtime = 1;
+
+$fn = "$main::cmd/Aliases";
+$localfn = "$main::localcmd/Aliases";
+
+sub checkfiles
+{
+  my $m = -M $fn;
+#  print "m: $m oldmtime: $cmd_mtime\n";
+  if ($m < $cmd_mtime) {
+    do $fn;
+	confess $@ if $@;
+	$cmd_mtime = $m;
+	$localcmd_mtime = 0;
+  } 
+  if (-e $localfn) {
+    $m = -M $localfn;
+	if ($m < $localcmd_mtime) {
+      do $localfn;
+	  confess $@ if $@;
+	  $localcmd_mtime = $m;
+    } 
+  }
+}
+
+#
+# called as CmdAlias::get_cmd("string");
+#
+sub get_cmd
+{
+  my $s = shift;
+  my ($let) = unpack "A1", $s;
+  my ($i, $n, $ref);
+
+  $let = lc $let;
+  
+  checkfiles();
+  
+  $ref = $alias{$let};
+  return undef if !$ref;
+  
+  $n = @{$ref};
+  for ($i = 0; $i < $n; $i += 3) {
+    if ($s =~ /$ref->[$i]/i) {
+	  my $ri = qq{\$ro = "$ref->[$i+1]"};
+	  my $ro;
+	  eval $ri;
+	  return $ro;
+	}
+  }
+  return undef;
+}
+
+#
+# called as CmdAlias::get_hlp("string");
+#
+sub get_hlp
+{
+  my $s = shift;
+  my ($let) = unpack "A1", $s;
+  my ($i, $n, $ref);
+
+  $let = lc $let;
+  
+  checkfiles();
+  
+  $ref = $alias{$let};
+  return undef if !$ref;
+  
+  $n = @{$ref};
+  for ($i = 0; $i < $n; $i += 3) {
+    if ($s =~ /$ref->[$i]/i) {
+	  my $ri = qq{$ref->[$i+2]};
+	  return $ri;
+	}
+  }
+  return undef;
+}
+
+