In perl, it could be something like this:
#!/usr/bin/perl use strict; use LWP::UserAgent; # Set values for $paypal_api_user, $paypal_api_pwd and # $paypal_api_signature from your paypal profile my $paypal_api_user = '....'; my $paypal_api_pwd = '.....'; my $paypal_api_signature = '.....'; # Set subscription id my $subscr_id = '....'; my $params = { 'USER' => $paypal_api_user, 'PWD' => $paypal_api_pwd, 'SIGNATURE' => $paypal_api_signature, 'VERSION' => '84.0', 'METHOD' => 'ManageRecurringPaymentsProfileStatus', 'PROFILEID' => $subscr_id, 'ACTION' => 'Cancel', }; my $ua = LWP::UserAgent->new(); my $res = $ua->post('https://api-3t.paypal.com/nvp', $params); if ($res->is_error()) { # HTTP error } else { # Success }
Alexey
source share