Until all LI vendors have migrated to REST later this year, re-introduce a SOAP API for interceptions. Change-Id: Ie8ef28e745b9f240547c3b6eb99fae4871287308changes/40/10740/5
Andreas Granig
9 years ago
parent
5687a42d40
commit
e458985238
@ -0,0 +1,276 @@
|
|||||||
|
<?xml version="1.0" encoding="UTF-8"?>
|
||||||
|
<definitions name="intercept"
|
||||||
|
xmlns="http://schemas.xmlsoap.org/wsdl/"
|
||||||
|
targetNamespace="http://dev.sipwise.com/SOAP/Intercept"
|
||||||
|
xmlns:tns="http://dev.sipwise.com/SOAP/Intercept"
|
||||||
|
xmlns:typens="http://dev.sipwise.com/SOAP/Intercept/Types"
|
||||||
|
xmlns:xsd="http://www.w3.org/2001/XMLSchema"
|
||||||
|
xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
|
||||||
|
xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" >
|
||||||
|
|
||||||
|
<types>
|
||||||
|
<schema xmlns="http://www.w3.org/2001/XMLSchema"
|
||||||
|
targetNamespace="http://dev.sipwise.com/SOAP/Intercept/Types"
|
||||||
|
xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/"
|
||||||
|
xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/">
|
||||||
|
|
||||||
|
<complexType name="Authentication">
|
||||||
|
<all>
|
||||||
|
<element name="username" type="string" />
|
||||||
|
<element name="password" type="string" />
|
||||||
|
<element name="type" type="string" />
|
||||||
|
</all>
|
||||||
|
</complexType>
|
||||||
|
|
||||||
|
<complexType name="IRIDelivery">
|
||||||
|
<all>
|
||||||
|
<element name="host" type="string" />
|
||||||
|
<element name="port" type="int">
|
||||||
|
</element>
|
||||||
|
<element name="username" type="string" minOccurs="0" maxOccurs="1" />
|
||||||
|
<element name="password" type="string" minOccurs="0" maxOccurs="1">
|
||||||
|
</element>
|
||||||
|
</all>
|
||||||
|
</complexType>
|
||||||
|
|
||||||
|
<complexType name="CCDelivery">
|
||||||
|
<all>
|
||||||
|
<element name="host" type="string" />
|
||||||
|
<element name="port" type="int">
|
||||||
|
</element>
|
||||||
|
</all>
|
||||||
|
</complexType>
|
||||||
|
|
||||||
|
<complexType name="UpdateIntercept">
|
||||||
|
<all>
|
||||||
|
<element name="iri_delivery" type="typens:IRIDelivery" minOccurs="0" maxOccurs="1" />
|
||||||
|
<element name="cc_required" type="boolean" minOccurs="1" maxOccurs="1">
|
||||||
|
</element>
|
||||||
|
<element name="cc_delivery" type="typens:CCDelivery" minOccurs="0" maxOccurs="1" />
|
||||||
|
</all>
|
||||||
|
</complexType>
|
||||||
|
|
||||||
|
<complexType name="ReadIntercept">
|
||||||
|
<all>
|
||||||
|
<element name="id" type="int">
|
||||||
|
</element>
|
||||||
|
<element name="LIID" type="string">
|
||||||
|
</element>
|
||||||
|
<element name="number" type="string">
|
||||||
|
</element>
|
||||||
|
<element name="iri_delivery" type="typens:IRIDelivery" />
|
||||||
|
<element name="cc_required" type="boolean">
|
||||||
|
</element>
|
||||||
|
<element name="cc_delivery" type="typens:CCDelivery" />
|
||||||
|
</all>
|
||||||
|
</complexType>
|
||||||
|
|
||||||
|
<complexType name="ReadInterceptArray">
|
||||||
|
<complexContent>
|
||||||
|
<restriction base="soapenc:Array">
|
||||||
|
<attribute ref="soapenc:arrayType" wsdl:arrayType="typens:ReadIntercept[]" />
|
||||||
|
</restriction>
|
||||||
|
</complexContent>
|
||||||
|
</complexType>
|
||||||
|
|
||||||
|
<!-- define "parameters" containers for functions -->
|
||||||
|
|
||||||
|
<complexType name="idParameter">
|
||||||
|
<all>
|
||||||
|
<element name="id" type="int">
|
||||||
|
</element>
|
||||||
|
</all>
|
||||||
|
</complexType>
|
||||||
|
|
||||||
|
<complexType name="NumberParameter">
|
||||||
|
<all>
|
||||||
|
<element name="number" type="string">
|
||||||
|
</element>
|
||||||
|
</all>
|
||||||
|
</complexType>
|
||||||
|
|
||||||
|
<complexType name="LIIDParameter">
|
||||||
|
<all>
|
||||||
|
<element name="LIID" type="string">
|
||||||
|
</element>
|
||||||
|
</all>
|
||||||
|
</complexType>
|
||||||
|
|
||||||
|
<complexType name="CreateInterceptParameter">
|
||||||
|
<all>
|
||||||
|
<element name="LIID" type="string" minOccurs="0" maxOccurs="1">
|
||||||
|
</element>
|
||||||
|
<element name="number" type="string">
|
||||||
|
</element>
|
||||||
|
<element name="iri_delivery" type="typens:IRIDelivery" />
|
||||||
|
<element name="cc_required" type="boolean" minOccurs="1" maxOccurs="1">
|
||||||
|
</element>
|
||||||
|
<element name="cc_delivery" type="typens:CCDelivery" />
|
||||||
|
</all>
|
||||||
|
</complexType>
|
||||||
|
|
||||||
|
<complexType name="UpdateInterceptParameter">
|
||||||
|
<all>
|
||||||
|
<element name="id" type="int">
|
||||||
|
</element>
|
||||||
|
<element name="data" type="typens:UpdateIntercept" />
|
||||||
|
</all>
|
||||||
|
</complexType>
|
||||||
|
|
||||||
|
</schema>
|
||||||
|
</types>
|
||||||
|
|
||||||
|
|
||||||
|
<!-- request message declarations -->
|
||||||
|
|
||||||
|
<!-- this is used by get_interceptions only -->
|
||||||
|
<message name="empty_Request">
|
||||||
|
<part name="authentication" type="typens:Authentication" />
|
||||||
|
</message>
|
||||||
|
|
||||||
|
<!-- this is used by delete_interception and get_interception_by_id -->
|
||||||
|
<message name="by_id_Request">
|
||||||
|
<part name="authentication" type="typens:Authentication" />
|
||||||
|
<part name="parameters" type="typens:idParameter" />
|
||||||
|
</message>
|
||||||
|
|
||||||
|
<!-- this is used by get_interceptions_by_number -->
|
||||||
|
<message name="by_number_Request">
|
||||||
|
<part name="authentication" type="typens:Authentication" />
|
||||||
|
<part name="parameters" type="typens:NumberParameter" />
|
||||||
|
</message>
|
||||||
|
|
||||||
|
<!-- this is used by get_interceptions_by_liid -->
|
||||||
|
<message name="by_liid_Request">
|
||||||
|
<part name="authentication" type="typens:Authentication" />
|
||||||
|
<part name="parameters" type="typens:LIIDParameter" />
|
||||||
|
</message>
|
||||||
|
|
||||||
|
<!-- this is only used to create an interception -->
|
||||||
|
<message name="create_interception_Request">
|
||||||
|
<part name="authentication" type="typens:Authentication" />
|
||||||
|
<part name="parameters" type="typens:CreateInterceptParameter" />
|
||||||
|
</message>
|
||||||
|
|
||||||
|
<!-- this is only used to update an interception -->
|
||||||
|
<message name="update_interception_Request">
|
||||||
|
<part name="authentication" type="typens:Authentication" />
|
||||||
|
<part name="parameters" type="typens:UpdateInterceptParameter" />
|
||||||
|
</message>
|
||||||
|
|
||||||
|
<!-- response message declarations -->
|
||||||
|
|
||||||
|
<!-- this is used quite often -->
|
||||||
|
<message name="empty_Response">
|
||||||
|
</message>
|
||||||
|
|
||||||
|
<!-- this is curently only used by create_interception -->
|
||||||
|
<message name="integer_Response">
|
||||||
|
<part name="data" type="xsd:int" />
|
||||||
|
</message>
|
||||||
|
|
||||||
|
<!-- this is only used by get_interception -->
|
||||||
|
<message name="interception_Response">
|
||||||
|
<part name="data" type="typens:ReadIntercept" />
|
||||||
|
</message>
|
||||||
|
|
||||||
|
<!-- this is used by get_interceptions_by_number and get_interceptions -->
|
||||||
|
<message name="interceptions_Response">
|
||||||
|
<part name="data" type="typens:ReadInterceptArray" />
|
||||||
|
</message>
|
||||||
|
|
||||||
|
<!-- define the interface by collecting all functions -->
|
||||||
|
|
||||||
|
<portType name="InterceptPortType">
|
||||||
|
|
||||||
|
<operation name="create_interception">
|
||||||
|
<input message="tns:create_interception_Request" />
|
||||||
|
<output message="tns:integer_Response" />
|
||||||
|
</operation>
|
||||||
|
|
||||||
|
<operation name="update_interception">
|
||||||
|
<input message="tns:update_interception_Request" />
|
||||||
|
<output message="tns:empty_Response" />
|
||||||
|
</operation>
|
||||||
|
|
||||||
|
<operation name="delete_interception">
|
||||||
|
<input message="tns:by_id_Request" />
|
||||||
|
<output message="tns:empty_Response" />
|
||||||
|
</operation>
|
||||||
|
|
||||||
|
<operation name="get_interception_by_id">
|
||||||
|
<input message="tns:by_id_Request" />
|
||||||
|
<output message="tns:interception_Response" />
|
||||||
|
</operation>
|
||||||
|
|
||||||
|
<operation name="get_interceptions_by_number">
|
||||||
|
<input message="tns:by_number_Request" />
|
||||||
|
<output message="tns:interceptions_Response" />
|
||||||
|
</operation>
|
||||||
|
|
||||||
|
<operation name="get_interceptions_by_liid">
|
||||||
|
<input message="tns:by_liid_Request" />
|
||||||
|
<output message="tns:interceptions_Response" />
|
||||||
|
</operation>
|
||||||
|
|
||||||
|
<operation name="get_interceptions">
|
||||||
|
<input message="tns:empty_Request" />
|
||||||
|
<output message="tns:interceptions_Response" />
|
||||||
|
</operation>
|
||||||
|
|
||||||
|
</portType>
|
||||||
|
|
||||||
|
|
||||||
|
<!-- bind operations to SOAP actions and namespaces -->
|
||||||
|
|
||||||
|
<binding name="InterceptBinding" type="tns:InterceptPortType">
|
||||||
|
|
||||||
|
<soap:binding style="rpc" transport="http://schemas.xmlsoap.org/soap/http"/>
|
||||||
|
|
||||||
|
<operation name="create_interception"> <soap:operation soapAction="urn:/SOAP/Intercept#create_interception" style="rpc" />
|
||||||
|
<input><soap:body use="encoded" namespace="urn:/SOAP/Intercept" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" /></input>
|
||||||
|
<output><soap:body use="encoded" namespace="urn:/SOAP/Intercept" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" /></output>
|
||||||
|
</operation>
|
||||||
|
|
||||||
|
<operation name="update_interception"> <soap:operation soapAction="urn:/SOAP/Intercept#update_interception" style="rpc" />
|
||||||
|
<input><soap:body use="encoded" namespace="urn:/SOAP/Intercept" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" /></input>
|
||||||
|
<output><soap:body use="encoded" namespace="urn:/SOAP/Intercept" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" /></output>
|
||||||
|
</operation>
|
||||||
|
|
||||||
|
<operation name="delete_interception"> <soap:operation soapAction="urn:/SOAP/Intercept#delete_interception" style="rpc" />
|
||||||
|
<input><soap:body use="encoded" namespace="urn:/SOAP/Intercept" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" /></input>
|
||||||
|
<output><soap:body use="encoded" namespace="urn:/SOAP/Intercept" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" /></output>
|
||||||
|
</operation>
|
||||||
|
|
||||||
|
<operation name="get_interception_by_id"> <soap:operation soapAction="urn:/SOAP/Intercept#get_interception_by_id" style="rpc" />
|
||||||
|
<input><soap:body use="encoded" namespace="urn:/SOAP/Intercept" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" /></input>
|
||||||
|
<output><soap:body use="encoded" namespace="urn:/SOAP/Intercept" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" /></output>
|
||||||
|
</operation>
|
||||||
|
|
||||||
|
<operation name="get_interceptions_by_number"> <soap:operation soapAction="urn:/SOAP/Intercept#get_interceptions_by_number" style="rpc" />
|
||||||
|
<input><soap:body use="encoded" namespace="urn:/SOAP/Intercept" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" /></input>
|
||||||
|
<output><soap:body use="encoded" namespace="urn:/SOAP/Intercept" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" /></output>
|
||||||
|
</operation>
|
||||||
|
|
||||||
|
<operation name="get_interceptions_by_liid"> <soap:operation soapAction="urn:/SOAP/Intercept#get_interceptions_by_liid" style="rpc" />
|
||||||
|
<input><soap:body use="encoded" namespace="urn:/SOAP/Intercept" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" /></input>
|
||||||
|
<output><soap:body use="encoded" namespace="urn:/SOAP/Intercept" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" /></output>
|
||||||
|
</operation>
|
||||||
|
|
||||||
|
<operation name="get_interceptions"> <soap:operation soapAction="urn:/SOAP/Intercept#get_interceptions" style="rpc" />
|
||||||
|
<input><soap:body use="encoded" namespace="urn:/SOAP/Intercept" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" /></input>
|
||||||
|
<output><soap:body use="encoded" namespace="urn:/SOAP/Intercept" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" /></output>
|
||||||
|
</operation>
|
||||||
|
|
||||||
|
</binding>
|
||||||
|
|
||||||
|
|
||||||
|
<!-- define request endpoint -->
|
||||||
|
|
||||||
|
<service name="intercept">
|
||||||
|
<port name="InterceptPort" binding="tns:InterceptBinding">
|
||||||
|
<soap:address location="https://10.15.17.189:1443/SOAP/Intercept" />
|
||||||
|
</port>
|
||||||
|
</service>
|
||||||
|
|
||||||
|
</definitions>
|
||||||
@ -0,0 +1,435 @@
|
|||||||
|
package NGCP::Panel::Controller::SOAP::Intercept;
|
||||||
|
use NGCP::Panel::Utils::Generic qw(:all);
|
||||||
|
use Sipwise::Base;
|
||||||
|
|
||||||
|
use parent 'Catalyst::Controller';
|
||||||
|
|
||||||
|
use File::Slurp;
|
||||||
|
use SOAP::Transport::LOCAL;
|
||||||
|
|
||||||
|
sub thewsdl : GET Path('/SOAP/Intercept.wsdl') :Local :Args() {
|
||||||
|
my ($self, $c, $args) = @_;
|
||||||
|
|
||||||
|
my $thewsdl = read_file('/etc/ngcp-panel/Intercept.wsdl');
|
||||||
|
$c->response->body($thewsdl);
|
||||||
|
$c->response->content_type('text/xml');
|
||||||
|
}
|
||||||
|
|
||||||
|
sub index : POST Path('/SOAP/Intercept') {
|
||||||
|
my ($self, $c) = @_;
|
||||||
|
my $h = Sipwise::SOAP::Intercept->new(c => $c);
|
||||||
|
my $out = SOAP::Transport::LOCAL::Client->new
|
||||||
|
->dispatch_with({ 'urn:/SOAP/Intercept' => $h })
|
||||||
|
->handle($c->req->body);
|
||||||
|
$c->response->content_type('text/xml');
|
||||||
|
$c->response->body($out);
|
||||||
|
}
|
||||||
|
|
||||||
|
package Sipwise::SOAP::Intercept;
|
||||||
|
use Sipwise::Base;
|
||||||
|
use NGCP::Panel::Form::Intercept::Authentication;
|
||||||
|
use NGCP::Panel::Form::Intercept::Create;
|
||||||
|
use NGCP::Panel::Form::Intercept::Update;
|
||||||
|
use NGCP::Panel::Form::Intercept::Delete;
|
||||||
|
use Data::Structure::Util qw/unbless/;
|
||||||
|
use UUID;
|
||||||
|
use Moose;
|
||||||
|
has 'c' => (is => 'rw', isa => 'Object');
|
||||||
|
|
||||||
|
sub _validate {
|
||||||
|
my ($self, $form, $data) = @_;
|
||||||
|
|
||||||
|
unbless($data);
|
||||||
|
$form->process(params => $data);
|
||||||
|
unless($form->validated) {
|
||||||
|
if($form->has_form_errors) {
|
||||||
|
my @errs = $form->form_errors;
|
||||||
|
die SOAP::Fault
|
||||||
|
->faultcode('Client.Syntax.MissingParameter')
|
||||||
|
->faultstring(shift @errs);
|
||||||
|
} else {
|
||||||
|
my @fields = $form->error_fields;
|
||||||
|
my $field = shift @fields;
|
||||||
|
my @errs = $field->errors;
|
||||||
|
my $err = shift @errs;
|
||||||
|
die SOAP::Fault
|
||||||
|
->faultcode('Client.Syntax.MalformedParameter')
|
||||||
|
->faultstring($field->label . ": " . join('; ', @{ $err }));
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
sub _auth {
|
||||||
|
my ($self, $auth) = @_;
|
||||||
|
my $c = $self->c;
|
||||||
|
|
||||||
|
$self->_validate(NGCP::Panel::Form::Intercept::Authentication->new(ctx => $c), $auth);
|
||||||
|
|
||||||
|
try {
|
||||||
|
my $admin = $c->model('DB')->resultset('admins')->search({
|
||||||
|
login => $auth->{username},
|
||||||
|
md5pass => { '=' => \['MD5("'.$auth->{password}.'")'] },
|
||||||
|
})->first;
|
||||||
|
die unless($admin && ($admin->is_superuser || $admin->lawful_intercept));
|
||||||
|
} catch($e) {
|
||||||
|
die SOAP::Fault
|
||||||
|
->faultcode('Client.Auth.Refused')
|
||||||
|
->faultstring("admin may not access LI data (wrong credentials or lawful_intercept flag not set)");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
sub create_interception {
|
||||||
|
my ($self, $auth, $params) = @_;
|
||||||
|
my $c = $self->c;
|
||||||
|
|
||||||
|
$self->_auth($auth);
|
||||||
|
$self->_validate(NGCP::Panel::Form::Intercept::Create->new(ctx => $c), $params);
|
||||||
|
|
||||||
|
my $i;
|
||||||
|
my $num;
|
||||||
|
try {
|
||||||
|
$num = $c->model('DB')->resultset('voip_dbaliases')->find({
|
||||||
|
username => $params->{number}
|
||||||
|
});
|
||||||
|
} catch($e) {
|
||||||
|
die SOAP::Fault
|
||||||
|
->faultcode('Server.Internal')
|
||||||
|
->faultstring($e);
|
||||||
|
}
|
||||||
|
unless($num) {
|
||||||
|
die SOAP::Fault
|
||||||
|
->faultcode('Client.Voip.NoSuchSubscriber')
|
||||||
|
->faultstring("number '$$params{number}' is not assigned to any subscriber");
|
||||||
|
}
|
||||||
|
my ($uuid_bin, $uuid_string);
|
||||||
|
UUID::generate($uuid_bin);
|
||||||
|
UUID::unparse($uuid_bin, $uuid_string);
|
||||||
|
my $guard = $c->model('DB')->txn_scope_guard;
|
||||||
|
{
|
||||||
|
try {
|
||||||
|
$i = $self->c->model('DB')->resultset('voip_intercept')->create({
|
||||||
|
reseller_id => $num->subscriber->voip_subscriber->contract->contact->reseller_id,
|
||||||
|
LIID => $params->{LIID},
|
||||||
|
number => $params->{number},
|
||||||
|
cc_required => $params->{cc_required},
|
||||||
|
delivery_host => $params->{iri_delivery}->{host},
|
||||||
|
delivery_port => $params->{iri_delivery}->{port},
|
||||||
|
delivery_user => $params->{iri_delivery}->{user},
|
||||||
|
delivery_pass => $params->{iri_delivery}->{pass},
|
||||||
|
deleted => 0,
|
||||||
|
uuid => $uuid_string,
|
||||||
|
sip_username => $num->subscriber->username,
|
||||||
|
sip_domain => $num->domain->domain,
|
||||||
|
create_timestamp => \['NOW()'],
|
||||||
|
$params->{cc_required} ? (cc_delivery_host => $params->{cc_delivery}->{host}) : (),
|
||||||
|
$params->{cc_required} ? (cc_delivery_port => $params->{cc_delivery}->{port}) : (),
|
||||||
|
});
|
||||||
|
$guard->commit;
|
||||||
|
|
||||||
|
NGCP::Panel::Utils::Interception::request($c, 'POST', undef, {
|
||||||
|
liid => $i->LIID,
|
||||||
|
uuid => $i->uuid,
|
||||||
|
number => $i->number,
|
||||||
|
sip_username => $num->subscriber->username,
|
||||||
|
sip_domain => $num->domain->domain,
|
||||||
|
delivery_host => $i->delivery_host,
|
||||||
|
delivery_port => $i->delivery_port,
|
||||||
|
delivery_user => $i->delivery_user,
|
||||||
|
delivery_password => $i->delivery_pass,
|
||||||
|
cc_required => $i->cc_required,
|
||||||
|
cc_delivery_host => $i->cc_delivery_host,
|
||||||
|
cc_delivery_port => $i->cc_delivery_port,
|
||||||
|
});
|
||||||
|
} catch($e) {
|
||||||
|
die SOAP::Fault
|
||||||
|
->faultcode('Server.Internal')
|
||||||
|
->faultstring($e);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return $i->id;
|
||||||
|
}
|
||||||
|
|
||||||
|
sub update_interception {
|
||||||
|
my ($self, $auth, $params) = @_;
|
||||||
|
my $c = $self->c;
|
||||||
|
|
||||||
|
$self->_auth($auth);
|
||||||
|
$self->_validate(NGCP::Panel::Form::Intercept::Update->new(ctx => $c), $params);
|
||||||
|
|
||||||
|
my $i;
|
||||||
|
try {
|
||||||
|
$i = $c->model('DB')->resultset('voip_intercept')->search({
|
||||||
|
id => $params->{id},
|
||||||
|
deleted => 0,
|
||||||
|
})->first;
|
||||||
|
} catch($e) {
|
||||||
|
die SOAP::Fault
|
||||||
|
->faultcode('Server.Internal')
|
||||||
|
->faultstring($e);
|
||||||
|
}
|
||||||
|
|
||||||
|
unless($i) {
|
||||||
|
die SOAP::Fault
|
||||||
|
->faultcode('Client.Intercept.NoSuchInterception')
|
||||||
|
->faultstring("interception ID '$$params{id}' does not exist");
|
||||||
|
}
|
||||||
|
|
||||||
|
my $guard = $c->model('DB')->txn_scope_guard;
|
||||||
|
{
|
||||||
|
if($params->{data}->{iri_delivery}) {
|
||||||
|
$i->delivery_host($params->{data}->{iri_delivery}->{host});
|
||||||
|
$i->delivery_port($params->{data}->{iri_delivery}->{port});
|
||||||
|
$i->delivery_user($params->{data}->{iri_delivery}->{username});
|
||||||
|
$i->delivery_pass($params->{data}->{iri_delivery}->{password});
|
||||||
|
}
|
||||||
|
if($params->{data}->{cc_delivery}) {
|
||||||
|
$i->cc_delivery_host($params->{data}->{cc_delivery}->{host});
|
||||||
|
$i->cc_delivery_port($params->{data}->{cc_delivery}->{port});
|
||||||
|
}
|
||||||
|
$i->cc_required($params->{data}->{cc_required});
|
||||||
|
|
||||||
|
try {
|
||||||
|
$i->update();
|
||||||
|
$guard->commit;
|
||||||
|
|
||||||
|
NGCP::Panel::Utils::Interception::request($c, 'PUT', $i->uuid, {
|
||||||
|
liid => $i->LIID,
|
||||||
|
uuid => $i->uuid,
|
||||||
|
number => $i->number,
|
||||||
|
sip_username => $i->sip_username,
|
||||||
|
sip_domain => $i->sip_domain,
|
||||||
|
delivery_host => $i->delivery_host,
|
||||||
|
delivery_port => $i->delivery_port,
|
||||||
|
delivery_user => $i->delivery_user,
|
||||||
|
delivery_password => $i->delivery_pass,
|
||||||
|
cc_required => $i->cc_required,
|
||||||
|
cc_delivery_host => $i->cc_delivery_host,
|
||||||
|
cc_delivery_port => $i->cc_delivery_port,
|
||||||
|
});
|
||||||
|
} catch($e) {
|
||||||
|
die SOAP::Fault
|
||||||
|
->faultcode('Server.Internal')
|
||||||
|
->faultstring($e);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
sub delete_interception {
|
||||||
|
my ($self, $auth, $params) = @_;
|
||||||
|
my $c = $self->c;
|
||||||
|
|
||||||
|
$self->_auth($auth);
|
||||||
|
$self->_validate(NGCP::Panel::Form::Intercept::Delete->new(ctx => $c), $params);
|
||||||
|
|
||||||
|
my $i;
|
||||||
|
try {
|
||||||
|
$i = $c->model('DB')->resultset('voip_intercept')->search({
|
||||||
|
id => $params->{id},
|
||||||
|
deleted => 0,
|
||||||
|
})->first;
|
||||||
|
} catch($e) {
|
||||||
|
die SOAP::Fault
|
||||||
|
->faultcode('Server.Internal')
|
||||||
|
->faultstring($e);
|
||||||
|
}
|
||||||
|
|
||||||
|
unless($i) {
|
||||||
|
die SOAP::Fault
|
||||||
|
->faultcode('Client.Intercept.NoSuchInterception')
|
||||||
|
->faultstring("interception ID '$$params{id}' does not exist");
|
||||||
|
}
|
||||||
|
|
||||||
|
my $guard = $c->model('DB')->txn_scope_guard;
|
||||||
|
{
|
||||||
|
try {
|
||||||
|
my $uuid = $i->uuid;
|
||||||
|
$i->update({
|
||||||
|
deleted => 1,
|
||||||
|
reseller_id => undef,
|
||||||
|
LIID => undef,
|
||||||
|
number => undef,
|
||||||
|
cc_required => 0,
|
||||||
|
delivery_host => undef,
|
||||||
|
delivery_port => undef,
|
||||||
|
delivery_user => undef,
|
||||||
|
delivery_pass => undef,
|
||||||
|
cc_delivery_host => undef,
|
||||||
|
cc_delivery_port => undef,
|
||||||
|
sip_username => undef,
|
||||||
|
sip_domain => undef,
|
||||||
|
uuid => undef,
|
||||||
|
});
|
||||||
|
$guard->commit;
|
||||||
|
|
||||||
|
NGCP::Panel::Utils::Interception::request($c, 'DELETE', $uuid);
|
||||||
|
} catch($e) {
|
||||||
|
die SOAP::Fault
|
||||||
|
->faultcode('Server.Internal')
|
||||||
|
->faultstring($e);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
sub get_interception_by_id {
|
||||||
|
my ($self, $auth, $params) = @_;
|
||||||
|
my $c = $self->c;
|
||||||
|
|
||||||
|
$self->_auth($auth);
|
||||||
|
|
||||||
|
my $i;
|
||||||
|
try {
|
||||||
|
$i = $c->model('DB')->resultset('voip_intercept')->search({
|
||||||
|
id => $params->{id},
|
||||||
|
deleted => 0,
|
||||||
|
})->first;
|
||||||
|
} catch($e) {
|
||||||
|
die SOAP::Fault
|
||||||
|
->faultcode('Server.Internal')
|
||||||
|
->faultstring($e);
|
||||||
|
}
|
||||||
|
|
||||||
|
unless($i) {
|
||||||
|
die SOAP::Fault
|
||||||
|
->faultcode('Client.Intercept.NoSuchInterception')
|
||||||
|
->faultstring("interception ID '$$params{id}' does not exist");
|
||||||
|
}
|
||||||
|
|
||||||
|
return {
|
||||||
|
id => $i->id,
|
||||||
|
LIID => $i->LIID,
|
||||||
|
number => $i->number,
|
||||||
|
cc_required => $i->cc_required,
|
||||||
|
iri_delivery => {
|
||||||
|
host => $i->delivery_host,
|
||||||
|
port => $i->delivery_port,
|
||||||
|
username => $i->delivery_user,
|
||||||
|
password => $i->delivery_pass,
|
||||||
|
},
|
||||||
|
cc_delivery => {
|
||||||
|
host => $i->cc_delivery_host,
|
||||||
|
port => $i->cc_delivery_port,
|
||||||
|
}
|
||||||
|
};
|
||||||
|
}
|
||||||
|
|
||||||
|
sub get_interceptions_by_liid {
|
||||||
|
my ($self, $auth, $params) = @_;
|
||||||
|
my $c = $self->c;
|
||||||
|
|
||||||
|
$self->_auth($auth);
|
||||||
|
my @interceptions = ();
|
||||||
|
|
||||||
|
try {
|
||||||
|
my $rs = $c->model('DB')->resultset('voip_intercept')->search({
|
||||||
|
LIID => $params->{LIID},
|
||||||
|
deleted => 0,
|
||||||
|
});
|
||||||
|
while(my $i = $rs->next) {
|
||||||
|
push @interceptions, {
|
||||||
|
id => $i->id,
|
||||||
|
LIID => $i->LIID,
|
||||||
|
number => $i->number,
|
||||||
|
cc_required => $i->cc_required,
|
||||||
|
iri_delivery => {
|
||||||
|
host => $i->delivery_host,
|
||||||
|
port => $i->delivery_port,
|
||||||
|
username => $i->delivery_user,
|
||||||
|
password => $i->delivery_pass,
|
||||||
|
},
|
||||||
|
cc_delivery => {
|
||||||
|
host => $i->cc_delivery_host,
|
||||||
|
port => $i->cc_delivery_port,
|
||||||
|
}
|
||||||
|
};
|
||||||
|
}
|
||||||
|
} catch($e) {
|
||||||
|
die SOAP::Fault
|
||||||
|
->faultcode('Server.Internal')
|
||||||
|
->faultstring($e);
|
||||||
|
}
|
||||||
|
return \@interceptions;
|
||||||
|
}
|
||||||
|
|
||||||
|
sub get_interceptions_by_number {
|
||||||
|
my ($self, $auth, $params) = @_;
|
||||||
|
my $c = $self->c;
|
||||||
|
|
||||||
|
$self->_auth($auth);
|
||||||
|
my @interceptions = ();
|
||||||
|
|
||||||
|
try {
|
||||||
|
my $rs = $c->model('DB')->resultset('voip_intercept')->search({
|
||||||
|
number => $params->{number},
|
||||||
|
deleted => 0,
|
||||||
|
});
|
||||||
|
while(my $i = $rs->next) {
|
||||||
|
push @interceptions, {
|
||||||
|
id => $i->id,
|
||||||
|
LIID => $i->LIID,
|
||||||
|
number => $i->number,
|
||||||
|
cc_required => $i->cc_required,
|
||||||
|
iri_delivery => {
|
||||||
|
host => $i->delivery_host,
|
||||||
|
port => $i->delivery_port,
|
||||||
|
username => $i->delivery_user,
|
||||||
|
password => $i->delivery_pass,
|
||||||
|
},
|
||||||
|
cc_delivery => {
|
||||||
|
host => $i->cc_delivery_host,
|
||||||
|
port => $i->cc_delivery_port,
|
||||||
|
}
|
||||||
|
};
|
||||||
|
}
|
||||||
|
} catch($e) {
|
||||||
|
die SOAP::Fault
|
||||||
|
->faultcode('Server.Internal')
|
||||||
|
->faultstring($e);
|
||||||
|
}
|
||||||
|
return \@interceptions;
|
||||||
|
}
|
||||||
|
|
||||||
|
sub get_interceptions {
|
||||||
|
my ($self, $auth, $params) = @_;
|
||||||
|
my $c = $self->c;
|
||||||
|
|
||||||
|
$self->_auth($auth);
|
||||||
|
my @interceptions = ();
|
||||||
|
|
||||||
|
try {
|
||||||
|
my $rs = $c->model('DB')->resultset('voip_intercept')->search({
|
||||||
|
deleted => 0,
|
||||||
|
});
|
||||||
|
while(my $i = $rs->next) {
|
||||||
|
push @interceptions, {
|
||||||
|
id => $i->id,
|
||||||
|
LIID => $i->LIID,
|
||||||
|
number => $i->number,
|
||||||
|
cc_required => $i->cc_required,
|
||||||
|
iri_delivery => {
|
||||||
|
host => $i->delivery_host,
|
||||||
|
port => $i->delivery_port,
|
||||||
|
username => $i->delivery_user,
|
||||||
|
password => $i->delivery_pass,
|
||||||
|
},
|
||||||
|
cc_delivery => {
|
||||||
|
host => $i->cc_delivery_host,
|
||||||
|
port => $i->cc_delivery_port,
|
||||||
|
}
|
||||||
|
};
|
||||||
|
}
|
||||||
|
} catch($e) {
|
||||||
|
die SOAP::Fault
|
||||||
|
->faultcode('Server.Internal')
|
||||||
|
->faultstring($e);
|
||||||
|
}
|
||||||
|
return \@interceptions;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
1;
|
||||||
|
|
||||||
|
# vim: set tabstop=4 expandtab:
|
||||||
@ -0,0 +1,28 @@
|
|||||||
|
package NGCP::Panel::Form::Intercept::Authentication;
|
||||||
|
|
||||||
|
use HTML::FormHandler::Moose;
|
||||||
|
extends 'HTML::FormHandler';
|
||||||
|
|
||||||
|
has_field 'username' => (
|
||||||
|
type => 'Text',
|
||||||
|
label => 'username',
|
||||||
|
required => 1,
|
||||||
|
);
|
||||||
|
|
||||||
|
has_field 'password' => (
|
||||||
|
type => 'Text',
|
||||||
|
label => 'password',
|
||||||
|
required => 1,
|
||||||
|
);
|
||||||
|
|
||||||
|
has_field 'type' => (
|
||||||
|
type => 'Select',
|
||||||
|
label => 'type',
|
||||||
|
required => 1,
|
||||||
|
options => [
|
||||||
|
{ value => 'admin', 'label' => 'admin' },
|
||||||
|
],
|
||||||
|
);
|
||||||
|
|
||||||
|
1;
|
||||||
|
# vim: set tabstop=4 expandtab:
|
||||||
@ -0,0 +1,88 @@
|
|||||||
|
package NGCP::Panel::Form::Intercept::Create;
|
||||||
|
|
||||||
|
use HTML::FormHandler::Moose;
|
||||||
|
extends 'HTML::FormHandler';
|
||||||
|
|
||||||
|
has_field 'LIID' => (
|
||||||
|
type => 'PosInteger',
|
||||||
|
label => 'LIID',
|
||||||
|
required => 1,
|
||||||
|
);
|
||||||
|
|
||||||
|
has_field 'number' => (
|
||||||
|
type => 'Text',
|
||||||
|
label => 'number',
|
||||||
|
required => 1,
|
||||||
|
);
|
||||||
|
|
||||||
|
has_field 'cc_required' => (
|
||||||
|
type => 'PosInteger',
|
||||||
|
label => 'cc_required',
|
||||||
|
range_start => 0,
|
||||||
|
range_end => 1,
|
||||||
|
required => 1,
|
||||||
|
);
|
||||||
|
|
||||||
|
has_field 'iri_delivery' => (
|
||||||
|
type => 'Compound',
|
||||||
|
label => 'iri_delivery',
|
||||||
|
required => 1,
|
||||||
|
validate_when_empty => 1,
|
||||||
|
);
|
||||||
|
|
||||||
|
has_field 'iri_delivery.host' => (
|
||||||
|
type => 'Text',
|
||||||
|
label => 'iri_delivery.host',
|
||||||
|
required => 1,
|
||||||
|
);
|
||||||
|
|
||||||
|
has_field 'iri_delivery.port' => (
|
||||||
|
type => 'PosInteger',
|
||||||
|
label => 'iri_delivery.port',
|
||||||
|
required => 1,
|
||||||
|
range_start => 1,
|
||||||
|
range_end => 65535,
|
||||||
|
);
|
||||||
|
|
||||||
|
has_field 'iri_delivery.username' => (
|
||||||
|
type => 'Text',
|
||||||
|
label => 'iri_delivery.username',
|
||||||
|
required => 0,
|
||||||
|
);
|
||||||
|
|
||||||
|
has_field 'iri_delivery.password' => (
|
||||||
|
type => 'Text',
|
||||||
|
label => 'iri_delivery.password',
|
||||||
|
required => 0,
|
||||||
|
);
|
||||||
|
|
||||||
|
has_field 'cc_delivery' => (
|
||||||
|
type => 'Compound',
|
||||||
|
required => 0,
|
||||||
|
validate_when_empty => 0,
|
||||||
|
);
|
||||||
|
|
||||||
|
has_field 'cc_delivery.host' => (
|
||||||
|
type => 'Text',
|
||||||
|
label => 'cc_delivery.host',
|
||||||
|
required => 1,
|
||||||
|
);
|
||||||
|
|
||||||
|
has_field 'cc_delivery.port' => (
|
||||||
|
type => 'PosInteger',
|
||||||
|
label => 'cc_delivery.port',
|
||||||
|
required => 1,
|
||||||
|
range_start => 1,
|
||||||
|
range_end => 65535,
|
||||||
|
);
|
||||||
|
|
||||||
|
|
||||||
|
sub valprint {
|
||||||
|
my($self, $field) = @_;
|
||||||
|
my $c = $field->form->ctx;
|
||||||
|
|
||||||
|
$c->log->info("validating " . $field->name . "=" . $field->value);
|
||||||
|
}
|
||||||
|
|
||||||
|
1;
|
||||||
|
# vim: set tabstop=4 expandtab:
|
||||||
@ -0,0 +1,13 @@
|
|||||||
|
package NGCP::Panel::Form::Intercept::Delete;
|
||||||
|
|
||||||
|
use HTML::FormHandler::Moose;
|
||||||
|
extends 'HTML::FormHandler';
|
||||||
|
|
||||||
|
has_field 'id' => (
|
||||||
|
type => 'PosInteger',
|
||||||
|
label => 'id',
|
||||||
|
required => 1,
|
||||||
|
);
|
||||||
|
|
||||||
|
1;
|
||||||
|
# vim: set tabstop=4 expandtab:
|
||||||
@ -0,0 +1,82 @@
|
|||||||
|
package NGCP::Panel::Form::Intercept::Update;
|
||||||
|
|
||||||
|
use HTML::FormHandler::Moose;
|
||||||
|
extends 'HTML::FormHandler';
|
||||||
|
|
||||||
|
has_field 'id' => (
|
||||||
|
type => 'PosInteger',
|
||||||
|
label => 'id',
|
||||||
|
required => 1,
|
||||||
|
);
|
||||||
|
|
||||||
|
has_field 'data' => (
|
||||||
|
type => 'Compound',
|
||||||
|
label => 'data',
|
||||||
|
required => 1,
|
||||||
|
validate_when_empty => 1,
|
||||||
|
);
|
||||||
|
|
||||||
|
has_field 'data.cc_required' => (
|
||||||
|
type => 'PosInteger',
|
||||||
|
label => 'data.cc_required',
|
||||||
|
range_start => 0,
|
||||||
|
range_end => 1,
|
||||||
|
required => 1,
|
||||||
|
);
|
||||||
|
|
||||||
|
has_field 'data.iri_delivery' => (
|
||||||
|
type => 'Compound',
|
||||||
|
label => 'data.iri_delivery',
|
||||||
|
required => 1,
|
||||||
|
validate_when_empty => 1,
|
||||||
|
);
|
||||||
|
|
||||||
|
has_field 'data.iri_delivery.host' => (
|
||||||
|
type => 'Text',
|
||||||
|
label => 'data.iri_delivery.host',
|
||||||
|
required => 1,
|
||||||
|
);
|
||||||
|
|
||||||
|
has_field 'data.iri_delivery.port' => (
|
||||||
|
type => 'PosInteger',
|
||||||
|
label => 'data.iri_delivery.port',
|
||||||
|
required => 1,
|
||||||
|
range_start => 1,
|
||||||
|
range_end => 65535,
|
||||||
|
);
|
||||||
|
|
||||||
|
has_field 'data.iri_delivery.username' => (
|
||||||
|
type => 'Text',
|
||||||
|
label => 'data.iri_delivery.username',
|
||||||
|
required => 0,
|
||||||
|
);
|
||||||
|
|
||||||
|
has_field 'data.iri_delivery.password' => (
|
||||||
|
type => 'Text',
|
||||||
|
label => 'data.iri_delivery.password',
|
||||||
|
required => 0,
|
||||||
|
);
|
||||||
|
|
||||||
|
has_field 'data.cc_delivery' => (
|
||||||
|
type => 'Compound',
|
||||||
|
required => 0,
|
||||||
|
validate_when_empty => 0,
|
||||||
|
);
|
||||||
|
|
||||||
|
has_field 'data.cc_delivery.host' => (
|
||||||
|
type => 'Text',
|
||||||
|
label => 'data.cc_delivery.host',
|
||||||
|
required => 1,
|
||||||
|
);
|
||||||
|
|
||||||
|
has_field 'data.cc_delivery.port' => (
|
||||||
|
type => 'PosInteger',
|
||||||
|
label => 'data.cc_delivery.port',
|
||||||
|
required => 1,
|
||||||
|
range_start => 1,
|
||||||
|
range_end => 65535,
|
||||||
|
);
|
||||||
|
|
||||||
|
|
||||||
|
1;
|
||||||
|
# vim: set tabstop=4 expandtab:
|
||||||
@ -0,0 +1,270 @@
|
|||||||
|
<?php
|
||||||
|
|
||||||
|
require_once 'nusoap/nusoap.php';
|
||||||
|
#$wsdl = 'https://10.15.17.189:1443/SOAP/Intercept.wsdl';
|
||||||
|
$wsdl = 'https://192.168.0.126:1443/SOAP/Intercept.wsdl';
|
||||||
|
|
||||||
|
$client = new nusoap_client($wsdl, true);
|
||||||
|
$client->setCredentials('testuser', 'testpass', 'basic');
|
||||||
|
$error = $client->getError();
|
||||||
|
if($error) {
|
||||||
|
echo "Error: " . $error;
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
echo "Fetched wsdl, starting tasks\n";
|
||||||
|
|
||||||
|
$res = $client->call('create_interception',
|
||||||
|
array(
|
||||||
|
'authentication' => array(
|
||||||
|
'username' => 'intercept',
|
||||||
|
'password' => 'secret',
|
||||||
|
'type' => 'admin'
|
||||||
|
),
|
||||||
|
'parameters' => array(
|
||||||
|
'LIID' => '1234',
|
||||||
|
'number' => '439991001',
|
||||||
|
'cc_required' => 0,
|
||||||
|
'iri_delivery' => array(
|
||||||
|
'host' => '1.2.3.4',
|
||||||
|
'port' => 1234,
|
||||||
|
),
|
||||||
|
)
|
||||||
|
)
|
||||||
|
);
|
||||||
|
echo "Request:";
|
||||||
|
echo $client->request;
|
||||||
|
echo "\n";
|
||||||
|
echo "Response:";
|
||||||
|
echo $client->response;
|
||||||
|
echo "\n\n\n";
|
||||||
|
|
||||||
|
if($client->fault) {
|
||||||
|
echo "Fault";
|
||||||
|
print_r($res);
|
||||||
|
exit;
|
||||||
|
} else {
|
||||||
|
$error = $client->getError();
|
||||||
|
if($error) {
|
||||||
|
echo "Server Error: " . $error;
|
||||||
|
exit;
|
||||||
|
} else {
|
||||||
|
echo "Result:";
|
||||||
|
echo $res;
|
||||||
|
echo "\n\n\n";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
$res = $client->call('update_interception',
|
||||||
|
array(
|
||||||
|
'authentication' => array(
|
||||||
|
'username' => 'intercept',
|
||||||
|
'password' => 'secret',
|
||||||
|
'type' => 'admin'
|
||||||
|
),
|
||||||
|
'parameters' => array(
|
||||||
|
'id' => 1,
|
||||||
|
'data' => array(
|
||||||
|
'cc_required' => 1,
|
||||||
|
'iri_delivery' => array(
|
||||||
|
'host' => '1.2.3.5',
|
||||||
|
'port' => 1234,
|
||||||
|
),
|
||||||
|
'cc_delivery' => array(
|
||||||
|
'host' => '1.2.3.6',
|
||||||
|
'port' => 1236,
|
||||||
|
)
|
||||||
|
)
|
||||||
|
)
|
||||||
|
)
|
||||||
|
);
|
||||||
|
echo "Request:";
|
||||||
|
echo $client->request;
|
||||||
|
echo "\n";
|
||||||
|
echo "Response:";
|
||||||
|
echo $client->response;
|
||||||
|
echo "\n\n\n";
|
||||||
|
|
||||||
|
if($client->fault) {
|
||||||
|
echo "Fault";
|
||||||
|
print_r($res);
|
||||||
|
exit;
|
||||||
|
} else {
|
||||||
|
$error = $client->getError();
|
||||||
|
if($error) {
|
||||||
|
echo "Server Error: " . $error;
|
||||||
|
exit;
|
||||||
|
} else {
|
||||||
|
echo "Result:";
|
||||||
|
echo $res;
|
||||||
|
echo "\n\n\n";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
$res = $client->call('get_interceptions_by_liid',
|
||||||
|
array(
|
||||||
|
'authentication' => array(
|
||||||
|
'username' => 'administrator',
|
||||||
|
'password' => 'administrator',
|
||||||
|
'type' => 'admin'
|
||||||
|
),
|
||||||
|
'parameters' => array(
|
||||||
|
'LIID' => 1234
|
||||||
|
)
|
||||||
|
)
|
||||||
|
);
|
||||||
|
echo "Request:";
|
||||||
|
echo $client->request;
|
||||||
|
echo "\n";
|
||||||
|
echo "Response:";
|
||||||
|
echo $client->response;
|
||||||
|
echo "\n\n\n";
|
||||||
|
|
||||||
|
if($client->fault) {
|
||||||
|
echo "Fault";
|
||||||
|
print_r($res);
|
||||||
|
} else {
|
||||||
|
$error = $client->getError();
|
||||||
|
if($error) {
|
||||||
|
echo "Server Error: " . $error;
|
||||||
|
} else {
|
||||||
|
echo "Result:";
|
||||||
|
print_r($res);
|
||||||
|
echo "\n\n\n";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
$res = $client->call('delete_interception',
|
||||||
|
array(
|
||||||
|
'authentication' => array(
|
||||||
|
'username' => 'administrator',
|
||||||
|
'password' => 'administrator',
|
||||||
|
'type' => 'admin'
|
||||||
|
),
|
||||||
|
'parameters' => array(
|
||||||
|
'id' => 1
|
||||||
|
)
|
||||||
|
)
|
||||||
|
);
|
||||||
|
echo "Request:";
|
||||||
|
echo $client->request;
|
||||||
|
echo "\n";
|
||||||
|
echo "Response:";
|
||||||
|
echo $client->response;
|
||||||
|
echo "\n\n\n";
|
||||||
|
|
||||||
|
if($client->fault) {
|
||||||
|
echo "Fault";
|
||||||
|
print_r($res);
|
||||||
|
} else {
|
||||||
|
$error = $client->getError();
|
||||||
|
if($error) {
|
||||||
|
echo "Server Error: " . $error;
|
||||||
|
} else {
|
||||||
|
echo "Result:";
|
||||||
|
print_r($res);
|
||||||
|
echo "\n\n\n";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
$res = $client->call('get_interception_by_id',
|
||||||
|
array(
|
||||||
|
'authentication' => array(
|
||||||
|
'username' => 'administrator',
|
||||||
|
'password' => 'administrator',
|
||||||
|
'type' => 'admin'
|
||||||
|
),
|
||||||
|
'parameters' => array(
|
||||||
|
'id' => 1
|
||||||
|
)
|
||||||
|
)
|
||||||
|
);
|
||||||
|
echo "Request:";
|
||||||
|
echo $client->request;
|
||||||
|
echo "\n";
|
||||||
|
echo "Response:";
|
||||||
|
echo $client->response;
|
||||||
|
echo "\n\n\n";
|
||||||
|
|
||||||
|
if($client->fault) {
|
||||||
|
echo "Fault";
|
||||||
|
print_r($res);
|
||||||
|
} else {
|
||||||
|
$error = $client->getError();
|
||||||
|
if($error) {
|
||||||
|
echo "Server Error: " . $error;
|
||||||
|
} else {
|
||||||
|
echo "Result:";
|
||||||
|
print_r($res);
|
||||||
|
echo "\n\n\n";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
$res = $client->call('get_interceptions_by_number',
|
||||||
|
array(
|
||||||
|
'authentication' => array(
|
||||||
|
'username' => 'administrator',
|
||||||
|
'password' => 'administrator',
|
||||||
|
'type' => 'admin'
|
||||||
|
),
|
||||||
|
'parameters' => array(
|
||||||
|
'number' => '439991001'
|
||||||
|
)
|
||||||
|
)
|
||||||
|
);
|
||||||
|
echo "Request:";
|
||||||
|
echo $client->request;
|
||||||
|
echo "\n";
|
||||||
|
echo "Response:";
|
||||||
|
echo $client->response;
|
||||||
|
echo "\n\n\n";
|
||||||
|
|
||||||
|
if($client->fault) {
|
||||||
|
echo "Fault";
|
||||||
|
print_r($res);
|
||||||
|
} else {
|
||||||
|
$error = $client->getError();
|
||||||
|
if($error) {
|
||||||
|
echo "Server Error: " . $error;
|
||||||
|
} else {
|
||||||
|
echo "Result:";
|
||||||
|
print_r($res);
|
||||||
|
echo "\n\n\n";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
$res = $client->call('get_interceptions',
|
||||||
|
array(
|
||||||
|
'authentication' => array(
|
||||||
|
'username' => 'administrator',
|
||||||
|
'password' => 'administrator',
|
||||||
|
'type' => 'admin'
|
||||||
|
),
|
||||||
|
'parameters' => array(
|
||||||
|
)
|
||||||
|
)
|
||||||
|
);
|
||||||
|
echo "Request:";
|
||||||
|
echo $client->request;
|
||||||
|
echo "\n";
|
||||||
|
echo "Response:";
|
||||||
|
echo $client->response;
|
||||||
|
echo "\n\n\n";
|
||||||
|
|
||||||
|
if($client->fault) {
|
||||||
|
echo "Fault";
|
||||||
|
print_r($res);
|
||||||
|
} else {
|
||||||
|
$error = $client->getError();
|
||||||
|
if($error) {
|
||||||
|
echo "Server Error: " . $error;
|
||||||
|
} else {
|
||||||
|
echo "Result:";
|
||||||
|
print_r($res);
|
||||||
|
echo "\n\n\n";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
?>
|
||||||
Loading…
Reference in new issue