Биллинговая система Nodeny

cat /usr/local/nodeny/logs/lpay_*

11.05.2014 01:02:40 [_lpay.pl(97)]
ip: 54.229.105.178
11.05.2014 01:02:40 [_lpay.pl(116) Db.pm::line(144) Db.pm::sql(113) Db.pm::connect(95)]
Connecting to DBI:mysql:database=bill;host=localhost;port=3306;mysql_connect_timeout=5 : 0.025187 sec
11.05.2014 01:02:40 [_lpay.pl(116) Db.pm::line(144) Db.pm::sql(134) Db.pm::sql(321)]
SELECT *, UNIX_TIMESTAMP() AS t FROM config ORDER BY time DESC LIMIT 1
Строк: 1. Время выполнения sql: 0.0011 сек
11.05.2014 01:02:40 [_lpay.pl(215)]
Received data: signature=keZbGvHq2rjIQpcVKL%2FLsa7qacc%3D&sender_phone=380504549242&transaction_id=40380416&status=wait_secure&order_id=390210&type=buy&descr
iption=%D0%9F%D0%BE%D0%BF%D0%BE%D0%BB%D0%BD%D0%B5%D0%BD%D0%B8%D0%B5+%D0%B1%D0%B0%D0%BB%D0%B0%D0%BD%D1%81%D0%B0+5982+%28%D0%BA%D0%BE%D0%BC%D0%B8%D1%81%D1%81%D
0%B8%D1%8F+1.87+%D0%B3%D1%80%D0%BD%29&currency=UAH&amount=171.87&public_key=i7504989606
11.05.2014 01:02:40 [_lpay.pl(239)]
  amount          = '171.87'
  currency        = 'UAH'
  description     = 'Пополнение баланса 5982 (комиссия 1.87 грн)'
  order_id        = '390210'
  public_key      = 'i7504989606'
  sender_phone    = '380504549242'
  signature       = 'keZbGvHq2rjIQpcVKL/Lsa7qacc='
  status          = 'wait_secure'
  transaction_id  = '40380416'
  type            = 'buy'
11.05.2014 01:02:40 [_lpay.pl(267) Db.pm::select_line(152) Db.pm::line(144) Db.pm::sql(134) Db.pm::sql(321)]
SELECT * FROM pays WHERE id='390210' LIMIT 1
Строк: 1. Время выполнения sql: 0.0005 сек
11.05.2014 01:02:40 [_lpay.pl(284) Db.pm::do(158) Db.pm::sql(134) Db.pm::sql(321)]
UPDATE pays SET category=446, time=UNIX_TIMESTAMP() WHERE category IN (444,445) AND id='390210' LIMIT 1
Строк: 1. Время выполнения sql: 0.0016 сек
11.05.2014 01:02:40 [_lpay.pl(285) _lpay.pl::Error_exit(189)]
Ok
11.05.2014 01:02:40 [_lpay.pl(285) _lpay.pl::Error_exit(191) _lpay.pl::Save_err_log(63) _lpay.pl::Save_log(73)]
Elapsed time: 0.055987 sec

11.05.2014 01:13:26 [_lpay.pl(97)]
ip: 54.229.105.178
11.05.2014 01:13:26 [_lpay.pl(116) Db.pm::line(144) Db.pm::sql(113) Db.pm::connect(95)]
Connecting to DBI:mysql:database=bill;host=localhost;port=3306;mysql_connect_timeout=5 : 0.024343 sec
11.05.2014 01:13:26 [_lpay.pl(116) Db.pm::line(144) Db.pm::sql(134) Db.pm::sql(321)]
SELECT *, UNIX_TIMESTAMP() AS t FROM config ORDER BY time DESC LIMIT 1
Строк: 1. Время выполнения sql: 0.0008 сек
11.05.2014 01:13:26 [_lpay.pl(215)]
Received data: signature=JXYgyarPja60xtll3xfSJ0bxmyQ%3D&sender_phone=380504549242&transaction_id=40380416&status=success&order_id=390210&type=buy&description
=%D0%9F%D0%BE%D0%BF%D0%BE%D0%BB%D0%BD%D0%B5%D0%BD%D0%B8%D0%B5+%D0%B1%D0%B0%D0%BB%D0%B0%D0%BD%D1%81%D0%B0+5982+%28%D0%BA%D0%BE%D0%BC%D0%B8%D1%81%D1%81%D0%B8%D
1%8F+1.87+%D0%B3%D1%80%D0%BD%29&currency=UAH&amount=171.87&public_key=i7504989606
11.05.2014 01:13:26 [_lpay.pl(239)]
  amount          = '171.87'
  currency        = 'UAH'
  description     = 'Пополнение баланса 5982 (комиссия 1.87 грн)'
  order_id        = '390210'
  public_key      = 'i7504989606'
  sender_phone    = '380504549242'
  signature       = 'JXYgyarPja60xtll3xfSJ0bxmyQ='
  status          = 'success'
  transaction_id  = '40380416'
  type            = 'buy'
