kenmirrors/asterisk
1
0
Fork 0
mirror of https://github.com/asterisk/asterisk.git synced 2025-09-05 12:16:00 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add tab command-line completion

Browse Source 
(Closes issue #12428)


git-svn-id: https://origsvn.digium.com/svn/asterisk/trunk@114098 65c4cc65-6c06-0410-ace0-fbb531ad65f3
This commit is contained in:
Tilghman Lesher
2008-04-14 02:55:41 +00:00
parent dc3e185e96
commit c716e8de53
1 changed files with 31 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
contrib/scripts/astcli
View File

@@ -12,6 +12,7 @@ use Getopt::Long;
#
my ($user, $pw, $host, $port, $interactive, $save) = (undef, undef, 'localhost', 5038, 0, 0);
my $EOL = "\r\n"; # Standard End of Line
my @commands;
process_credentials('/etc/astcli.conf');
process_credentials("$ENV{HOME}/.astcli") if defined $ENV{HOME};
GetOptions("username=s" => \$user, "secret=s" => \$pw, "host=s" => \$host, "port=s" => \$port, "readline" => \$interactive, "write" => \$save);
@@ -51,12 +52,16 @@ sub send_command($) {
$tc->send($EOL);
my $response = '';
while (<$tc>) {
last if $_ =~ /--END COMMAND--/;
if ($_ =~ /--END COMMAND--/) {
$_ =~ s/--END COMMAND--\s*//;
$response .= $_;
last;
}
$response .= $_;
}
$response =~ s/Privilege: Command$EOL//;
$response =~ s/Response: Follows$EOL//;
print $response;
return $response;
}
sub login {
@@ -93,27 +98,23 @@ if ($action eq '-' || !defined $action || $action eq '') {
my $term = new Term::ReadLine 'Command Line Interface';
my $prompt = "$host*CLI> ";
my $attribs = $term->Attribs;
$attribs->{completion_function} = sub {
my ($text, $line, $start) = @_;
# Stub function for tab auto completion for those feeling adventurous
return;
};
$attribs->{completion_function} = \&tab_completion;
while (defined($_ = $term->readline($prompt))) {
(logoff() and exit) if $_ =~ /exit|quit/; # Give them a way to exit the "terminal"
send_command($_);
print send_command($_);
}
} else {
while (<>) {
chomp;
(logoff() and exit) if $_ =~ /exit|quit/; # If someone accidentally ends up here, let them exit
send_command($_);
print send_command($_);
}
}
exit 0;
}
# Otherwise just send the command:
send_command($action);
print send_command($action);
# parses a configuration file into the global $user and $pw.
sub process_credentials {
@@ -144,3 +145,23 @@ sub usage {
exit;
}
sub tab_completion {
my ($word, $buffer, $offset) = @_;
my %items;
my $lastword = '';
if ($word eq '') {
$buffer =~ m/(\S+)\s?$/;
$lastword = $1;
print STDERR "\n\nlastword=\"$lastword\"\n";
}
my $res = send_command("_command matchesarray \"$buffer\" \"$word\"\n");
foreach my $item (split /\s+/, $res) {
$items{$item}++ unless ($item eq '_EOF_' or $item eq '' or $item eq $lastword);
}
#print STDERR "\nword=\"$word\" buffer=\"$buffer\" offset=\"$offset\" res=\"$res\"\n";
return sort keys %items;
}