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