ABillS

Убрать хардкод часового пояса для всех.
Сделать обработку опции в конфиге.

В старой схеме:

elsif (($FORM{xml} && $conf{PAYSYS_IPAY_FAST_PAY}) ||  check_ip($ENV{REMOTE_ADD}, '91.229.115.11')) {
        mk_log("Ipay_START");
  require Paysys::systems::Ipay;
  Paysys::systems::Ipay->import();
  mk_log("IPAY_START 2");
  my $Ipay = Paysys::systems::Ipay->new2(\%conf, \%FORM, undef, undef, $users,
    { HTML => $html, SELF_URL => $SELF_URL, DATETIME => "$DATE $TIME" });
  mk_log("IPAY_START 3");
  $Ipay->ipay_check_payments();
  mk_log("IPAY_START 4");
  exit;
}

Перевод времени

  use Time::Piece;
  my $t = localtime;
  my $time = $t->epoch + (($t->isdst) ? 3 : 2)  60  60;
  my $date = POSIX::strftime("%F %X", gmtime($time));
  $REQUEST_HASH{request}{auth}{time}  = $date;