Welcome to the Kelkoo Group Customer Service

Signing URL – Perl

This example illustrates how to sign request URL’s using Perl.

Definition

Name Type Summary
$urlDomain string (required) URL of the service (ex: http://uk.shoppingapis.kelkoo.com)
$urlPath string (required) Path and query for the service (ex: /V3/productSearch?query=ipod)
$partner string (required) Affiliate Id
$key string (required) Affiliate secret key

Please note that your query must be encoded if you use characters with accents.

Sample Code

 use Digest::MD5 qw(md5_base64);
 use URI::Escape;
sub UrlSigner {
my ($urlDomain, $urlPath, $partner, $key) = @_;
# get the timestamp
 my $time = time;
# replace " " by "+" in url path
 $urlPath =~ s/s/+/g;
# format URL
 my $URLtmp = $urlPath . "&aid=" . $partner . "&timestamp=" . $time;
my $tokken = md5_base64($URLtmp . $key) . '--';
 $tokken =~ tr/+/=/._-/;
return $urlDomain . $URLtmp . "&hash=" . $tokken;
 }
// Simply call the function to generate the appropriate URL (tracking "1234" and key "myPartnerKey")
my $query = UrlSigner("http://ru.shoppingapis.kelkoo.com", "/V3/productSearch?query=".uri_escape("Мода")."&sort=default_ranking&start=1&results=20&show_products=1&show_subcategories=1","1234", "myPartnerKey");