Subject: Re: [Asterisk-Users] asterisk -rx under cron?
Date: Wed, 18 Jun 2003 21:53:09 -0500 (CDT)
From: Martin Pycko <martinp@digium.com>
Reply-To: asterisk-users@lists.digium.com
To: <asterisk-users@lists.digium.com>

This works for me.
Martin

#!/usr/bin/perl -w
use Socket;
use IO::Handle;

socket(SOCK, AF_INET, SOCK_STREAM, getprotobyname('tcp'))
        or die "Cannot create a socket: $!\n";
connect(SOCK, sockaddr_in(5038, inet_aton('localhost')))
        or die "Cannot connect to the manager port\n";
SOCK->autoflush(1);
$text = "Action: Login\r\n";
$text .= "Username: mark\r\n";
$text .= "Secret: pass\r\n\r\n";
$text .= "Action: Command\r\nCommand: show channels\r\n\r\n";
print SOCK $text;
while (<SOCK>) {
        print if not /Message:/ and not /Response:/ and not /END COMMAND/;
        exit 0 if /END COMMAND/
}

exit 0;

On Thu, 19 Jun 2003, Christopher Arnold wrote:

>
>
> On Wed, 18 Jun 2003, Jeremy McNamara wrote:
>
> > Why not write a [insert favorite scripting language here] script to use
> > the Asterisk manager interface?
> >
> > I've wrote quite a few little perl scripts each doing their own specific
> > function.  Works quite well.
> >
> Could you give us a pointer to info about the Asterisk manager interface?
> Perhaps even an example script in your favorite scripting language ?
>
>       /Chris
> _______________________________________________
> Asterisk-Users mailing list
> Asterisk-Users@lists.digium.com
> http://lists.digium.com/mailman/listinfo/asterisk-users
>

_______________________________________________
Asterisk-Users mailing list
Asterisk-Users@lists.digium.com
http://lists.digium.com/mailman/listinfo/asterisk-users