11.05.2014 01:13:26 [_lpay.pl(267) Db.pm::select_line(152) Db.pm::line(144) Db.pm::sql(134) Db.pm::sql(321)]
SELECT * FROM pays WHERE id='390210' LIMIT 1
Строк: 1. Время выполнения sql: 0.0004 сек
11.05.2014 01:13:26 [_lpay.pl(273) _lpay.pl::__ANON__(48)]
This pay is marked as fail in my system already at /usr/local/www/apache22/cgi-bin/_lpay.pl line 273.

11.05.2014 01:13:26 [_lpay.pl(273) _lpay.pl::__ANON__(49) _lpay.pl::Save_err_log(63) _lpay.pl::Save_log(73)]
Elapsed time: 0.052226 sec

svn log | head -n2

if( $input->{status} =~ /^(wait_secure|wait_accept|wait_lc|processing|cash_wait)$/ )

if( $input->{status} =~ /^(wait_secure|wait_accept|wait_lc|processing|cash_wait|otp_verify)$/ )

perl -c /usr/local/nodeny/cgi-bin/lpay.pl

/usr/local/nodeny/cgi-bin/lpay.pl syntax OK

nodeny@user:/usr/local/nodeny# perl -c /usr/local/nodeny/cgi-bin/lpay.pl
Can't locate XML/Simple.pm in @INC (you may need to install the XML::Simple module) (@INC contains: /usr/local/lib/perl5/site_perl/mach/5.28 /usr/local/lib/perl5/site_perl /usr/local/lib/perl5/5.28/mach /usr/local/lib/perl5/5.28) at /usr/local/nodeny/cgi-bin/lpay.pl line 7.
BEGIN failed--compilation aborted at /usr/local/nodeny/cgi-bin/lpay.pl line 7.

pkg install p5-XML-Simple

Dopfield '_liqpay' does not exists.

