]> dxcluster.org Git - spider.git/blob - cmd/Aliases
allow talks to mycall to go to myalias instead
[spider.git] / 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\w*/a\w*', 'directory all', 'directory',
37           '^di\w*/b\w*', 'directory bulletins', 'directory',
38           '^di\w*/n\w*', 'directory new', 'directory',
39           '^di\w*/o\w*', 'directory own', 'directory',
40           '^di\w*/s\w*', 'directory subject', 'directory',
41           '^di\w*/(\d+)-(\d+)', 'directory $1-$2', 'directory',
42           '^di\w*/(\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           '^l$', 'directory', 'directory',
60           '^ll$', 'directory', 'directory',
61           '^ll/(\d+)', 'directory $1', 'directory',
62         ],
63         m => [
64         ],
65         n => [
66         ],
67         o => [
68         ],
69         p => [
70         ],
71         q => [
72           '^q', 'bye', 'bye',
73         ],
74         r => [
75           '^r$', 'read', 'read',
76         ],
77         s => [
78           '^sh/c$', 'show/configuration', 'show/configuration',
79           '^sh/dx/(\d+)-(\d+)', 'show/dx $1-$2', 'show/dx',
80           '^sh/dx/(\d+)', 'show/dx $1', 'show/dx',
81           '^sh/dx/d(\d+)', 'show/dx from $1', 'show/dx',
82           '^sp$', 'send', 'send',
83           '^sb$', 'send noprivate', 'send',
84         ],
85         t => [
86         ],
87         u => [
88         ],
89         v => [
90         ],
91         w => [
92           '^wx/full', 'wx full', 'wx',
93           '^wx/sysop', 'wx sysop', 'wx',
94         ],
95         x => [
96         ],
97         y => [
98         ],
99         z => [
100         ],
101 )