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?/fu', 'kill full', 'kill',
  44                                   '^dele?t?e?$', 'kill', 'kill',
  45                                   '^dir?e?c?t?o?r?y?/a\w*', 'directory all', 'directory',
  46                                   '^dir?e?c?t?o?r?y?/b\w*', 'directory bulletins', 'directory',
  47                                   '^dir?e?c?t?o?r?y?/n\w*', 'directory new', 'directory',
  48                                   '^dir?e?c?t?o?r?y?/o\w*', 'directory own', 'directory',
  49                                   '^dir?e?c?t?o?r?y?/s\w*', 'directory subject', 'directory',
  50                                   '^dir?e?c?t?o?r?y?/t\w*', 'directory to', 'directory',
  51                                   '^dir?e?c?t?o?r?y?/f\w*', 'directory from', 'directory',
  52                                   '^dir?e?c?t?o?r?y?/(\d+)-(\d+)', 'directory $1-$2', 'directory',
  53                                   '^dir?e?c?t?o?r?y?/(\d+)', 'directory $1', 'directory',
  54                                  ],
  55                   'e' => [
  56                                   '^exi?t?$', 'bye', 'bye',
  57                                   '^export_u', 'export_users', 'export_users',
  58                                   '^expor?', 'export', 'export',
  59                                   '^expun?g?e?$', 'kill expunge', 'kill expunge',
  60                                  ],
  61                   'f' => [
  62                                   '^for?w?a?r?d?$', 'apropos forward', 'apropos',
  63                                  ],
  64                   'g' => [
  65                                  ],
  66                   'h' => [
  67                                  ],
  68                   'i' => [
  69                                  ],
  70                   'j' => [
  71                                  ],
  72                   'k' => [
  73                                   '^ki?l?l?/ex', 'kill expunge', 'kill',
  74                                  ],
  75                   'l' => [
  76                                   '^loa?d?$', 'apropos load', 'apropos',
  77                                   '^l$', 'directory', 'directory',
  78                                   '^ll$', 'directory', 'directory',
  79                                   '^ll/(\d+)', 'directory $1', 'directory',
  80                                   '^lm$', 'directory own', 'directory',
  81                                   '^l>$', 'directory to', 'directory',
  82                                   '^l<$', 'directory from', 'directory',
  83                                  ],
  84                   'm' => [
  85                                  ],
  86                   'n' => [
  87                                  ],
  88                   'o' => [
  89                                  ],
  90                   'p' => [
  91                                  ],
  92                   'q' => [
  93                                   '^qu?i?t?$', 'bye', 'bye',
  94                                  ],
  95                   'r' => [
  96                                   '^r$', 'read', 'read',
  97                                   '^reje?c?t?$', 'apropos reject', 'apropos',
  98                                   '^rcmd/(\S+)', 'rcmd $1', 'rcmd',
  99                                  ],
 100                   's' => [
 101                                   '^s$', 'send', 'send',
 102                                   '^s/p$', 'send', 'send',
 103                                   '^sb$', 'send noprivate', 'send',
 104                                   '^set/dbg$', 'set/debug', 'set/debug',
 105                                   '^set/home$', 'set/homenode', 'set/homenode',
 106                                   '^set/nobee?p?$', 'unset/beep', 'unset/beep',
 107                                   '^set/noher?e?$', 'unset/here', 'unset/here',
 108                                   '^set/noann?o?u?', 'unset/announce', 'unset/announce',
 109                                   '^set/nodxgr?i?d?$', 'unset/dxgrid', 'unset/dxgrid',
 110                                   '^set/nodx$', 'unset/dx', 'unset/dx',
 111                                   '^set/noec?h?o?$', 'unset/echo', 'unset/echo',
 112                                   '^set/notal?k?$', 'unset/talk', 'unset/talk',
 113                                   '^set/nowwv?$', 'unset/wwv', 'unset/wwv',
 114                                   '^set/nowx$', 'unset/wx', 'unset/wx',
 115                                   '^set/noski?m?m?e?r?$', 'set/wantrbn none', 'set/wantrbn',
 116                                   '^set/ski?m?m?e?r?$', 'set/wantrbn', 'set/wantrbn',
 117                                   '^set$', 'apropos set', 'apropos',
 118                                   '^sho?w?/u$', 'show/user', 'show/user',
 119                                   '^sho?w?/bul', 'show/files bulletins', 'show/files',
 120                                   '^sho?w?/co?n?\w*/a', 'show/configuration all', 'show/configuration',
 121                                   '^sho?w?/co?n?\w*/n', 'show/configuration nodes', 'show/configuration',
 122                                   '^sho?w?/c$', 'show/configuration', 'show/configuration',
 123                                   '^sho?w?/com', 'dbavail', 'dbavail',
 124                                   '^sho?w?/dbg', 'show/debug', 'show/debug',
 125                                   '^sho?w?/dxcc', 'show/dx dxcc', 'show/dx',
 126                                   '^sho?w?/dx/(\d+)-(\d+)', 'show/dx $1-$2', 'show/dx',
 127                                   '^sho?w?/dx/(\d+)', 'show/dx $1', 'show/dx',
 128                                   '^sho?w?/dx/d(\d+)', 'show/dx from $1', 'show/dx',
 129                                   '^sho?w?/fdx/(\d+)-(\d+)', 'show/dx real $1-$2', 'show/fdx',
 130                                   '^sho?w?/fdx/(\d+)', 'show/dx real $1', 'show/fdx',
 131                                   '^sho?w?/fdx/d(\d+)', 'show/dx real from $1', 'show/fdx',
 132                                   '^sho?w?/fdx', 'show/dx real', 'show/fdx',
 133                                   '^sho?w?/grou?p?s?', 'show/groups', 'show/groups',
 134                                   '^sho?w?/gr[ae]?y?l?i?n?e?', 'show/grayline', 'show/grayline',
 135                                   '^sho?w?/myfd?x?/(\d+)-(\d+)', 'show/dx filter real $1-$2', 'show/mydx',
 136                                   '^sho?w?/myfd?x?/(\d+)', 'show/dx filter real $1', 'show/mydx',
 137                                   '^sho?w?/myfd?x?/d(\d+)', 'show/dx filter real from $1', 'show/mydx',
 138                                   '^sho?w?/myfd?x?', 'show/dx filter real', 'show/mydx',
 139                                   '^sho?w?/myd?x?/(\d+)-(\d+)', 'show/dx filter $1-$2', 'show/mydx',
 140                                   '^sho?w?/myd?x?/(\d+)', 'show/dx filter $1', 'show/mydx',
 141                                   '^sho?w?/myd?x?/d(\d+)', 'show/dx filter from $1', 'show/mydx',
 142                                   '^sho?w?/myd?x?', 'show/dx filter', 'show/mydx',
 143                                   '^sho?w?/newco?n?\w*/n', 'show/newconfiguration node', 'show/newconfiguration',
 144                                   '^sho?w?/sta?$', 'show/station', 'show/station',
 145                                   '^sho?w?/tnc', 'who', 'who',
 146                                   '^sho?w?/u$', 'show/user', 'show/user',
 147                                   '^sho?w?/up', 'show/cluster', 'show/cluster',
 148                                   '^sho?w?/ww?v?/(\d+)-(\d+)', 'show/wwv $1-$2', 'show/wwv',
 149                                   '^sho?w?/ww?v?/(\d+)', 'show/wwv $1', 'show/wwv',
 150                                   '^sho?w?$', 'apropos show', 'apropos',
 151                                   '^shutd?\w*$', 'shutdown', 'shutdown',
 152                                   '^sp$', 'send', 'send',
 153                                   '^sta?t?$', 'apropos stat', 'apropos',
 154
 155                                  ],
 156                   't' => [
 157                                   '^ta$', 'talk', 'talk',
 158                                   '^t$', 'talk', 'talk',
 159                                  ],
 160                   'u' => [
 161                                   '^uns?e?t?$', 'apropos unset', 'apropos',
 162                                   '^uns?e?t?/dbg$', 'unset/debug', 'unset/debug',
 163                                   '^uns?e?t?/arc', 'set/user', 'set/user',
 164                                   '^uns?e?t?/spider$', 'set/user', 'set/user',
 165                                   '^uns?e?t?/ak1a$', 'set/user', 'set/user',
 166                                   '^uns?e?t?/node$', 'set/user', 'set/user',
 167                                   '^uns?e?t?/sk', 'set/wantrbn none', 'set/wantrbn',
 168                                  ],
 169                   'v' => [
 170                                  ],
 171                   'w' => [
 172                                   '^w$', 'who', 'who',
 173                                   '^wx/full', 'wx full', 'wx',
 174                                   '^wx/sysop', 'wx sysop', 'wx',
 175                                  ],
 176                   'x' => [
 177                                  ],
 178                   'y' => [
 179                                  ],
 180                   'z' => [
 181                                  ],
 182                  );
 183