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           '^\?', 'help', 'help',
  27         ],
  28     a => [
  29           '^ann.*/full', 'announce full', 'announce',
  30           '^ann.*/sysop', 'announce sysop', 'announce',
  31           '^ann.*/(.*)$', 'announce $1', 'announce',
  32         ],
  33         b => [
  34         ],
  35         c => [
  36         ],
  37         d => [
  38           '^del', 'kill', 'kill',
  39           '^di\w*/a\w*', 'directory all', 'directory',
  40           '^di\w*/b\w*', 'directory bulletins', 'directory',
  41           '^di\w*/n\w*', 'directory new', 'directory',
  42           '^di\w*/o\w*', 'directory own', 'directory',
  43           '^di\w*/s\w*', 'directory subject', 'directory',
  44           '^di\w*/(\d+)-(\d+)', 'directory $1-$2', 'directory',
  45           '^di\w*/(\d+)', 'directory $1', 'directory',
  46         ],
  47         e => [
  48         ],
  49         f => [
  50         ],
  51         g => [
  52         ],
  53         h => [
  54         ],
  55         i => [
  56         ],
  57         j => [
  58         ],
  59         k => [
  60         ],
  61         l => [
  62           '^l$', 'directory', 'directory',
  63           '^ll$', 'directory', 'directory',
  64           '^ll/(\d+)', 'directory $1', 'directory',
  65         ],
  66         m => [
  67         ],
  68         n => [
  69         ],
  70         o => [
  71         ],
  72         p => [
  73         ],
  74         q => [
  75           '^q', 'bye', 'bye',
  76         ],
  77         r => [
  78           '^r$', 'read', 'read',
  79           '^rcmd/(\S+)', 'rcmd $1', 'rcmd',
  80         ],
  81         s => [
  82           '^set/nobe', 'unset/beep', 'unset/beep',
  83           '^set/nohe', 'unset/here', 'unset/here',
  84           '^sh/c/n', 'show/configuration nodes', 'show/configuration',
  85           '^sh/c$', 'show/configuration', 'show/configuration',
  86           '^sh/dx/(\d+)-(\d+)', 'show/dx $1-$2', 'show/dx',
  87           '^sh/dx/(\d+)', 'show/dx $1', 'show/dx',
  88           '^sh/dx/d(\d+)', 'show/dx from $1', 'show/dx',
  89           '^sp$', 'send', 'send',
  90           '^sb$', 'send noprivate', 'send',
  91         ],
  92         t => [
  93         ],
  94         u => [
  95         ],
  96         v => [
  97         ],
  98         w => [
  99           '^wx/full', 'wx full', 'wx',
 100           '^wx/sysop', 'wx sysop', 'wx',
 101         ],
 102         x => [
 103         ],
 104         y => [
 105         ],
 106         z => [
 107         ],
 108 )