Find Jobs
Hire Freelancers

Fix a Perl script bug for didww_ordercreate DIDww API call

$30-250 USD

Käynnissä
Julkaistu noin 11 vuotta sitten

$30-250 USD

Maksettu toimituksen yhteydessä
I am in the process of creating a Perl script on Linux CentOS 6.3 that will make use of the [login to view URL] API which is documented here: [login to view URL] 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: [login to view URL] 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: [login to view URL] 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 = '[login to view URL]'; my $soap = SOAP::Lite->new(); my $service = $soap->service('[login to view URL]'); # 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', '[login to view URL]', '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);
Projektin tunnus (ID): 4336169

Tietoa projektista

9 ehdotukset
Etäprojekti
Aktiivinen 11 vuotta sitten

Haluatko ansaita rahaa?

Freelancerin tarjouskilpailun edut

Aseta budjettisi ja aikataulu
Saa maksu työstäsi
Kuvaile ehdotustasi
Rekisteröinti ja töihin tarjoaminen on ilmaista
Myönnetty käyttäjälle:
Käyttäjän avatar
Greetings, Have strong experience with SOAP API integration and debug with the perl. Regards Max
$80 USD 3 päivässä
4,8 (34 arvostelua)
5,3
5,3
9 freelancerit tarjoavat keskimäärin $132 USD tätä projektia
Käyttäjän avatar
Hi there, i am very interested to complete this project. please see my past reviews lets complete this project
$250 USD 4 päivässä
4,9 (127 arvostelua)
6,5
6,5
Käyttäjän avatar
I have huge Perl experience and I'm sure you'll be satisfied with my work. See PMB for details.
$90 USD 2 päivässä
4,9 (134 arvostelua)
5,8
5,8
Käyttäjän avatar
Hello, I would like to help you to fix this. I have done several Perl projects.
$100 USD 2 päivässä
5,0 (32 arvostelua)
4,2
4,2
Käyttäjän avatar
With 15+ experience with Perl I can solve your problem. Check PM for a bug I see in your code.
$200 USD 2 päivässä
5,0 (1 arvostelu)
3,5
3,5
Käyttäjän avatar
Hi! I'm expert programmer from Argentina and I can help you with API. Check my PM for more information. Yours, Silvio
$90 USD 3 päivässä
5,0 (5 arvostelua)
2,5
2,5
Käyttäjän avatar
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 3 päivässä
5,0 (2 arvostelua)
2,4
2,4
Käyttäjän avatar
I can help you with this. I am an experience software developer and have expertise with Perl. - Manoj
$100 USD 2 päivässä
0,0 (0 arvostelua)
0,0
0,0
Käyttäjän avatar
i can debug with perl. send pm for details.
$80 USD 1 päivässä
0,0 (0 arvostelua)
0,0
0,0
Käyttäjän avatar
Can help you with this
$200 USD 2 päivässä
0,0 (0 arvostelua)
0,0
0,0

Tietoja asiakkaasta

Maan CANADA lippu
Lachine, Canada
5,0
33
Maksutapa vahvistettu
Liittynyt helmik. 25, 2008

Asiakkaan vahvistus

Kiitos! Olemme lähettäneet sinulle sähköpostitse linkin, jolla voit lunastaa ilmaisen krediittisi.
Jotain meni pieleen lähetettäessä sähköpostiasi. Yritä uudelleen.
Rekisteröitynyttä käyttäjää Ilmoitettua työtä yhteensä
Freelancer ® is a registered Trademark of Freelancer Technology Pty Limited (ACN 142 189 759)
Copyright © 2024 Freelancer Technology Pty Limited (ACN 142 189 759)
Ladataan esikatselua
Lupa myönnetty Geolocation.
Kirjautumisistuntosi on vanhentunut ja sinut on kirjattu ulos. Kirjaudu uudelleen sisään.