Software Licensing API – Voorbeeld met Perl

Dit document is een subset van het Software Licensing API document, dat alle via de API beschikbare functies opsomt. Het volgende is voorbeeldcode die laat zien hoe deze functies met Perl kunnen worden geïmplementeerd.

Verzoek

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;

Reactie

Een reactie op de bovenstaande query zou een JSON-geformatteerde string zijn die er ongeveer zo uitziet:

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