...
| Code Block | ||||
|---|---|---|---|---|
| ||||
#**********************************************************
=head2 get_settings() - return hash of settings
Arguments:
Returns:
HASH
=cut
#**********************************************************
sub get_settings {
my %SETTINGS = ();
$SETTINGS{VERSION} = $PAYSYSTEM_VERSION; # объявляется в шапке модуля
$SETTINGS{ID} = $PAYSYSTEM_ID; # объявляется в шапке модуля
$SETTINGS{NAME} = $PAYSYSTEM_NAME; # объявляется в шапке модуля
# хеш с нужными ключами настсройки системы, например: логин, пароль, поле идентификации абонента и тд.
$SETTINGS{CONF} = \%PAYSYSTEM_CONF;
return %SETTINGS;
} |
...
Функция proccess() запускается при запросе от платежной системы на скрипт paysys_check.cgi.
Когда приходит запрос, система проверяет наличие IP адреса с которого идет запрос( $ENV{REMOTE_ADDR} ) в списке адресов которые вы прописали при настройках модуля.
...