You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
79 lines
1.5 KiB
79 lines
1.5 KiB
package NGCP::Rtpengine;
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Socket;
|
|
use Socket6;
|
|
use IO::Socket;
|
|
use IO::Socket::IP;
|
|
use Bencode;
|
|
use Data::Dumper;
|
|
use JSON;
|
|
use LWP::UserAgent;
|
|
|
|
|
|
our $req_cb;
|
|
|
|
|
|
sub new {
|
|
my ($class, $addr, $port) = @_;
|
|
|
|
my $self = {};
|
|
bless $self, $class;
|
|
|
|
if (ref($addr)) {
|
|
$self->{socket} = $addr;
|
|
}
|
|
elsif ($addr =~ /^http/) {
|
|
$self->{uri} = $addr;
|
|
}
|
|
else {
|
|
$self->{socket} = IO::Socket::IP->new(Type => &SOCK_DGRAM, Proto => 'udp',
|
|
PeerHost => $addr, PeerPort => $port);
|
|
}
|
|
|
|
return $self;
|
|
}
|
|
|
|
sub req {
|
|
my ($self, $packet) = @_;
|
|
|
|
my $cookie = rand() . ' ';
|
|
my $p = $cookie . ($self->{json} ? encode_json($packet) : Bencode::bencode($packet));
|
|
my $ret;
|
|
if ($self->{uri}) {
|
|
my $ua = LWP::UserAgent->new();
|
|
my $resp = $ua->post($self->{uri},
|
|
'Content-type' => "application/x-rtpengine-ng",
|
|
Content => $p);
|
|
$ret = $resp->decoded_content;
|
|
}
|
|
else {
|
|
$self->{socket}->send($p, 0) or die $!;
|
|
if ($req_cb) {
|
|
$req_cb->();
|
|
}
|
|
$self->{socket}->recv($ret, 65535) or die $!;
|
|
}
|
|
$ret =~ s/^\Q$cookie\E//s or die $ret;
|
|
my $resp = $self->{json} ? decode_json($ret) : Bencode::bdecode($ret, 1);
|
|
|
|
$resp->{result} or die Dumper $resp;
|
|
|
|
if ($resp->{result} eq 'error') {
|
|
die "Error reason: \"$resp->{'error-reason'}\"";
|
|
}
|
|
|
|
return $resp;
|
|
}
|
|
|
|
sub offer {
|
|
my ($self, $packet) = @_;
|
|
return $self->req( { command => 'offer', %$packet } );
|
|
}
|
|
sub answer {
|
|
my ($self, $packet) = @_;
|
|
return $self->req( { command => 'answer', %$packet } );
|
|
}
|
|
|
|
1;
|