Revision Navigation

Revision 352

Date:

2013/05/23 23:13:24

Author:

ahitrov

Revision Log:

Проверка таблицы операций

Files:

Legend:

: Added
: Removed
: Modified

utf8/plugins/monetaru/comps/www/monetaru/check.xml


42	42	<%init>
43	43
44	44	warn Dumper \%ARGS if $DEBUG;
45		unless ( $MNT_ID && $MNT_TRANSACTION_ID && $MNT_OPERATION_ID && $MNT_AMOUNT && $MNT_CURRENCY_CODE ) {
	45	unless ( $MNT_ID && $MNT_TRANSACTION_ID && $MNT_CURRENCY_CODE ) {
46	46	$m->out('FAIL');
47	47	return;
48	48	}
49	49
50	50	my $str = $MNT_COMMAND . $MNT_ID . $MNT_TRANSACTION_ID . $MNT_OPERATION_ID . $MNT_AMOUNT . $MNT_CURRENCY_CODE . $MNT_TEST_MODE . $state->{monetaru}->{moneta_sig_code};
51	51	my $md5 = Digest::MD5::md5_hex ( $str );
	52	warn "MD5 Check: $md5\n" if $DEBUG;
52	53	unless ( $MNT_SIGNATURE eq $md5 ) {
53	54	$m->out('FAIL');
54	55	return;
…	…
76	77	unless ( $reply_code ) {
77	78	my ($obj) = $keeper->get_documents(
78	79	class => 'monetaru::Transaction',
79		operation_id => $MNT_OPERATION_ID,
80	80	order_id => $MNT_TRANSACTION_ID,
81	81	limit => 1,
82	82	);
…	…
90	90
91	91	$str = $reply_code . $MNT_ID . $MNT_TRANSACTION_ID . $state->{monetaru}->{moneta_sig_code};
92	92	my $reply_md5 = Digest::MD5::md5_hex ( $str );
	93	warn "Reply MD5: $reply_md5\n" if $DEBUG;
93	94
94	95	</%init>

utf8/plugins/monetaru/lib/monetaru/Keeper.pm


64	64	my $self = shift;
65	65	my (%opts) = @_;
66	66
67		return undef unless $opts{type} && ( $opts{order} && ref $opts{order} eq 'webshop::Order' \|\| $opts{uid} && $opts{order} && $opts{sum});
	67	return undef unless $opts{type} && ( $opts{order} && ref $opts{order} \|\| $opts{uid} && $opts{order} && $opts{sum});
68	68	return undef unless $opts{type} =~ /^(create\|suspend\|cancel\|reform)$/;
69	69
70	70	my $op = monetaru::Operation->new( $keeper );

Небольшая справка по веткам

cnddist – контейнер, в котором хранятся все дистрибутивы всех библиотек и программных пакетов, которые использовались при построении различных версий Contenido. Если какой-то библиотеки в данном хранилище нет, инсталлятор сделает попытку "подтянуть" ее с веба (например, с CPAN). Если библиотека слишком старая, есть очень большая вероятность, что ее там уже нет. Поэтому мы храним весь хлам от всех сборок. Если какой-то дистрибутив вдруг отсутствует в cnddist - напишите нам, мы положим его туда.

koi8 – отмирающая ветка, чей код, выдача и все внутренние библиотеки заточены на кодировку KOI8-R. Вносятся только те дополнения, которые касаются внешнего вида и функционала админки, баги ядра, обязательные обновления портов и мелочи, которые легко скопипастить. В дальнейшем планируется полная остановка поддержки по данной ветке.

utf8 – актуальная ветка, заточенная под UTF-8.