]> dxcluster.org Git - spider.git/blob - cmd/Aliases
1. Do some range checking for spots and WWV in the future (got a WWV for Oct
[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     '?' => [
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           '^del.*/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*/(\d+)-(\d+)', 'directory $1-$2', 'directory',
46           '^di\w*/(\d+)', 'directory $1', 'directory',
47         ],
48         'e' => [
49         ],
50         'f' => [
51         ],
52         'g' => [
53         ],
54         'h' => [
55         ],
56         'i' => [
57         ],
58         'j' => [
59         ],
60         'k' => [
61         ],
62         'l' => [
63           '^l$', 'directory', 'directory',
64           '^ll$', 'directory', 'directory',
65           '^ll/(\d+)', 'directory $1', 'directory',
66         ],
67         'm' => [
68         ],
69         'n' => [
70         ],
71         'o' => [
72         ],
73         'p' => [
74         ],
75         'q' => [
76           '^q', 'bye', 'bye',
77         ],
78         'r' => [        
79           '^r$', 'read', 'read',
80           '^rcmd/(\S+)', 'rcmd $1', 'rcmd',
81         ],
82         's' => [
83           '^set/nobe', 'unset/beep', 'unset/beep',
84           '^set/nohe', 'unset/here', 'unset/here',
85           '^set/noan', 'unset/announce', 'unset/announce',
86           '^set/nodx', 'unset/dx', 'unset/dx',
87           '^set/nota', 'unset/talk', 'unset/talk',
88           '^set/noww', 'unset/wwv', 'unset/wwv',
89           '^set/nowx', 'unset/wx', 'unset/wx',
90           '^sh.*/c/n', 'show/configuration nodes', 'show/configuration',
91           '^sh.*/c$', 'show/configuration', 'show/configuration',
92           '^sh.*/dx/(\d+)-(\d+)', 'show/dx $1-$2', 'show/dx',
93           '^sh.*/dx/(\d+)', 'show/dx $1', 'show/dx',
94           '^sh.*/dx/d(\d+)', 'show/dx from $1', 'show/dx',
95           '^sp$', 'send', 'send',
96           '^sb$', 'send noprivate', 'send',     
97           '^sh.*/wwv/(\d+)-(\d+)', 'show/wwv $1-$2', 'show/wwv',
98           '^sh.*/wwv/(\d+)', 'show/wwv $1', 'show/wwv',
99     ],
100         't' => [
101         ],
102         'u' => [
103         ],
104         'v' => [
105         ],
106         'w' => [
107           '^wx/full', 'wx full', 'wx',
108           '^wx/sysop', 'wx sysop', 'wx',
109         ],
110         'x' => [
111         ],
112         'y' => [
113         ],
114         'z' => [
115         ],
116 )