kenmirrors/asterisk
1
0
Fork 0
mirror of https://github.com/asterisk/asterisk.git synced 2025-11-03 20:38:59 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merged revisions 113647 via svnmerge from

Browse Source 
https://origsvn.digium.com/svn/asterisk/trunk

........
r113647 | tilghman | 2008-04-09 08:23:44 -0500 (Wed, 09 Apr 2008) | 6 lines

Additional enhancements
(closes issue #12390)
 Reported by: tzafrir
 Patches: 
       astcli_fixes.diff uploaded by tzafrir (license 46)

........


git-svn-id: https://origsvn.digium.com/svn/asterisk/branches/1.6.0@113648 65c4cc65-6c06-0410-ace0-fbb531ad65f3
This commit is contained in:
Tilghman Lesher
2008-04-09 13:24:50 +00:00
parent de98ac9a6c
commit 13366c64b8
1 changed files with 48 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

73
contrib/scripts/astcli
View File

@@ -1,4 +1,4 @@
#!/usr/bin/perl
#!/usr/bin/perl -w
use strict;
use Net::Telnet;
@@ -7,25 +7,23 @@ use Getopt::Long;
# Created by: David Van Ginneken
# Bird's the Word Technologies
# davevg@btwtech.com
my ($user, $pw);
GetOptions("username=s" => \$user, "password=s" => \$pw);
if (undef ne $user) {
# Using CLI-specified options
} elsif (-e "$ENV{HOME}/.astcli") {
process_credentials("$ENV{HOME}/.astcli");
} elsif (-e '/etc/asterisk/.astcli') {
process_credentials('/etc/asterisk/.astcli');
} else {
print "User Credentials File Not Found\n";
}
#
# And distributed under the terms of the GPL
#
my ($user, $pw, $host, $port) = (undef, undef, 'localhost', 5038);
process_credentials('/etc/astcli.conf');
process_credentials("$ENV{HOME}/.astcli");
GetOptions("username=s" => \$user, "secret=s" => \$pw, "host=s" => \$host, "port=s" => \$port);
my $action = join(" ", @ARGV);
&usage if (!defined $user || !defined $pw);
my $tc = new Net::Telnet (Timeout => 10,
Errmode => "die",
Host => "localhost",
Port => 5038);
Host => $host,
Port => $port);
# Login with our username and secret.
$tc->open ();
$tc->print ("Action: Login");
@@ -39,29 +37,54 @@ unless (($pre =~ m/Success/) && ($match =~ m/Authentication/)) {
print "Server Authentication failed.\n";
exit;
}
$tc->print ("Action: Command");
$tc->print ("Command: $action");
$tc->print ("");
($pre, undef) = $tc->waitfor ("/--END COMMAND--.*/");
$pre =~ s/^\n\n//g;
$pre =~ s/Privilege: Command\n//;
$pre =~ s/Response: Follows\n//;
print $pre;
# Send a single command to the manager connection handle (global $tc).
# Assumes things always work well :-)
sub send_command($) {
my $command = shift;
$tc->print ("Action: Command");
$tc->print ("Command: $command");
$tc->print ("");
my ($pre, undef) = $tc->waitfor ("/--END COMMAND--.*/");
$pre =~ s/^\n\n//g;
$pre =~ s/Privilege: Command\n//;
$pre =~ s/Response: Follows\n//;
print $pre;
}
# If the user asked to send commands from standard input:
if ($action eq '-') {
while (<>) {
chomp;
send_command($_)
}
exit 0;
}
# Otherwise just send the command:
send_command($action);
# parses a configuration file into the global $user and $pw.
sub process_credentials {
# Process the credentials found..
my $file = shift;
open (my $fh, "<$file") or die "Unable to open $file\n";
# silently fail if we can't read the file:
return unless (-r $file);
open (my $fh, "<$file") or return;
while (<$fh>) {
chomp;
(undef,$user) = split(/[,=]/, $_) if $_ =~ /user(name)?[,=]/i;
(undef,$pw) = split(/[,=]/, $_) if $_ =~ /(secret|passw(or)?d)[,=]/i;
(undef,$pw) = split(/[,=]/, $_) if $_ =~ /(secret|passw(or)?d|pwd?)[,=]/i;
(undef,$host) = split(/[,=]/, $_) if $_ =~ /host(name)?[,=]/i;
(undef,$port) = split(/[,=]/, $_) if $_ =~ /port(num|no)?[,=]/i;
}
}
sub usage {
print "astcli [-u <username> -p <passwd>] <cli-command>\n";
print STDERR "astcli [-u <username> -s <passwd>] [-h host] [-p port] <cli-command>\n";
print STDERR " (command '-' - take commands from input)\n";
exit;
}