cmd/Aliases

   1 #!/usr/bin/perl
   2 #
   3 # provide some standard aliases for commands for terminally
   4 # helpless ak1a user (helpless in the sense that they never
   5 # read nor understand help files)
   6 #
   7 # This file is automagically reloaded if its modification time is
   8 # later than the one stored in CmdAlias.pm
   9 #
  10 # PLEASE make this file consistant with reality! (the patterns MUST
  11 # match the filenames!)
  12 #
  13 # Don't alter this file, copy it into the local_cmd tree and modify it.
  14 # This file will be replaced everytime I issue a new release.
  15 #
  16 # You only need to put aliases in here for commands that don't work as
  17 # you desire naturally, e.g sh/dx on its own just works as you expect
  18 # so you need not add it as an alias.
  19 #
  20
  21
  22 package CmdAlias;
  23
  24 %alias = (
  25     '?' => [
  26           '^\?', 'apropos', 'apropos',
  27         ],
  28     'a' => [
  29           '^a$', 'announce', 'announce',
  30         '^acc?e?p?t?$', 'apropos accept', 'apropos',
  31           '^ann?o?u?n?c?e?/full', 'announce full', 'announce',
  32           '^ann?o?u?n?c?e?/sysop', 'announce sysop', 'announce',
  33           '^ann?o?u?n?c?e?/(.*)$', 'announce $1', 'announce',
  34         ],
  35         'b' => [
  36           '^b$', 'bye', 'bye',
  37         ],
  38         'c' => [
  39         '^cle?a?r?$', 'apropos clear', 'apropos',
  40         '^cre?a?t?e?$', 'apropos create', 'apropos',
  41         ],
  42         'd' => [
  43           '^dele?t?e?/u', 'delete/user', 'delete/user',
  44           '^dele?t?e?/fu', 'kill full', 'kill',
  45           '^dele?t?e?$', 'kill', 'kill',
  46           '^dir?e?c?t?o?r?y?/a\w*', 'directory all', 'directory',
  47           '^dir?e?c?t?o?r?y?/b\w*', 'directory bulletins', 'directory',
  48           '^dir?e?c?t?o?r?y?/n\w*', 'directory new', 'directory',
  49           '^dir?e?c?t?o?r?y?/o\w*', 'directory own', 'directory',
  50           '^dir?e?c?t?o?r?y?/s\w*', 'directory subject', 'directory',
  51           '^dir?e?c?t?o?r?y?/t\w*', 'directory to', 'directory',
  52           '^dir?e?c?t?o?r?y?/f\w*', 'directory from', 'directory',
  53           '^dir?e?c?t?o?r?y?/(\d+)-(\d+)', 'directory $1-$2', 'directory',
  54           '^dir?e?c?t?o?r?y?/(\d+)', 'directory $1', 'directory',
  55         ],
  56         'e' => [
  57           '^exi?t?$', 'bye', 'bye',
  58           '^export_u', 'export_users', 'export_users',
  59           '^expor?', 'export', 'export',
  60           '^expun?g?e?$', 'kill expunge', 'kill expunge',
  61         ],
  62         'f' => [
  63         '^fo\w*$', 'apropos forward', 'apropos',
  64         ],
  65         'g' => [
  66         ],
  67         'h' => [
  68         ],
  69         'i' => [
  70         ],
  71         'j' => [
  72         ],
  73         'k' => [
  74                         '^ki?l?l?/ex', 'kill expunge', 'kill',
  75         ],
  76         'l' => [
  77         '^loa?d?$', 'apropos load', 'apropos',
  78           '^l$', 'directory', 'directory',
  79           '^ll$', 'directory', 'directory',
  80           '^ll/(\d+)', 'directory $1', 'directory',
  81           '^lm$', 'directory own', 'directory',
  82       '^l>$', 'directory to', 'directory',
  83       '^l<$', 'directory from', 'directory',
  84         ],
  85         'm' => [
  86         ],
  87         'n' => [
  88         ],
  89         'o' => [
  90         ],
  91         'p' => [
  92         ],
  93         'q' => [
  94           '^q', 'bye', 'bye',
  95         ],
  96         'r' => [
  97           '^r$', 'read', 'read',
  98         '^reje?c?t?$', 'apropos reject', 'apropos',
  99           '^rcmd/(\S+)', 'rcmd $1', 'rcmd',
 100         ],
 101         's' => [
 102           '^s$', 'send', 'send',
 103           '^s/p$', 'send', 'send',
 104           '^sb$', 'send noprivate', 'send',
 105           '^set/home$', 'set/homenode', 'set/homenode',
 106           '^set/nobe', 'unset/beep', 'unset/beep',
 107           '^set/nohe', 'unset/here', 'unset/here',
 108           '^set/noan', 'unset/announce', 'unset/announce',
 109           '^set/nodxg', 'unset/dxgrid', 'unset/dxgrid',
 110           '^set/nodx', 'unset/dx', 'unset/dx',
 111           '^set/noe', 'unset/echo', 'unset/echo',
 112           '^set/nota', 'unset/talk', 'unset/talk',
 113           '^set/noww', 'unset/wwv', 'unset/wwv',
 114           '^set/nowx', 'unset/wx', 'unset/wx',
 115       '^set/us', 'unset/node', 'unset/node',
 116         '^set$', 'apropos set', 'apropos',
 117           '^sho?w?/u$', 'show/user', 'show/user',
 118           '^sho?w?/bu', 'show/files bulletins', 'show/files',
 119           '^sho?w?/c/n', 'show/configuration nodes', 'show/configuration',
 120           '^sho?w?/c$', 'show/configuration', 'show/configuration',
 121           '^sho?w?/com', 'dbavail', 'dbavail',
 122           '^sho?w?/dxcc', 'show/dx dxcc', 'show/dx',
 123           '^sho?w?/dx/(\d+)-(\d+)', 'show/dx $1-$2', 'show/dx',
 124           '^sho?w?/dx/(\d+)', 'show/dx $1', 'show/dx',
 125           '^sho?w?/dx/d(\d+)', 'show/dx from $1', 'show/dx',
 126           '^sho?w?/newc/n', 'show/newconfiguration node', 'show/newconfiguration',
 127           '^sho?w?/tnc', 'who', 'who',
 128       '^sho?w?/up', 'show/cluster', 'show/cluster',
 129           '^sho?w?/ww?v?/(\d+)-(\d+)', 'show/wwv $1-$2', 'show/wwv',
 130           '^sho?w?/ww?v?/(\d+)', 'show/wwv $1', 'show/wwv',
 131         '^sho?w?$', 'apropos show', 'apropos',
 132         '^shut?d?\w*$', 'shutdown', 'shutdown',
 133           '^sp$', 'send', 'send',
 134         '^sta?t?$', 'apropos stat', 'apropos',
 135
 136     ],
 137         't' => [
 138           '^ta$', 'talk', 'talk',
 139           '^t$', 'talk', 'talk',
 140         ],
 141         'u' => [
 142         '^uns?e?t?$', 'apropos unset', 'apropos',
 143         ],
 144         'v' => [
 145         ],
 146         'w' => [
 147           '^w$', 'who', 'who',
 148           '^wx/full', 'wx full', 'wx',
 149           '^wx/sysop', 'wx sysop', 'wx',
 150         ],
 151         'x' => [
 152         ],
 153         'y' => [
 154         ],
 155         'z' => [
 156         ],
 157 )