search for: peerport

Dear all, I want to make call through socket i have set code given below: #!/usr/bin/perl -w use IO::Socket::INET; sub asterisk_command () { # my $command=$_[0]; my $ami=IO::Socket::INET->new(PeerAddr=>'127.0.0.1',PeerPort=>5038,Proto=>'tcp') or die "failed to connect to AMI!"; print $ami "Action: Login\r\nUsername: lite\r\nSecret: 4003\r\n\r\nAction: Logoff\r\n\r\n"; } &asterisk_command("Channel: DAHDI/27/7702009896\r\nExten: s\r\nContext: outbound\r\nCaller...

...returned error: Broken pipe" Please suggest me what is wrong. Muhammad Faheem ### my originate code block ... ----------------------------------------------------------------------------------------------- # ami-script.pl my $astman = Asterisk::AMI->new(PeerAddr => '127.0.0.1', PeerPort => '5038', Username => 'faheem', Secret => 'secret'); die "Unable to connect to asterisk" unless ($astman); my $resp_code = $astman->send_action({Action => 'Originate',...

...for the first to complete or is it nginx's trouble with not handling it correctly? A quick test with a perl script confirms: #!/usr/bin/perl -w $|++; use IO::Socket; use strict; my ($host, $user, $pass) = @ARGV; my $s = new IO::Socket::INET(Proto => 'tcp', PeerAddr => $host, PeerPort => 143); die "Could not create socket $!\n" unless $s; while(<$s>) { print $_; last if /OK/; } print $s "C CAPABILITY\r\nL LOGIN $user $pass\r\n"; while(<$s>) { print $_; last if /OK/; } print $s "Q logout\r\n"; while(<$s>) { print $_; last if /OK...

hi I've written, or upgraded a little more, a plugin for asterisk/nagios, just in case someone should be interested. it uses the manager interface to connect and checks staus. it's a dirty hack, but it works. see https://sourceforge.net/tracker/? func=detail&aid=746083&group_id=29880&atid=541465 for more info roy

...a simple Perl program to open and immediately close a connection: ---------------------------------------------------------------------- #!/usr/bin/perl use IO::Socket; use Carp; ($server,$port) = @ARGV; $socket = IO::Socket::INET->new(PeerAddr => $server, PeerPort => $port) || croak(qq*cannot connect to "$server"*); $socket->close(); ---------------------------------------------------------------------- However, with nmap -sT, I get this: debug1: Connection to port 2001 forwarding to localhost port 22 requested. debug1: channel 2: new...

Is there any way to find-out the peak number of calls that an asterisk system has had? Not the total number of calls, but the maximum number of simultaneous calls. I know I can porobably go through the CDR logs and look for calls which have overlapped in time, but I'm wondering if there's some counter somewhere I could access... (I'm looking for evidence for an ISDN client who