Page History

Шапка модуля:

Code Block

language	perl
title	Шапка модуля

=head1 PSCB
  New module for %ИМЯ МОДУЛЯ%

  Documentaion: %ССЫЛКА НА ДОКУМЕНТАЦИЮ%

  Date: %ДАТА ПОСЛЕДНЕГО ИЗМЕНЕНИЯ%

  Version: %ВЕРСИЯ МОДУЛЯ%
=cut


use strict;
use warnings;

use Abills::Base qw(_bp );
use Abills::Misc qw();
require Paysys::Paysys_Base;

package Paysys::systems::PSCB;

use Digest::MD5 qw[md5];
use Paysys;


our $PAYSYSTEM_NAME = 'PAYSYS';
our $PAYSYSTEM_SHORT_NAME = 'PS';
our $PAYSYSTEM_ID = 1;



our $PAYSYSTEM_VERSION = '7.00';

# Этот хеш используется для настройки системы в меню настроек
our %PAYSYSTEM_CONF = (
  PAYSYS_PAYSYS_LOGIN => '',
);

Из каких обязательных функций состоит модуль:

Code Block

language	perl
title	sub new()

#**********************************************************
=head2 new($db, $admin, $CONF)

  Arguments:
    $db    - ссылка на обьект базы данных    (required)
    $admin - ссылка на обьект администратора (required)
    $CONF  - ссылка на хеш %conf             (required)
    $attr  - {
		в атрибутах передаем дополнительные параметры
    }

  Returns:
    $self - обьект класса платежной системы

=cut
#**********************************************************
sub new {
  my $class = shift;

  my ($db, $admin, $CONF, $attr) = @_;

  my $self = {
    db    => $db,
    admin => $admin,
    conf  => $CONF,
    DEBUG => $CONF->{PAYSYS_DEBUG} || 0,
  };


  bless($self, $class);

  return $self;
}

Code Block

language	perl
title	sub get_settings

#**********************************************************
=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;
}

Code Block

language	perl
title	sub proccess()

#**********************************************************
=head2 proccess(\%FORM) - function that proccessing payment
                          on paysys_check.cgi

  Arguments:
    $FORM - HASH REF to %FORM

  Returns:

=cut
#**********************************************************
sub proccess {
  my $self = shift;
  my ($FORM) = @_;

  
}

Child pages

Versions Compared

Old Version 2

New Version 3

Key