API per la gestione delle licenze software – Esempio con Perl

Questo documento è un sottoinsieme del documento API per la gestione delle licenze software, che elenca tutte le funzionalità disponibili tramite l'API. Di seguito è riportato codice di esempio che illustra come implementare tali funzionalità con Perl.

Richiesta

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;

Risposta

Una risposta alla query precedente sarebbe una stringa in formato JSON che assomiglierebbe a questo:

{
	"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]"
}