Software Licensing API – Beispiel mit Perl

Dieses Dokument ist ein Teilsatz des Dokuments Software Licensing API, das alle über die API verfügbaren Funktionen auflistet. Das Folgende ist Beispielcode, der zeigt, wie diese Funktionen mit Perl implementiert werden.

Anfrage

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;

Antwort

Eine Antwort auf die obige Abfrage wäre ein im JSON-Format formatierter String, der ungefähr so aussehen würde:

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