API de licence logicielle – Exemple avec Perl

Ce document est un sous-ensemble du document API de licence de logiciel, qui répertorie toutes les fonctionnalités disponibles via l'API. Ce qui suit est un exemple de code montrant comment implémenter ces fonctionnalités avec Perl.

Requête

use strict;
use warnings;

use LWP::UserAgent;
use CGI;

my $edd_action = 'check_license'; # Valid actions are activate_license, deactivate_license, get_version, check_license
my $license    = '';
my $item_id    = ''; # The ID of the Download on your website
my $url        = 'example.org'; # If you have disabled URL checking in the settings, you do not need this value

my $api = 'https://domain.com/';

my $ua       = LWP::UserAgent->new();
my $response = $ua->post( $api, { 'edd_action' => $edd_action, 'license' => $license, 'item_id' => $item_id, 'url' => $url } );
my $content  = $response->decoded_content();

my $cgi = CGI->new();
# This prints the resposne from the API, you'll need to validate the data from there using the
# HTTP status headers and the `success` response from the API
print $content;

Réponse

Une réponse à la requête ci-dessus serait une chaîne formatée en JSON qui ressemblerait à ceci :

{
	"license": "valid",
	"item_name": "EDD Product name",
	"expires": "2014-10-23 00:00:00",
	"payment_id": 54224,
	"customer_name": "John Doe",
	"customer_email": "[email protected]"
}