Browse Source

fix perl namespaces - move into NGCP::

Change-Id: I5c21abf195b766bfda3d9d371b4d0577007c1f5e
changes/34/5834/1
Richard Fuchs 10 years ago
parent
commit
f83f674c4c
12 changed files with 55 additions and 55 deletions
  1. +4
    -4
      perl/NGCP/Rtpclient/DTLS.pm
  2. +15
    -15
      perl/NGCP/Rtpclient/ICE.pm
  3. +1
    -1
      perl/NGCP/Rtpclient/RTP.pm
  4. +7
    -7
      perl/NGCP/Rtpclient/SDP.pm
  5. +1
    -1
      perl/NGCP/Rtpclient/SRTP.pm
  6. +1
    -1
      perl/NGCP/Rtpengine.pm
  7. +16
    -16
      perl/NGCP/Rtpengine/Test.pm
  8. +2
    -2
      t/test-basic.pl
  9. +2
    -2
      t/test-dtls.pl
  10. +2
    -2
      t/test-ice.pl
  11. +2
    -2
      t/test-unidirectional.pl
  12. +2
    -2
      utils/ng-client

perl/DTLS.pm → perl/NGCP/Rtpclient/DTLS.pm View File


perl/ICE.pm → perl/NGCP/Rtpclient/ICE.pm View File


perl/RTP.pm → perl/NGCP/Rtpclient/RTP.pm View File


perl/SDP.pm → perl/NGCP/Rtpclient/SDP.pm View File


perl/SRTP.pm → perl/NGCP/Rtpclient/SRTP.pm View File


perl/Rtpengine.pm → perl/NGCP/Rtpengine.pm View File


perl/Rtpengine/Test.pm → perl/NGCP/Rtpengine/Test.pm View File


+ 2
- 2
t/test-basic.pl View File

@ -2,10 +2,10 @@
use strict;
use warnings;
use Rtpengine::Test;
use NGCP::Rtpengine::Test;
use IO::Socket;
my $r = Rtpengine::Test->new();
my $r = NGCP::Rtpengine::Test->new();
my ($a, $b) = $r->client_pair(
{sockdomain => &Socket::AF_INET},
{sockdomain => &Socket::AF_INET}


+ 2
- 2
t/test-dtls.pl View File

@ -2,9 +2,9 @@
use strict;
use warnings;
use Rtpengine::Test;
use NGCP::Rtpengine::Test;
my $r = Rtpengine::Test->new();
my $r = NGCP::Rtpengine::Test->new();
my $a = $r->client(dtls => 1);
my $b = $r->client();


+ 2
- 2
t/test-ice.pl View File

@ -2,9 +2,9 @@
use strict;
use warnings;
use Rtpengine::Test;
use NGCP::Rtpengine::Test;
my $r = Rtpengine::Test->new();
my $r = NGCP::Rtpengine::Test->new();
my $a = $r->client(ice => 1);
my $b = $r->client(sockdomain => &Socket::AF_INET);


+ 2
- 2
t/test-unidirectional.pl View File

@ -2,10 +2,10 @@
use strict;
use warnings;
use Rtpengine::Test;
use NGCP::Rtpengine::Test;
use IO::Socket;
my $r = Rtpengine::Test->new(host => '192.168.1.128');
my $r = NGCP::Rtpengine::Test->new(host => '192.168.1.128');
my ($a, $b) = $r->client_pair(
{sockdomain => &Socket::AF_INET},
{sockdomain => &Socket::AF_INET}


+ 2
- 2
utils/ng-client View File

@ -7,7 +7,7 @@ use warnings;
use strict;
use Getopt::Long;
use Data::Dumper;
use Rtpengine;
use NGCP::Rtpengine;
my %options = ('proxy-address' => 'localhost', 'proxy-port' => 2223);
@ -99,7 +99,7 @@ elsif (defined($options{'sdp-file'})) {
$options{verbose} and print Dumper \%packet;
my $engine = Rtpengine->new($options{'proxy-address'}, $options{'proxy-port'});
my $engine = NGCP::Rtpengine->new($options{'proxy-address'}, $options{'proxy-port'});
my $resp = $engine->req(\%packet);
#print Dumper $resp;


Loading…
Cancel
Save