Fix a Perl script bug for didww_ordercreate DIDww API call

In Progress

I am in the process of creating a Perl script on Linux CentOS 6.3 that will make use of the [url removed, login to view] API which is documented here:

[url removed, login to view]

I am able to connect and use some of the function calls such as didww_getdidwwcountries and didww_getdidwwcities

but I am unable to find my way with didww_ordercreate.

The function call is documented here:

[url removed, login to view]

This is what I have up so far. I need that function to accept 4 parameters, make the call, and print to STDERR the

results that is being returned by their API. This API call presently doesn't work as it seems to be returning nothing

and I suspect that it is because of the way the %params array is defined and pass to the API. It can also be something else.

Apart from debugging this problem I also need error handling to be implemented. The errors codes are listed here:

[url removed, login to view]

It's just a matter of printing to STDERR the error code number when one is found.

So two little things to be done, here is the script. If there is a better way to do it

then I am fine with it.

-------------------------------- script -----------------------------

#!/usr/bin/perl

use SOAP::Lite;

use Digest::SHA1 qw(sha1_hex);

use Digest::MD5 'md5_hex';

use Data::Dumper qw(Dumper);

$username = '';

$key = '';

my $auth_string = sha1_hex($username.$key.'sandbox');

my $url = '[url removed, login to view]';

my $soap = SOAP::Lite->new();

my $service = $soap->service('[url removed, login to view]');

# Function that works well

sub DIDww_GetAllCountries() {

my @res = $service->didww_getdidwwcountries($auth_string,'');

foreach $e (@res) {

for $i (0 .. $#{$e}) {

print STDERR $e->[$i]->{country_name} . " ";

print STDERR $e->[$i]->{country_prefix} . " ";

print STDERR $e->[$i]->{country_iso} . "\n";

}

}

}

# Problematic function

sub DIDww_OrderDID() {

my ($orderid, $ISO, $cityprefix, $cityid) = @_;

my %params = ('map_type', 'URI',

'map_proto', 'SIP',

'map_detail', '[url removed, login to view]',

'map_pref_server', 0,

'map_itsp_id', '',

'cli_format', 'raw',

'cli_prefix', '');

my $res = $service->didww_ordercreate($auth_string, '64', $ISO, $cityprefix, 1, \%params, '0', md5_hex($orderid), $cityid, 1);

foreach $e (@res) {

for $i (0 .. $#{$e}) {

print STDERR $e->[$i]->{result} . " ";

print STDERR $e->[$i]->{country_name} . " ";

print STDERR $e->[$i]->{city_name} . " ";

print STDERR $e->[$i]->{did_number} . " ";

print STDERR $e->[$i]->{did_status} . " ";

print STDERR $e->[$i]->{did_timeleft} . " ";

print STDERR $e->[$i]->{did_expire_date_gmt} . " ";

print STDERR $e->[$i]->{order_id} . " ";

print STDERR $e->[$i]->{order_status} . " ";

print STDERR $e->[$i]->{did_mapping_format} . " ";

print STDERR $e->[$i]->{did_setup} . " ";

print STDERR $e->[$i]->{did_monthly} . " ";

print STDERR $e->[$i]->{did_period} . " ";

print STDERR $e->[$i]->{prepaid_balance} . "\n";

}

}

}

&DIDww_GetCountries();

&DIDww_OrderDID('1042','AT','1','444');

exit(0);

Skills: Debugging, Linux, Perl

See more: perl fix, didww, net fix com, find perl, debugging service, code debugging service, soap api sandbox, perl linux, FIX API, fix a script, fix a c++ script, find bug with my, call and, net perl, php api soap, call function, call url script, centos perl, php connect soap, sandbox centos, centos iso, perl script api call, sip digest, net soap api

Project ID: #4336169

Awarded to:

cmax4u

Greetings, Have strong experience with SOAP API integration and debug with the perl. Regards Max

$80 USD in 3 days
(34 Reviews)
5.3

9 freelancers are bidding on average $132 for this job

linuxfreak1985

Hi there, i am very interested to complete this project. please see my past reviews lets complete this project

$250 USD in 4 days
(127 Reviews)
6.5
gangabass

I have huge Perl experience and I'm sure you'll be satisfied with my work. See PMB for details.

$90 USD in 2 days
(134 Reviews)
5.8
rexhauser

Hello, I would like to help you to fix this. I have done several Perl projects.

$100 USD in 2 days
(32 Reviews)
4.2
tcrnicki

With 15+ experience with Perl I can solve your problem. Check PM for a bug I see in your code.

$200 USD in 2 days
(1 Review)
3.5
silvioq

Hi! I'm expert programmer from Argentina and I can help you with API. Check my PM for more information. Yours, Silvio

$90 USD in 3 days
(5 Reviews)
2.5
listmystuff

Hi I have 10 years experience with Perl, and have been using SOAP/XML for over 4 years. I have read the project details and can complete this in a timely fashion. Regards Rob

$100 USD in 3 days
(2 Reviews)
2.4
sureshvv

Can help you with this

$200 USD in 2 days
(0 Reviews)
0.0
recn

i can debug with perl. send pm for details.

$80 USD in 1 day
(0 Reviews)
0.0
awmanoj

I can help you with this. I am an experience software developer and have expertise with Perl. - Manoj

$100 USD in 2 days
(0 Reviews)
0.0