mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 07:47:10 +00:00
133 lines
3.3 KiB
Perl
133 lines
3.3 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\w*/full', 'announce full', 'announce',
|
|
'^ann\w*/sysop', 'announce sysop', 'announce',
|
|
'^ann\w*/(.*)$', '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' => [
|
|
'^ex', 'bye', 'bye',
|
|
],
|
|
'f' => [
|
|
],
|
|
'g' => [
|
|
],
|
|
'h' => [
|
|
],
|
|
'i' => [
|
|
],
|
|
'j' => [
|
|
],
|
|
'k' => [
|
|
],
|
|
'l' => [
|
|
'^l$', 'directory', 'directory',
|
|
'^ll$', 'directory', 'directory',
|
|
'^ll/(\d+)', 'directory $1', 'directory',
|
|
'^lm$', 'directory own', 'directory',
|
|
],
|
|
'm' => [
|
|
],
|
|
'n' => [
|
|
],
|
|
'o' => [
|
|
],
|
|
'p' => [
|
|
],
|
|
'q' => [
|
|
'^q', 'bye', 'bye',
|
|
],
|
|
'r' => [
|
|
'^r$', 'read', 'read',
|
|
'^rcmd/(\S+)', 'rcmd $1', 'rcmd',
|
|
],
|
|
's' => [
|
|
'^s/p$', 'send', 'send',
|
|
'^sb$', 'send noprivate', 'send',
|
|
'^set/home$', 'set/homenode', 'set/homenode',
|
|
'^set/nobe', 'unset/beep', 'unset/beep',
|
|
'^set/nohe', 'unset/here', 'unset/here',
|
|
'^set/noan', 'unset/announce', 'unset/announce',
|
|
'^set/nodxg', 'unset/dxgrid', 'unset/dxgrid',
|
|
'^set/nodx', 'unset/dx', 'unset/dx',
|
|
'^set/noe', 'unset/echo', 'unset/echo',
|
|
'^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*/com', 'dbavail', 'dbavail',
|
|
'^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',
|
|
'^sh\w*/tnc', 'who', 'who',
|
|
'^sh\w*/up', 'show/cluster', 'show/cluster',
|
|
'^sh\w*/w\w*/(\d+)-(\d+)', 'show/wwv $1-$2', 'show/wwv',
|
|
'^sh\w*/w\w*/(\d+)', 'show/wwv $1', 'show/wwv',
|
|
'^sp$', 'send', 'send',
|
|
|
|
],
|
|
't' => [
|
|
'^ta$', 'talk', 'talk',
|
|
'^t$', 'talk', 'talk',
|
|
],
|
|
'u' => [
|
|
],
|
|
'v' => [
|
|
],
|
|
'w' => [
|
|
'^wx/full', 'wx full', 'wx',
|
|
'^wx/sysop', 'wx sysop', 'wx',
|
|
],
|
|
'x' => [
|
|
],
|
|
'y' => [
|
|
],
|
|
'z' => [
|
|
],
|
|
)
|