mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 15:57:12 +00:00
9e2fbafcfd
6. Put in the initial DB code (at last), you can create and remove local and standard remote dbs, you can import AK1A style .FUL ascii databases, you can enquire on a local or remote database. 7. A return ping to a node will clear down all outstanding pings to that node (which might cause some confusion if more then one ping is outstanding for a node, but then - shit happens)
124 lines
2.9 KiB
Perl
124 lines
2.9 KiB
Perl
#!/usr/bin/perl
|
|
#
|
|
# provide some standard aliases for commands for terminally
|
|
# helpless ak1a user (helpless in the sense that they never
|
|
# read nor understand help files)
|
|
#
|
|
# This file is automagically reloaded if its modification time is
|
|
# later than the one stored in CmdAlias.pm
|
|
#
|
|
# PLEASE make this file consistant with reality! (the patterns MUST
|
|
# match the filenames!)
|
|
#
|
|
# Don't alter this file, copy it into the local_cmd tree and modify it.
|
|
# This file will be replaced everytime I issue a new release.
|
|
#
|
|
# You only need to put aliases in here for commands that don't work as
|
|
# you desire naturally, e.g sh/dx on its own just works as you expect
|
|
# so you need not add it as an alias.
|
|
#
|
|
|
|
|
|
package CmdAlias;
|
|
|
|
%alias = (
|
|
'?' => [
|
|
'^\?', 'apropos', 'apropos',
|
|
],
|
|
'a' => [
|
|
'^ann.*/full', 'announce full', 'announce',
|
|
'^ann.*/sysop', 'announce sysop', 'announce',
|
|
'^ann.*/(.*)$', 'announce $1', 'announce',
|
|
],
|
|
'b' => [
|
|
],
|
|
'c' => [
|
|
],
|
|
'd' => [
|
|
'^del', 'kill', 'kill',
|
|
'^del\w*/fu', 'kill full', 'kill',
|
|
'^di\w*/a\w*', 'directory all', 'directory',
|
|
'^di\w*/b\w*', 'directory bulletins', 'directory',
|
|
'^di\w*/n\w*', 'directory new', 'directory',
|
|
'^di\w*/o\w*', 'directory own', 'directory',
|
|
'^di\w*/s\w*', 'directory subject', 'directory',
|
|
'^di\w*/t\w*', 'directory to', 'directory',
|
|
'^di\w*/f\w*', 'directory from', 'directory',
|
|
'^di\w*/(\d+)-(\d+)', 'directory $1-$2', 'directory',
|
|
'^di\w*/(\d+)', 'directory $1', 'directory',
|
|
],
|
|
'e' => [
|
|
],
|
|
'f' => [
|
|
],
|
|
'g' => [
|
|
],
|
|
'h' => [
|
|
],
|
|
'i' => [
|
|
],
|
|
'j' => [
|
|
],
|
|
'k' => [
|
|
],
|
|
'l' => [
|
|
'^l$', 'directory', 'directory',
|
|
'^ll$', 'directory', 'directory',
|
|
'^ll/(\d+)', 'directory $1', 'directory',
|
|
],
|
|
'm' => [
|
|
],
|
|
'n' => [
|
|
],
|
|
'o' => [
|
|
],
|
|
'p' => [
|
|
],
|
|
'q' => [
|
|
'^q', 'bye', 'bye',
|
|
],
|
|
'r' => [
|
|
'^r$', 'read', 'read',
|
|
'^rcmd/(\S+)', 'rcmd $1', 'rcmd',
|
|
],
|
|
's' => [
|
|
'^s/p$', 'send', 'send',
|
|
'^set/nobe', 'unset/beep', 'unset/beep',
|
|
'^set/nohe', 'unset/here', 'unset/here',
|
|
'^set/noan', 'unset/announce', 'unset/announce',
|
|
'^set/nodx', 'unset/dx', 'unset/dx',
|
|
'^set/nota', 'unset/talk', 'unset/talk',
|
|
'^set/noww', 'unset/wwv', 'unset/wwv',
|
|
'^set/nowx', 'unset/wx', 'unset/wx',
|
|
'^sh$', 'show', 'show',
|
|
'^sh\w*/bu', 'show/files bulletins', 'show/files',
|
|
'^sh\w*/c/n', 'show/configuration nodes', 'show/configuration',
|
|
'^sh\w*/c$', 'show/configuration', 'show/configuration',
|
|
'^sh\w*/dx/(\d+)-(\d+)', 'show/dx $1-$2', 'show/dx',
|
|
'^sh\w*/dx/(\d+)', 'show/dx $1', 'show/dx',
|
|
'^sh\w*/dx/d(\d+)', 'show/dx from $1', 'show/dx',
|
|
'^sp$', 'send', 'send',
|
|
'^sb$', 'send noprivate', 'send',
|
|
'^sh\w*/w\w*/(\d+)-(\d+)', 'show/wwv $1-$2', 'show/wwv',
|
|
'^sh\w*/w\w*/(\d+)', 'show/wwv $1', 'show/wwv',
|
|
],
|
|
't' => [
|
|
'^ta$', 'talk', 'talk',
|
|
'^t$', 'talk', 'talk',
|
|
],
|
|
'u' => [
|
|
],
|
|
'v' => [
|
|
],
|
|
'w' => [
|
|
'^wx/full', 'wx full', 'wx',
|
|
'^wx/sysop', 'wx sysop', 'wx',
|
|
],
|
|
'x' => [
|
|
],
|
|
'y' => [
|
|
],
|
|
'z' => [
|
|
],
|
|
)
|