mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 15:57:12 +00:00
102 lines
2.0 KiB
Perl
102 lines
2.0 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 = (
|
|
a => [
|
|
'^ann.*/full', 'announce full', 'announce',
|
|
'^ann.*/sysop', 'announce sysop', 'announce',
|
|
'^ann.*/(.*)$', 'announce $1', 'announce',
|
|
],
|
|
b => [
|
|
],
|
|
c => [
|
|
],
|
|
d => [
|
|
'^del', 'kill', '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*/(\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',
|
|
],
|
|
s => [
|
|
'^sh/c$', 'show/configuration', 'show/configuration',
|
|
'^sh/dx/(\d+)-(\d+)', 'show/dx $1-$2', 'show/dx',
|
|
'^sh/dx/(\d+)', 'show/dx $1', 'show/dx',
|
|
'^sh/dx/d(\d+)', 'show/dx from $1', 'show/dx',
|
|
'^sp$', 'send', 'send',
|
|
'^sb$', 'send noprivate', 'send',
|
|
],
|
|
t => [
|
|
],
|
|
u => [
|
|
],
|
|
v => [
|
|
],
|
|
w => [
|
|
'^wx/full', 'wx full', 'wx',
|
|
'^wx/sysop', 'wx sysop', 'wx',
|
|
],
|
|
x => [
|
|
],
|
|
y => [
|
|
],
|
|
z => [
|
|
],
|
|
)
|