summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
81de65f)
fix sh/c/n
fix sh/connect
22Mar05=======================================================================
22Mar05=======================================================================
+1. Fix ? so it works again.
+2. Fix Aliases for sh/c so they are correct
+3. Fix sh/connect for AGW ports and other niffnaffs.
+22Mar05=======================================================================
1. fixed sh/c/node sh/c/a and sh/newc/n.
21Mar05=======================================================================
1. log AGW port on connection
1. fixed sh/c/node sh/c/a and sh/newc/n.
21Mar05=======================================================================
1. log AGW port on connection
'^set$', 'apropos set', 'apropos',
'^sho?w?/u$', 'show/user', 'show/user',
'^sho?w?/bu', 'show/files bulletins', 'show/files',
'^set$', 'apropos set', 'apropos',
'^sho?w?/u$', 'show/user', 'show/user',
'^sho?w?/bu', 'show/files bulletins', 'show/files',
- '^sho?w?/c?o?n?f\w*/a', 'show/configuration all', 'show/configuration',
- '^sho?w?/c?o?n?f\w*/n', 'show/configuration nodes', 'show/configuration',
+ '^sho?w?/co?n?\w*/a', 'show/configuration all', 'show/configuration',
+ '^sho?w?/co?n?\w*/n', 'show/configuration nodes', 'show/configuration',
'^sho?w?/c$', 'show/configuration', 'show/configuration',
'^sho?w?/com', 'dbavail', 'dbavail',
'^sho?w?/dxcc', 'show/dx dxcc', 'show/dx',
'^sho?w?/c$', 'show/configuration', 'show/configuration',
'^sho?w?/com', 'dbavail', 'dbavail',
'^sho?w?/dxcc', 'show/dx dxcc', 'show/dx',
'^sho?w?/myd?x?/(\d+)', 'show/dx filter $1', 'show/mydx',
'^sho?w?/myd?x?/d(\d+)', 'show/dx filter from $1', 'show/mydx',
'^sho?w?/myd?x?', 'show/dx filter', 'show/mydx',
'^sho?w?/myd?x?/(\d+)', 'show/dx filter $1', 'show/mydx',
'^sho?w?/myd?x?/d(\d+)', 'show/dx filter from $1', 'show/mydx',
'^sho?w?/myd?x?', 'show/dx filter', 'show/mydx',
- '^sho?w?/newco?n?f?\w*/n', 'show/newconfiguration node', 'show/newconfiguration',
+ '^sho?w?/newco?n?\w*/n', 'show/newconfiguration node', 'show/newconfiguration',
'^sho?w?/sta?$', 'show/station', 'show/station',
'^sho?w?/tnc', 'who', 'who',
'^sho?w?/up', 'show/cluster', 'show/cluster',
'^sho?w?/sta?$', 'show/station', 'show/station',
'^sho?w?/tnc', 'who', 'who',
'^sho?w?/up', 'show/cluster', 'show/cluster',
- if ($c =~ /^Server\s+(\S+)$/) {
+ if ($c =~ /^Server\s+(\S+)/) {
$addr = $1;
$c = "Server";
} else {
$addr = $1;
$c = "Server";
} else {
- $addr = "$r->{peerhost}/$r->{peerport}";
+ $addr = "AGW Port ($r->{agwport})" if exists $r->{agwport};
+ $addr ||= "$r->{peerhost}/$r->{peerport}";
+ $addr ||= "Unknown";
}
my $csort = $r->{csort} || '';
my $sort = $r->{sort} || '';
}
my $csort = $r->{csort} || '';
my $sort = $r->{sort} || '';
# strip out // on command only
$cmd =~ s|//|/|g;
$cmd =~ s|^/||g; # no leading / either
# strip out // on command only
$cmd =~ s|//|/|g;
$cmd =~ s|^/||g; # no leading / either
- $cmd =~ s|[^-\w/]||g; # and no funny characters either
+ $cmd =~ s|[^-?\w/]||g; # and no funny characters either