Пример кода для языка Perl

Для инициализации платежа можно использовать любой метод — IFRAME-форму, HTML-форму, POST-API или выставление счёта через JSON API.
Поэтому начало платежа может обеспечивать и статическая страница, и CGI-скрипт. Но для того, чтобы автоматически обработать событие оплаты,
нужно реализовать возможность принятия POST-оповещений об успешных платежах.

Реализация CGI-скрипта для приёма POST-уведомлений

CGI-скрипт на языке Perl для обработки запросов от PayKeeper об успешных платежах можно реализовать следующим образом:

#!/usr/bin/perl 

use CGI::Carp qw(fatalsToBrowser); 
use CGI qw (:standard); 
use POSIX; 
use lib qw(.); 
use Digest::MD5 qw(md5 md5_hex md5_base64); 
my $ip = $ENV{'REMOTE_ADDR'};
my $time = strftime("%Y-%m-%d %H:%M:%S",localtime);

# Данные из POST-запроса об оплате 
my $id = param('id'); 
my $sum = param('sum'); 
my $clientid = param('clientid'); 
my $orderid = param('orderid'); 
my $key = param('key'); 
my $service_name = param('service_name'); 
my $client_email = param('client_email'); 
my $client_phone = param('client_phone'); 
my $ps_id = param('ps_id'); 
my $batch_date = param('batch_date'); 
my $fop_receipt_key = param('fop_receipt_key'); 
my $bank_id = param('bank_id'); 
my $card_number = param('card_number'); 
my $card_holder = param('card_holder'); 
my $card_expiry = param('card_expiry');

my $secret='ПАРОЛЬ'; 
my $md5hash=md5_hex($id.$sum.$clientid.$orderid.$secret); 
print "Content-type: text/html\n\n"; 

# проверяем у себя хеш 
if ($key eq $md5hash) #(и свои проверки....) 
{ 
  my $hash = md5_hex($id.$secret); 
  my $ret = "OK $hash"; 
  print "$ret"; 
  # простая запись лога для отладки 
  open(FFF,">> /tmp/paykeeperlog.txt"); 
  print FFF "$time IP=$ip Ret=$ret id=$id sum=$sum key=$key, my key is $md5hash <br>\n"; 
  close(FFF); 
} 

exit;

#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);

use CGI qw (:standard);

use POSIX;

use lib qw(.);

use Digest::MD5 qw(md5 md5_hex md5_base64);

my $ip = $ENV{'REMOTE_ADDR'};

my $time = strftime("%Y-%m-%d %H:%M:%S",localtime);

# Данные из POST-запроса об оплате

my $id = param('id');

my $sum = param('sum');

my $clientid = param('clientid');

my $orderid = param('orderid');

my $key = param('key');

my $service_name = param('service_name');

my $client_email = param('client_email');

my $client_phone = param('client_phone');

my $ps_id = param('ps_id');

my $batch_date = param('batch_date');

my $fop_receipt_key = param('fop_receipt_key');

my $bank_id = param('bank_id');

my $card_number = param('card_number');

my $card_holder = param('card_holder');

my $card_expiry = param('card_expiry');

my $secret='ПАРОЛЬ';

my $md5hash=md5_hex($id.$sum.$clientid.$orderid.$secret);

print "Content-type: text/html\n\n";

# проверяем у себя хеш

if ($key eq $md5hash) #(и свои проверки....)

{

my $hash = md5_hex($id.$secret);

my $ret = "OK $hash";

print "$ret";

# простая запись лога для отладки

open(FFF,">> /tmp/paykeeperlog.txt");

print FFF "$time IP=$ip Ret=$ret id=$id sum=$sum key=$key, my key is $md5hash <br>\n";

close(FFF);

}

exit;

Важно отметить, что ответ данного скрипта должен состоять исключительно из строки «OK <хеш>» и ни байтом больше, в противном случае PayKeeper будет считать, что ваш сайт не правильно обработал оповещение об успешном платеже.

Пример кода предоставлен нашим пользователем.