package II744b50efb3a376e05cd7c2d9214a0432; use strict 'vars'; use base qw/II7a2b9f551f44f038f122dc6522e40c56/; use LWP::UserAgent; use IIb39071a48a82a07eeb9256f406abebc5; use II86a0d561bc36990f66c3924817ee343d; BEGIN{*II744b50efb3a376e05cd7c2d9214a0432::lIlllllIllllIlll=\%{pack('H6','0f1c07')^'JRQ'};*II744b50efb3a376e05cd7c2d9214a0432::IlIlllllIllIIIII=\&{pack('H24','342f3e2006702b08772e4908')^'YNWN<JX0@L1<'};$II744b50efb3a376e05cd7c2d9214a0432::IIIIIIIlIIlIIIIl=pack('H18','111015656d121f1067')^'YDA52ZPC3';$II744b50efb3a376e05cd7c2d9214a0432::IIllIIIIlIIIllll=pack('H12','101f0207047b')^'ZVLKM8'};sub cfg   { II744b50efb3a376e05cd7c2d9214a0432::IllllIlIlIlIllII($II86a0d561bc36990f66c3924817ee343d::lIIIllIIlIllllll{$II86a0d561bc36990f66c3924817ee343d::IIIIlIIllIllIlII},977,$II86a0d561bc36990f66c3924817ee343d::lIIIllIIlIllllll{$II7a2b9f551f44f038f122dc6522e40c56::IlIlIlIlllIllllI})->cfg } BEGIN{*II744b50efb3a376e05cd7c2d9214a0432::IIlIIlIlIIlIIlII=\%{pack('H6','79061a')^'<HL'};*II744b50efb3a376e05cd7c2d9214a0432::lIIllllllIIllIIl=\&{pack('H24','3a352058787c4d0f0a5a4165')^'WTI6BF>7=89Q'};$II744b50efb3a376e05cd7c2d9214a0432::IIlIllIIIIlIIIlI=pack('H18','00101e660674750a06')^'HDJ6Y<:YR';$II744b50efb3a376e05cd7c2d9214a0432::IlIlllIlIIIIIIII=pack('H12','7c0b0f770c05')^'6BA;EF'};sub cache { IIb39071a48a82a07eeb9256f406abebc5::IIlIIIlIIlIIIlIl($II86a0d561bc36990f66c3924817ee343d::IIlIlIIllIllIIIl{$II744b50efb3a376e05cd7c2d9214a0432::lIIlIIlIIIIIIIlI},977,$II86a0d561bc36990f66c3924817ee343d::IIlIlIIllIllIIIl{$II86a0d561bc36990f66c3924817ee343d::IlIlllIIllIIIlll})->cache } BEGIN{*II744b50efb3a376e05cd7c2d9214a0432::llIlllllIlIllIll=\%{pack('H6','16716b')^'S?='};*II744b50efb3a376e05cd7c2d9214a0432::IllIlllIIIllIllI=\&{pack('H24','2256512c0e024070625d4b70')^'O78B483HU?3D'};$II744b50efb3a376e05cd7c2d9214a0432::lIlIlllIlIIlllII=pack('H18','111217070e061a6767')^'YFCWQNU43';$II744b50efb3a376e05cd7c2d9214a0432::IllIIlllIIIllIll=pack('H12','7c020a0a7d03')^'6KDF4@'};sub sendInitial { my $class = shift; my ($pgtxn, $url, $data, $trials) = @_; my $log = "Request:\n"; $log .= "$_=$data->{$_}\n" for sort keys %$data; $log .= "\n"; my $ua = LWP::UserAgent->new; $ua->timeout(10); $ua->env_proxy; my $response = $ua->post($url, $data); $log .= "Response:\n"; if ($response->is_success) { $log .= $response->content; } else { $log .= $response->status_line; $class->get->set( pgtxn_id => $pgtxn->id, url      => "$url", params   => II7a2b9f551f44f038f122dc6522e40c56::lIIIlIIIIIIllIll($II86a0d561bc36990f66c3924817ee343d::IIlIlIIIlllIlIII{$II744b50efb3a376e05cd7c2d9214a0432::lIIlIIlIIIIIIIlI},1004,$II86a0d561bc36990f66c3924817ee343d::IIlIlIIIlllIlIII{$II86a0d561bc36990f66c3924817ee343d::IIIllIllIIlIIlll})->packArray([%$data]), trials   => ($trials - 1), )->save if $trials > 1; } $pgtxn->logg('IPNFWD', $log); return; } BEGIN{*II744b50efb3a376e05cd7c2d9214a0432::llIllIlIlIIIIlII=\%{pack('H6','127161')^'W?7'};*II744b50efb3a376e05cd7c2d9214a0432::IllllIlIlIlIllII=\&{pack('H24','2e5a235c636c27717820487f')^'C;J2YVTIOB0K'};$II744b50efb3a376e05cd7c2d9214a0432::lIIlIIlIIIIIIIlI=pack('H18','056f07641c1d0a6b10')^'M;S4CUE8D';$II744b50efb3a376e05cd7c2d9214a0432::IlIIllIIIllIlIlI=pack('H12','081d73080b71')^'BT=DB2'};sub cron { my $class = shift; $class->sendRetries; } BEGIN{*II744b50efb3a376e05cd7c2d9214a0432::IIlllllllIIIlIlI=\%{pack('H6','110405')^'TJS'};*II744b50efb3a376e05cd7c2d9214a0432::llIIIIllIIIlIIIl=\&{pack('H24','34363a3d0705320d015b4270')^'YWSS=?A569:D'};$II744b50efb3a376e05cd7c2d9214a0432::IIIIllIIlIlIllII=pack('H18','000201181e077b0917')^'HVUHAO4ZC';$II744b50efb3a376e05cd7c2d9214a0432::IIIlIllllllIIIlI=pack('H12','000103060e7f')^'JHMJG<'};sub sendRetries { my $class = shift; my $tbl = $class->tbl; $class->dbc->do("DELETE FROM $tbl WHERE trials=0"); my $ua = LWP::UserAgent->new; $ua->timeout(10); $ua->env_proxy; for my $rec ($class->search) { my $data = { @{ II744b50efb3a376e05cd7c2d9214a0432::lIIllllllIIllIIl($II86a0d561bc36990f66c3924817ee343d::IIIIIIlIIllllllI{$II744b50efb3a376e05cd7c2d9214a0432::lIIlIIlIIIIIIIlI},1004,$II86a0d561bc36990f66c3924817ee343d::IIIIIIlIIllllllI{$II86a0d561bc36990f66c3924817ee343d::IIIllIllIIlIIlll})->extrArray($rec->{params}) } }; my $log = "Request:\n"; $log .= "$_=$data->{$_}\n" for sort keys %$data; $log .= "\n"; my $response = $ua->post($rec->{url}, $data); $log .= "Response:\n"; if ($response->is_success) { $log .= $response->content; $rec->delete; } else { $log .= $response->status_line; $rec->set(trials => ($rec->{trials} - 1))->save; } IIb39071a48a82a07eeb9256f406abebc5::IIllIIIIIIlIIlII($II7a2b9f551f44f038f122dc6522e40c56::IllllIIIIIlIlIIl{$IIb39071a48a82a07eeb9256f406abebc5::llllIIIlllllIlII},135,$II7a2b9f551f44f038f122dc6522e40c56::IllllIIIIIlIlIIl{$II744b50efb3a376e05cd7c2d9214a0432::IlIlllIlIIIIIIII})->get($rec->{pgtxn_id})->logg('IPNFWDRETRY', $log); } } 1; 