This is a Perl Script for a subscription.
The script works as far as admin and members areas but I cannot get it to work with the IPN.
It is not reading the ap_securitycode and giving me access denied
This is how the ap_securitycode variable is declared in the config script
$alertpaysecretword = "xxxxxxxxxxxxxxxx"; (my actual code is where the xxxs are)
This is where it is checking for the ap_securitycode.
if (($purchase_status eq "SUCCESS")&&($alertpaysecretword eq "$ap_securitycode")){
$paidmembership = "1";
$user_status = "Paid Membership";
}
elsif (($purchase_status ne "SUCCESS")&&($alowfree eq "1")){
$paidmembership = "0";
$amount = 0;
$user_status = "Free Membership";
}
else {
print $q->header;
print("<br><br><h2><center>Access Denied</center></h2>");
exit;
}