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           '^ann\w*/full', 'announce full', 'announce',
  30           '^ann\w*/sysop', 'announce sysop', 'announce',
  31           '^ann\w*/(.*)$', 'announce $1', 'announce',
  32         ],
  33         'b' => [
  34         ],
  35         'c' => [
  36         ],
  37         'd' => [
  38           '^del', 'kill', 'kill',
  39           '^del\w*/fu', 'kill full', 'kill',
  40           '^di\w*/a\w*', 'directory all', 'directory',
  41           '^di\w*/b\w*', 'directory bulletins', 'directory',
  42           '^di\w*/n\w*', 'directory new', 'directory',
  43           '^di\w*/o\w*', 'directory own', 'directory',
  44           '^di\w*/s\w*', 'directory subject', 'directory',
  45           '^di\w*/t\w*', 'directory to', 'directory',
  46           '^di\w*/f\w*', 'directory from', 'directory',
  47           '^di\w*/(\d+)-(\d+)', 'directory $1-$2', 'directory',
  48           '^di\w*/(\d+)', 'directory $1', 'directory',
  49         ],
  50         'e' => [
  51           '^ex', 'bye', 'bye',
  52         ],
  53         'f' => [
  54         ],
  55         'g' => [
  56         ],
  57         'h' => [
  58         ],
  59         'i' => [
  60         ],
  61         'j' => [
  62         ],
  63         'k' => [
  64         ],
  65         'l' => [
  66           '^l$', 'directory', 'directory',
  67           '^ll$', 'directory', 'directory',
  68           '^ll/(\d+)', 'directory $1', 'directory',
  69           '^lm$', 'directory own', 'directory',
  70         ],
  71         'm' => [
  72         ],
  73         'n' => [
  74         ],
  75         'o' => [
  76         ],
  77         'p' => [
  78         ],
  79         'q' => [
  80           '^q', 'bye', 'bye',
  81         ],
  82         'r' => [
  83           '^r$', 'read', 'read',
  84           '^rcmd/(\S+)', 'rcmd $1', 'rcmd',
  85         ],
  86         's' => [
  87           '^s/p$', 'send', 'send',
  88           '^sb$', 'send noprivate', 'send',
  89           '^set/home$', 'set/homenode', 'set/homenode',
  90           '^set/nobe', 'unset/beep', 'unset/beep',
  91           '^set/nohe', 'unset/here', 'unset/here',
  92           '^set/noan', 'unset/announce', 'unset/announce',
  93           '^set/nodxg', 'unset/dxgrid', 'unset/dxgrid',
  94           '^set/nodx', 'unset/dx', 'unset/dx',
  95           '^set/noe', 'unset/echo', 'unset/echo',
  96           '^set/nota', 'unset/talk', 'unset/talk',
  97           '^set/noww', 'unset/wwv', 'unset/wwv',
  98           '^set/nowx', 'unset/wx', 'unset/wx',
  99           '^sh$', 'show', 'show',
 100           '^sh\w*/u$', 'show/user', 'show/user',
 101           '^sh\w*/bu', 'show/files bulletins', 'show/files',
 102           '^sh\w*/c/n', 'show/configuration nodes', 'show/configuration',
 103           '^sh\w*/c$', 'show/configuration', 'show/configuration',
 104           '^sh\w*/com', 'dbavail', 'dbavail',
 105           '^sh\w*/dx/(\d+)-(\d+)', 'show/dx $1-$2', 'show/dx',
 106           '^sh\w*/dx/(\d+)', 'show/dx $1', 'show/dx',
 107           '^sh\w*/dx/d(\d+)', 'show/dx from $1', 'show/dx',
 108           '^sh\w*/tnc', 'who', 'who',
 109       '^sh\w*/up', 'show/cluster', 'show/cluster',
 110           '^sh\w*/w\w*/(\d+)-(\d+)', 'show/wwv $1-$2', 'show/wwv',
 111           '^sh\w*/w\w*/(\d+)', 'show/wwv $1', 'show/wwv',
 112           '^sp$', 'send', 'send',
 113
 114     ],
 115         't' => [
 116           '^ta$', 'talk', 'talk',
 117           '^t$', 'talk', 'talk',
 118         ],
 119         'u' => [
 120         ],
 121         'v' => [
 122         ],
 123         'w' => [
 124           '^wx/full', 'wx full', 'wx',
 125           '^wx/sysop', 'wx sysop', 'wx',
 126         ],
 127         'x' => [
 128         ],
 129         'y' => [
 130         ],
 131         'z' => [
 132         ],
 133 )