Bonjour à tous, je m'adresse ici aux développeurs qui ont une bonne
expérience en language Perl.
Voilà j'ai du code Perl que je voudrais traduire en Php, merci !
use Test::More qw( no_plan );
use LWP::UserAgent;
use URI;
use server name::API::Crypt qw( encrypt decrypt );
my $server = "";# insert your server name here
my $partner_code = ""; # insert your partner code here
my $api_key = "..."; # insert your partner api key here
my $iv = "1234567890123456"; # on live system, this should be random 16 char IV
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(
GET => "http://$server/partner/$partner_code/api/version"
);
my $res = $ua->request($req);
ok( $res->is_success, "HTTP request for version was successful" )
or die;
is( $res->content_type, "application/x-www-form-urlencoded", "Content-type is correct" );
is( $res->content, "version=4.231&ec=0", "Content is correct" );
$req = HTTP::Request->new(
POST => "http://$server/partner/$partner_code/api/echoArgs"
);
$req->content( encrypt( $api_key, $iv, 'abc', '123', 'oh my god' ) );
$res = $ua->request($req);
ok( $res->is_success, "HTTP request to echoArgs was successful" )
or die;
is( $res->content_type, "text/plain", "Content-type is correct" );
my $uri = URI->new();
$uri->query( $res->content );
is_deeply( { $uri->query_form }, { ec => 0, args => "abc,123,oh my god" }, "Arguments have been correctly echoed" );
expérience en language Perl.
Voilà j'ai du code Perl que je voudrais traduire en Php, merci !
use Test::More qw( no_plan );
use LWP::UserAgent;
use URI;
use server name::API::Crypt qw( encrypt decrypt );
my $server = "";# insert your server name here
my $partner_code = ""; # insert your partner code here
my $api_key = "..."; # insert your partner api key here
my $iv = "1234567890123456"; # on live system, this should be random 16 char IV
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(
GET => "http://$server/partner/$partner_code/api/version"
);
my $res = $ua->request($req);
ok( $res->is_success, "HTTP request for version was successful" )
or die;
is( $res->content_type, "application/x-www-form-urlencoded", "Content-type is correct" );
is( $res->content, "version=4.231&ec=0", "Content is correct" );
$req = HTTP::Request->new(
POST => "http://$server/partner/$partner_code/api/echoArgs"
);
$req->content( encrypt( $api_key, $iv, 'abc', '123', 'oh my god' ) );
$res = $ua->request($req);
ok( $res->is_success, "HTTP request to echoArgs was successful" )
or die;
is( $res->content_type, "text/plain", "Content-type is correct" );
my $uri = URI->new();
$uri->query( $res->content );
is_deeply( { $uri->query_form }, { ec => 0, args => "abc,123,oh my god" }, "Arguments have been correctly echoed" );