package II2d19224795b924b65705aa272089186a; use strict 'vars'; use base qw/II720d6e18aa34327713eb014408fc9144/; use II68dae21b6e7fdc7e5ab56281a1ab0d12; BEGIN{*II2d19224795b924b65705aa272089186a::llIIllIlIlIIIlll=\%{pack('H6','7f1f1d')^':QK'};*II2d19224795b924b65705aa272089186a::IIIIlllIIlIlllll=\&{pack('H24','3c313d5169704a7503282878')^'QPT?SJ9M4JPL'};$II2d19224795b924b65705aa272089186a::llllllIlllIlIlII=pack('H18','1a016702611c050b1d')^'RU3R>TJXI';$II2d19224795b924b65705aa272089186a::lIlIIIlllllIIllI=pack('H12','19050a091004')^'SLDEYG'};sub act_show { my $class = shift; my $C = shift; my $request = Zen->getRequest; my $in = $request->getInput; my $obj = $in->{id} ? II68dae21b6e7fdc7e5ab56281a1ab0d12::lIllllIlllllIIll($II2d19224795b924b65705aa272089186a::llIIllIlIlIIIlll{$II720d6e18aa34327713eb014408fc9144::lIIIIllIIllIIIlI},56,$II2d19224795b924b65705aa272089186a::llIIllIlIlIIIlll{$II720d6e18aa34327713eb014408fc9144::IllIllIIlIIIIlIl})->get($in->{id}) : undef; II2d19224795b924b65705aa272089186a::IIIIlllIIlIlllll($II68dae21b6e7fdc7e5ab56281a1ab0d12::IlIIllllIIIllIlI{$II2d19224795b924b65705aa272089186a::llllllIlllIlIlII},130,$II68dae21b6e7fdc7e5ab56281a1ab0d12::IlIIllllIIIllIlI{$II720d6e18aa34327713eb014408fc9144::IIIIIIllIIlllIIl})->true($obj && $obj->stored, 'Invalid link'); my $coo = $request->getCookie; my $cooname = "jin_trackurl_$in->{id}"; unless ($coo->{$cooname}) { $obj->{clicks}++; $obj->save; } printf "Set-Cookie: %s\n", CGI->cookie( -name => $cooname, -value => 1, -path => '/', -expires => '+1440m', ); if ($obj->{url}) { $request->redirect($obj->{url}); } else { $request->printHeader('text/html'); print $obj->{page}; } return; } BEGIN{*II2d19224795b924b65705aa272089186a::IllIIIIlIllIIlIl=\%{pack('H6','717b6f')^'459'};*II2d19224795b924b65705aa272089186a::lIllllllIIIlllIl=\&{pack('H24','2826522a6b76307f7c554279')^'EG;DQLCGK7:M'};$II2d19224795b924b65705aa272089186a::lIlIllIllIllIIll=pack('H18','7d650c64050a760064')^'51X4ZB9S0';$II2d19224795b924b65705aa272089186a::IlIlIIIllllIIlII=pack('H12','011f09737101')^'KVG?8B'};sub act_order { my $class = shift; my $C = shift; my $request = Zen->getRequest; my $in = $request->getInput; my $obj = $in->{id} ? II720d6e18aa34327713eb014408fc9144::IIllIllIIlIIIlll($II68dae21b6e7fdc7e5ab56281a1ab0d12::IlllIlIllllIIIlI{$II68dae21b6e7fdc7e5ab56281a1ab0d12::IIlIIlIIIIIIIlII},56,$II68dae21b6e7fdc7e5ab56281a1ab0d12::IlllIlIllllIIIlI{$II2d19224795b924b65705aa272089186a::IlIlIIIllllIIlII})->get($in->{id}) : undef; II2d19224795b924b65705aa272089186a::lIllllllIIIlllIl($II2d19224795b924b65705aa272089186a::llIIllIlIlIIIlll{$II720d6e18aa34327713eb014408fc9144::llIlIlIIIIIlIIlI},130,$II2d19224795b924b65705aa272089186a::llIIllIlIlIIIlll{$II2d19224795b924b65705aa272089186a::lIlIIIlllllIIllI})->true($obj && $obj->stored, 'Invalid link 1'); II720d6e18aa34327713eb014408fc9144::IllIIIIlIIlllIll($II720d6e18aa34327713eb014408fc9144::lIIIIIllIIIlllll{$II2d19224795b924b65705aa272089186a::lIlIllIllIllIIll},130,$II720d6e18aa34327713eb014408fc9144::lIIIIIllIIIlllll{$II720d6e18aa34327713eb014408fc9144::lIIlllIllIlIllll})->true($in->{order_id}, 'Invalid link 2'); my $dbc = II2d19224795b924b65705aa272089186a::IIIIlllIIlIlllll($II720d6e18aa34327713eb014408fc9144::IllIllllIIIlIIlI{$II2d19224795b924b65705aa272089186a::lIlIllIllIllIIll},56,$II720d6e18aa34327713eb014408fc9144::IllIllllIIIlIIlI{$II68dae21b6e7fdc7e5ab56281a1ab0d12::lIlIllIIIlllIlll})->dbc; $dbc->do("replace into jin_trackable_url_order set trackurl_id=?, order_id=?", [$in->{id}, $in->{order_id}]); $obj->{orders} = $dbc->getValue("select count(*) from jin_trackable_url_order where trackurl_id=?", [$in->{id}]); $obj->save; $request->printHeader('text/html'); return; } 1; 