Revision Navigation

Revision 696

Date:

2018/08/14 20:52:12

Author:

ahitrov

Revision Log:

order in init

Files:

/utf8/plugins/payments/lib/payments/Provider/Sber.pm (Diff) (Checkout)

Legend:

: Added
: Removed
: Modified

utf8/plugins/payments/lib/payments/Provider/Sber.pm


11	11	use JSON::XS;
12	12	use Data::Dumper;
13	13
	14	use constant (
	15	REG => 0, # Заказ зарегистрирован, но не оплачен;
	16	HOLD => 1, # Предавторизованная сумма захолдирована (для двухстадийных платежей);
	17	PAY => 2, # Проведена полная авторизация суммы заказа;
	18	CANCEL => 3, # Авторизация отменена;
	19	REFUND => 4, # По транзакции была проведена операция возврата;
	20	ACS => 5, # Инициирована авторизация через ACS банка-эмитента;
	21	REJECT => 6, # Авторизация отклонена.
	22	);
	23
	24	our %STATUS = (
	25	0 => 'Ожидание оплаты',
	26	1 => 'Предавторизованная сумма захолдирована',
	27	2 => 'Успешная оплата',
	28	3 => 'Авторизация отменена',
	29	4 => 'По транзакции была проведена операция возврата',
	30	5 => 'Инициирована авторизация через ACS банка-эмитента',
	31	6 => 'Авторизация отклонена',
	32	);
	33
