Find Jobs
Hire Freelancers

Fix a Perl script bug for didww_ordercreate DIDww API call

$30-250 USD

进行中
已发布大约 11 年前

$30-250 USD

货到付款
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);
项目 ID: 4336169

关于此项目

9提案
远程项目
活跃11 年前

想赚点钱吗?

在Freelancer上竞价的好处

设定您的预算和时间范围
为您的工作获得报酬
简要概述您的提案
免费注册和竞标工作
颁发给:
用户头像
Greetings, Have strong experience with SOAP API integration and debug with the perl. Regards Max
$80 USD 在3天之内
4.8 (34条评论)
5.3
5.3
9威客以平均价$132 USD来参与此工作竞价
用户头像
Hi there, i am very interested to complete this project. please see my past reviews lets complete this project
$250 USD 在4天之内
4.9 (127条评论)
6.5
6.5
用户头像
I have huge Perl experience and I'm sure you'll be satisfied with my work. See PMB for details.
$90 USD 在2天之内
4.9 (134条评论)
5.8
5.8
用户头像
Hello, I would like to help you to fix this. I have done several Perl projects.
$100 USD 在2天之内
5.0 (32条评论)
4.2
4.2
用户头像
With 15+ experience with Perl I can solve your problem. Check PM for a bug I see in your code.
$200 USD 在2天之内
5.0 (1条评论)
3.5
3.5
用户头像
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天之内
5.0 (5条评论)
2.5
2.5
用户头像
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天之内
5.0 (2条评论)
2.4
2.4
用户头像
I can help you with this. I am an experience software developer and have expertise with Perl. - Manoj
$100 USD 在2天之内
0.0 (0条评论)
0.0
0.0
用户头像
i can debug with perl. send pm for details.
$80 USD 在1天之内
0.0 (0条评论)
0.0
0.0
用户头像
Can help you with this
$200 USD 在2天之内
0.0 (0条评论)
0.0
0.0

关于客户

CANADA的国旗
Lachine, Canada
5.0
33
付款方式已验证
会员自2月 25, 2008起

客户认证

谢谢!我们已通过电子邮件向您发送了索取免费积分的链接。
发送电子邮件时出现问题。请再试一次。
已注册用户 发布工作总数
Freelancer ® is a registered Trademark of Freelancer Technology Pty Limited (ACN 142 189 759)
Copyright © 2024 Freelancer Technology Pty Limited (ACN 142 189 759)
加载预览
授予地理位置权限。
您的登录会话已过期而且您已经登出,请再次登录。