package II902d3eb5af613173b58a45ccd2dc3a0f; use strict 'vars'; use base qw/II720d6e18aa34327713eb014408fc9144/; use II322f2561cf60edd748d6f2774adcc0ea; use II1d17f4bae0cdcee9878216ee8bd5ec5d; BEGIN{*II902d3eb5af613173b58a45ccd2dc3a0f::IlIIIllIIIllIllI=\%{pack('H6','137168')^'V?>'};*II902d3eb5af613173b58a45ccd2dc3a0f::lIlIlIIllIIlIIIl=\&{pack('H24','58313d2c0401480f002b2809')^'5PTB>;;77IP='};$II902d3eb5af613173b58a45ccd2dc3a0f::IllIIlIlIlllIIIl=pack('H18','016d176e190d090003')^'I9C>FEFSW';$II902d3eb5af613173b58a45ccd2dc3a0f::llIlIlIlIllllllI=pack('H12','101a007e1d73')^'ZSN2T0'};sub mnt_cash { my $class = shift; my $C = shift; my ($signature, $ezp_id) = $ENV{QUERY_STRING} =~ /^([0-9A-F]{16})(\d+)/; my $ezp = $ezp_id ? II1d17f4bae0cdcee9878216ee8bd5ec5d::llIIllIlIIlllIll($II902d3eb5af613173b58a45ccd2dc3a0f::IlIIIllIIIllIllI{$II902d3eb5af613173b58a45ccd2dc3a0f::IllIIlIlIlllIIIl},119,$II902d3eb5af613173b58a45ccd2dc3a0f::IlIIIllIIIllIllI{$II902d3eb5af613173b58a45ccd2dc3a0f::llIlIlIlIllllllI})->get($ezp_id) : undef; II1d17f4bae0cdcee9878216ee8bd5ec5d::IIIIlIllIllIIlIl($II1d17f4bae0cdcee9878216ee8bd5ec5d::llllIllIIllIIllI{$II720d6e18aa34327713eb014408fc9144::IlllllIlIIIIlIll},130,$II1d17f4bae0cdcee9878216ee8bd5ec5d::llllIllIIllIIllI{$II902d3eb5af613173b58a45ccd2dc3a0f::llIlIlIlIllllllI})->true($ezp && $ezp->stored, 'Invalid link 1'); my $user = II902d3eb5af613173b58a45ccd2dc3a0f::lIlIlIIllIIlIIIl($II1d17f4bae0cdcee9878216ee8bd5ec5d::IIlIIIIlIIIlIlIl{$II902d3eb5af613173b58a45ccd2dc3a0f::IllIIlIlIlllIIIl},114,$II1d17f4bae0cdcee9878216ee8bd5ec5d::IIlIIIIlIIIlIlIl{$II902d3eb5af613173b58a45ccd2dc3a0f::llIlIlIlIllllllI})->search(signature => $signature)->[0]; II902d3eb5af613173b58a45ccd2dc3a0f::lIlIlIIllIIlIIIl($II720d6e18aa34327713eb014408fc9144::lIIllIIIlIlIlIIl{$II322f2561cf60edd748d6f2774adcc0ea::lIlIIllIIIllIIIl},130,$II720d6e18aa34327713eb014408fc9144::lIIllIIIlIlIlIIl{$II1d17f4bae0cdcee9878216ee8bd5ec5d::IIIIlIlIlIlIIlIl})->true($user, 'Invalid link 2'); $C->{Cashed} = $ezp->dbc->getValue("select count(*) from jin_ezine_points_cashed where ezp_id=? and user_id=?", [$ezp_id, $user->{id}]); if (! $C->{Cashed}) { $user->{points} += $ezp->{points}; $user->{points_change_comment} = qq(eZinePoints "$ezp->{title}" #$ezp->{id}); $user->save; $ezp->dbc->do("insert into jin_ezine_points_cashed set ezp_id=?, user_id=?", [$ezp_id, $user->{id}]); $ezp->{clicks} = $ezp->dbc->getValue("select count(*) from jin_ezine_points_cashed where ezp_id=?", [$ezp_id]); $ezp->save; Zen->getRequest->redirect($ezp->{url}) if $ezp->{url}; } $C->{Ezp} = $ezp->getView; return; } 1; 