================================================================================
04.04.2022 14:10:13 [lpay.pl(99)]
ip: 54.229.105.178
04.04.2022 14:10:13 [lpay.pl(118) Db.pm::line(143) Db.pm::sql(112) Db.pm::connect(94)]
Connecting to DBI:mysql:database=nodeny;host=127.0.0.1;port=3306;mysql_connect_timeout=5 : 0.008043 sec
04.04.2022 14:10:13 [lpay.pl(118) Db.pm::line(143) Db.pm::sql(133) Db.pm::sql(320)]
SELECT *, UNIX_TIMESTAMP() AS t FROM config ORDER BY time DESC LIMIT 1
Строк: 1. Время выполнения sql: 0.0003 сек
04.04.2022 14:10:13 [lpay.pl(217)]
Received data: signature=bWDprdWqjgt%2FYWpZWd7KVeIzA8I%3D&data=eyJwYXltZW50X2lkIjoxOTU0NTE2MTMzLCJhY3Rpb24iOiJwYXkiLCJzdGF0dXMiOiJzdWNjZXNzIiwidmVyc2lvbiI6MywidHlwZSI6ImJ1eSIsInBheXR5cGUiOiJjYXJkIiwicHVibGljX2tleSI6Imk5MzY3NDQzOTA5NiIsImFjcV9pZCI6NDE0OTYzLCJvcmRlcl9pZCI6IjI2NTM1MyIsImxpcXBheV9vcmRlcl9pZCI6IkNKM0xRNFVHMTY0OTA3MDYxMDIyNzM1NSIsImRlc2NyaXB0aW9uIjoi0J%2FQvtC%2F0L7Qu9C90LXQvdC40LUg0YHRh9C10YLQsCAxMzk2OSIsInNlbmRlcl9jYXJkX21hc2syIjoiNDE0OTUxKjI5Iiwic2VuZGVyX2NhcmRfYmFuayI6IlJBSUZGRUlTRU4gQkFOSyBBVkFMIFBKU0MiLCJzZW5kZXJfY2FyZF90eXBlIjoidmlzYSIsInNlbmRlcl9jYXJkX2NvdW50cnkiOjgwNCwiaXAiOiI5MS4yMjUuNDguMiIsImFtb3VudCI6MjEyOC45OSwiY3VycmVuY3kiOiJVQUgiLCJzZW5kZXJfY29tbWlzc2lvbiI6MC4wLCJyZWNlaXZlcl9jb21taXNzaW9uIjowLjAsImFnZW50X2NvbW1pc3Npb24iOjAuMCwiYW1vdW50X2RlYml0IjoyMTI4Ljk5LCJhbW91bnRfY3JlZGl0IjoyMTI4Ljk5LCJjb21taXNzaW9uX2RlYml0IjowLjAsImNvbW1pc3Npb25fY3JlZGl0IjowLjAsImN1cnJlbmN5X2RlYml0IjoiVUFIIiwiY3VycmVuY3lfY3JlZGl0IjoiVUFIIiwic2VuZGVyX2JvbnVzIjowLjAsImFtb3VudF9ib251cyI6MC4wLCJhdXRoY29kZV9kZWJpdCI6IjQ3NTQyOSIsInJybl9kZWJpdCI6IjAwMzI2NzMwNzY0MiIsIm1waV9lY2kiOiI1IiwiaXNfM2RzIjp0cnVlLCJsYW5ndWFnZSI6InJ1IiwiY3JlYXRlX2RhdGUiOjE2NDkwNzAyMjIzMDcsImVuZF9kYXRlIjoxNjQ5MDcwNjEyODU3LCJ0cmFuc2FjdGlvbl9pZCI6MTk1NDUxNjEzMywidGlkIjoiNDYyMDk0NDAyMTE0NTMxIn0%3D
04.04.2022 14:10:13 [lpay.pl(241)]
  data       = 'eyJwYXltZW50X2lkIjoxOTU0NTE2MTMzLCJhY3Rpb24iOiJwYXkiLCJzdGF0dXMiOiJzdWNjZXNzIiwidmVyc2lvbiI6MywidHlwZSI6ImJ1eSIsInBheXR5cGUiOiJjYXJkIiwicHVibGljX2tleSI6Imk5MzY3NDQzOTA5NiIsImFjcV9pZCI6NDE0OTYzLCJvcmRlcl9pZCI6IjI2NTM1MyIsImxpcXBheV9vcmRlcl9pZCI6IkNKM0xRNFVHMTY0OTA3MDYxMDIyNzM1NSIsImRlc2NyaXB0aW9uIjoi0J/QvtC/0L7Qu9C90LXQvdC40LUg0YHRh9C10YLQsCAxMzk2OSIsInNlbmRlcl9jYXJkX21hc2syIjoiNDE0OTUxKjI5Iiwic2VuZGVyX2NhcmRfYmFuayI6IlJBSUZGRUlTRU4gQkFOSyBBVkFMIFBKU0MiLCJzZW5kZXJfY2FyZF90eXBlIjoidmlzYSIsInNlbmRlcl9jYXJkX2NvdW50cnkiOjgwNCwiaXAiOiI5MS4yMjUuNDguMiIsImFtb3VudCI6MjEyOC45OSwiY3VycmVuY3kiOiJVQUgiLCJzZW5kZXJfY29tbWlzc2lvbiI6MC4wLCJyZWNlaXZlcl9jb21taXNzaW9uIjowLjAsImFnZW50X2NvbW1pc3Npb24iOjAuMCwiYW1vdW50X2RlYml0IjoyMTI4Ljk5LCJhbW91bnRfY3JlZGl0IjoyMTI4Ljk5LCJjb21taXNzaW9uX2RlYml0IjowLjAsImNvbW1pc3Npb25fY3JlZGl0IjowLjAsImN1cnJlbmN5X2RlYml0IjoiVUFIIiwiY3VycmVuY3lfY3JlZGl0IjoiVUFIIiwic2VuZGVyX2JvbnVzIjowLjAsImFtb3VudF9ib251cyI6MC4wLCJhdXRoY29kZV9kZWJpdCI6IjQ3NTQyOSIsInJybl9kZWJpdCI6IjAwMzI2NzMwNzY0MiIsIm1waV9lY2kiOiI1IiwiaXNfM2RzIjp0cnVlLCJsYW5ndWFnZSI6InJ1IiwiY3JlYXRlX2RhdGUiOjE2NDkwNzAyMjIzMDcsImVuZF9kYXRlIjoxNjQ5MDcwNjEyODU3LCJ0cmFuc2FjdGlvbl9pZCI6MTk1NDUxNjEzMywidGlkIjoiNDYyMDk0NDAyMTE0NTMxIn0='
  signature  = 'bWDprdWqjgt/YWpZWd7KVeIzA8I='
04.04.2022 14:10:13 [lpay.pl(252) lpay.pl::Error_exit(191)]
public_key required
04.04.2022 14:10:13 [lpay.pl(252) lpay.pl::Error_exit(193) lpay.pl::Save_err_log(65) lpay.pl::Save_log(75)]
Elapsed time: 0.018082 sec

================================================================================

my $form = url->new( -base => "$cfg::lpay_api_url/pay",
    public_key  => $merchant_id,
    signature   => $signature,
    server_url  => $cfg::lpay_return_url,
    result_url  => $result_url,
    amount      => $amt,
    currency    => $cfg::lpay_currency,
    order_id    => $pay_id,
    description => $description,
 );

 eval "use JSON;";
my $form = url->new( -base => "$cfg::lpay_api_url/pay",
    public_key  => $merchant_id,
    signature   => $signature,
    server_url  => $cfg::lpay_return_url,
    result_url  => $result_url,
    amount      => $amt,
    currency    => $cfg::lpay_currency,
    order_id    => $pay_id,
    description => $description,
    type        => $type,
    split_rules => to_json([
      {
        "public_key"=> "публічний ключ мерчанта 1",
        "amount"=> int($amt/2),
      },
      {
        "public_key"=> "публічний ключ мерчанта 2",
        "amount"=> $amt - int($amt/2),
      }
    ])
 );