14	34	sub new {
15	35	my ($proto, %params) = @_;
16	36	my $class = ref($proto) \|\| $proto;
…	…
28	48	$self->{fail_url} = $params{fail_url} \|\| $state->{payments}{$prefix."_fail_url"};
29	49
30	50	$self->{currency} = $state->{payments}{$prefix."_currency_code"};
	51	$self->{payment_statuses} = \%STATUS;
31	52
32	53	my $host = 'https://'. ($self->{test_mode} ? '3dsec.sberbank.ru' : 'securepayments.sberbank.ru');
33	54	$self->{api} = {
…	…
78	99	my $self = shift;
79	100	my $opts = shift // {};
80	101
81		unless ( %$opts && exists $opts->{orderNumber} && exists $opts->{amount} ) {
82		$self->{result}{error} = 'Не указаны обязательные параметры: orderNumber или amount';
	102	unless ( %$opts && (exists $opts->{order} \|\| exists $opts->{orderNumber} && exists $opts->{amount}) ) {
	103	$self->{result}{error} = 'Не указаны обязательные параметры: order, orderNumber или amount';
83	104	return $self;
84	105	}
85	106	my $method = 'init';
…	…
98	119	$opts->{sessionTimeoutSecs} = $self->{session_timeout};
99	120	}
100	121
	122	my $order;
	123	if ( exists $opts->{order} && ref $opts->{order} eq 'webshop::Order' ) {
	124	$order = delete $opts->{order};
	125	$opts->{orderNumber} = $order->id;
	126	}
	127
101	128	my $uid = delete $opts->{uid};
102	129	unless ( $uid ) {
103		$self->{result}{error} = 'Не указан user id';
104		return $self;
	130	if ( ref $order ) {
	131	$uid = $order->uid;
	132	} else {
	133	$self->{result}{error} = 'Не указан user id';
	134	return $self;
	135	}
105	136	}
106	137
107	138	### Сумма должна быть в копейках. Если дробное (рубли.копейки) - преобразуем в копейки
108		my $sum = $opts->{amount};
109		if ( !$sum \|\| $sum !~ /^[\d\,\.]+$/ ) {
110		$self->{result}{error} = 'Не указана или неправильно указана сумма транзакции';
111		return $self;
	139	if ( ref $order ) {
	140	$opts->{amount} = int($order->sum_total * 100);
	141	} else {
	142	my $sum = $opts->{amount};
	143	if ( !$sum \|\| $sum !~ /^[\d\,\.]+$/ ) {
	144	$self->{result}{error} = 'Не указана или неправильно указана сумма транзакции';
	145	return $self;
	146	}
	147	if ( $sum =~ /[,.]/ ) {
	148	$sum =~ s/\,/\./;
	149	$opts->{amount} = int($sum * 100);
	150	}
112	151	}
113		if ( $sum =~ /[,.]/ ) {
114		$sum =~ s/\,/\./;
115		$opts->{amount} = int($sum * 100);
116		}
117	152	$opts->{jsonParams} = {} unless exists $opts->{jsonParams};
118	153	$opts->{jsonParams}{uid} = $uid;
119	154
…	…
127	162	return $self unless ref $operation;
128	163
129	164	my $transaction = $self->get_transaction_by_order_id( $opts->{orderNumber} );
130		if ( ref $transaction && $transaction->name eq 'Init' ) {
	165	if ( ref $transaction && $transaction->name ne 'Expired' ) {
131	166	### Transaction already exists
132	167	$self->{result}{success} = 1;
133	168	$self->{result}{session_id} = $transaction->session_id;
…	…
135	170	} else {
136	171	if ( ref $transaction && $transaction->name eq 'Expired' ) {
137	172	$transaction->delete;
	173	$transaction = undef;
138	174	}
139		my $req = $self->_createRequestGet( $method, $opts );
140		my $ua = LWP::UserAgent->new;
141		$ua->agent('Mozilla/5.0');
142		my $result = $ua->get( $req );
143		if ( $result->code == 200 ) {
144		warn "Sberbank Init result: [".$result->decoded_content."]\n" if $DEBUG;
145		my $content = JSON::XS->new->decode( $result->decoded_content );
146		warn Dumper $content if $DEBUG;
	175	if ( !ref $transaction ) {
	176	my $req = $self->_createRequestGet( $method, $opts );
	177	my $ua = LWP::UserAgent->new;
	178	$ua->agent('Mozilla/5.0');
	179	my $result = $ua->get( $req );
	180	if ( $result->code == 200 ) {
	181	warn "Sberbank Init result: [".$result->decoded_content."]\n" if $DEBUG;
	182	my $content = JSON::XS->new->decode( $result->decoded_content );
	183	warn Dumper $content if $DEBUG;
147	184
148		if ( ref $content && exists $content->{orderId} ) {
149		my $now = Contenido::DateTime->new;
150		$transaction = payments::Transaction->new( $keeper );
151		$transaction->dtime( $now->ymd('-').' '.$now->hms );
152		$transaction->provider( $self->{payment_system} );
153		$transaction->session_id( $content->{orderId} );
154		$transaction->status( $self->{test_mode} );
155		$transaction->order_id( $opts->{orderNumber} );
156		$transaction->operation_id( $operation->id );
157		$transaction->currency_code( 'RUR' );
158		$transaction->sum( $opts->{amount} );
159		$transaction->form_url( $content->{formUrl} );
160		$transaction->name( 'Init' );
161		$transaction->success( 0 );
162		$transaction->store;
	185	if ( ref $content && exists $content->{orderId} ) {
	186	my $now = Contenido::DateTime->new;
	187	$transaction = payments::Transaction->new( $keeper );
	188	$transaction->dtime( $now->ymd('-').' '.$now->hms );
	189	$transaction->provider( $self->{payment_system} );
	190	$transaction->session_id( $content->{orderId} );
	191	$transaction->status( $self->{test_mode} );
	192	$transaction->order_id( $opts->{orderNumber} );
	193	$transaction->operation_id( $operation->id );
	194	$transaction->currency_code( 'RUR' );
	195	$transaction->sum( $opts->{amount} );
	196	$transaction->form_url( $content->{formUrl} );
	197	$transaction->name( 'Init' );
	198	$transaction->success( 0 );
	199	$transaction->store;
163	200
164		$self->{result}{success} = 1;
165		$self->{result}{session_id} = $content->{orderId};
166		$self->{result}{transaction} = $transaction;
167		} elsif ( ref $content && exists $content->{errorCode} && $content->{errorCode} ) {
168		$self->{result}{error} = Encode::encode('utf-8', $content->{errorMessage});
169		warn "[".$result->decoded_content."]\n";
	201	$self->{result}{success} = 1;
	202	$self->{result}{session_id} = $content->{orderId};
	203	$self->{result}{transaction} = $transaction;
	204	} elsif ( ref $content && exists $content->{errorCode} && $content->{errorCode} ) {
	205	$self->{result}{error} = Encode::encode('utf-8', $content->{errorMessage});
	206	warn "[".$result->decoded_content."]\n";
	207	} else {
	208	$self->{result}{error} = 'Sberbank Init failed';
	209	$self->{result}{responce} = $result->decoded_content;
	210	warn $self->{result}{error}."\n";
	211	warn "[".$result->decoded_content."]\n";
	212	}
170	213	} else {
171	214	$self->{result}{error} = 'Sberbank Init failed';
172		$self->{result}{responce} = $result->decoded_content;
173		warn $self->{result}{error}."\n";
174		warn "[".$result->decoded_content."]\n";
	215	$self->{result}{responce} = $result->status_line;
	216	warn $self->{result}{error}.": ".$result->status_line."\n";
	217	warn Dumper $result;
175	218	}
176		} else {
177		$self->{result}{error} = 'Sberbank Init failed';
178		$self->{result}{responce} = $result->status_line;
179		warn $self->{result}{error}.": ".$result->status_line."\n";
180		warn Dumper $result;
181	219	}
182	220	}
183	221	return $self;
…	…
224	262	my $self = shift;
225	263	my $opts = shift // {};
226	264
227		unless ( exists $opts->{orderNumber} \|\| exists $self->{result} && exists $self->{result}{transaction} && ref $self->{result}{transaction} ) {
	265	unless ( exists $opts->{orderNumber}
	266	\|\| exists $self->{result} && exists $self->{result}{transaction} && ref $self->{result}{transaction}
	267	\|\| exists $opts->{transaction} && ref $opts->{transaction} ) {
228	268	$self->{result}{error} = 'Не указан обязательный параметр orderNumber или не получена транзакция';
229	269	return $self;
230	270	}
231	271	my $method = 'status';
232	272	my $transaction;
233		if ( exists $self->{result}{transaction} ) {
	273	if ( exists $opts->{transaction} ) {
	274	$transaction = delete $opts->{transaction};
	275	} elsif ( exists $self->{result}{transaction} ) {
234	276	$transaction = $self->{result}{transaction};
235		$opts->{orderNumber} = $transaction->order_id;
236	277	} else {
237	278	$transaction = $self->get_transaction_by_order_id( $opts->{orderNumber} );
238	279	}
…	…
240	281	$self->{result}{error} = "Не найдена транзакция для order_id=".$opts->{orderNumber};
241	282	return $self;
242	283	}
	284	$opts->{orderNumber} = $transaction->order_id;
243	285	$opts->{orderId} = $transaction->session_id;
244		warn "Sberbank Status: ".Dumper($opts) if $DEBUG;
	286	warn "Sberbank status opts: ".Dumper($opts) if $DEBUG;
245	287
246	288	my $req = $self->_createRequestGet( $method, $opts );
247	289	my $ua = LWP::UserAgent->new;

Repository List / Contenido @ r696

Revision Navigation

Revision 696

Legend:

utf8/plugins/payments/lib/payments/Provider/Sber.pm

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