package IIb6df3f049aba153075804845cfe86dc8; use strict 'vars'; use base qw/IIc0dddbcc5525420e139003092ae80eb6/; use IIa7e18da9a1870a23e5d1573a274b9cd7; use II15a1171abd302b924441f0b5ac439d39; BEGIN{*IIb6df3f049aba153075804845cfe86dc8::lllIlllIlIIlllII=\%{pack('H6','790a6d')^'<D;'};*IIb6df3f049aba153075804845cfe86dc8::llIlIIlIllIIIlll=\&{pack('H24','3721332378734005753b2f65')^'Z@ZMBI3=BYWQ'};$IIb6df3f049aba153075804845cfe86dc8::IIIIIllIIIIlIlll=pack('H18','06106a650f790b1c1d')^'ND>5P1DOI';$IIb6df3f049aba153075804845cfe86dc8::llllIllIIIllIIlI=pack('H12','1b107675087f')^'QY89A<'};sub act_redirect { my $class = shift; my $request = Zen->getRequest; my $in = $request->getInput; my $tracklink = II15a1171abd302b924441f0b5ac439d39::IIIIIlIIIlIlllll($IIb6df3f049aba153075804845cfe86dc8::lllIlllIlIIlllII{$IIa7e18da9a1870a23e5d1573a274b9cd7::IlIlIIllIIIlIIIl},51,$IIb6df3f049aba153075804845cfe86dc8::lllIlllIlIIlllII{$IIb6df3f049aba153075804845cfe86dc8::llllIllIIIllIIlI})->getOrEmpty($in->{tracklink_id}); IIb6df3f049aba153075804845cfe86dc8::llIlIIlIllIIIlll($II15a1171abd302b924441f0b5ac439d39::lIIIllIIlIIlIlll{$IIb6df3f049aba153075804845cfe86dc8::IIIIIllIIIIlIlll},1005,$II15a1171abd302b924441f0b5ac439d39::lIIIllIIlIIlIlll{$IIa7e18da9a1870a23e5d1573a274b9cd7::lIlIlIIIlIIIIIIl})->true($tracklink, 'invalid link'); my $coo = $request->getCookie; my $cooname1 = "jin_tl"; my $cooname2 = "jin_tl_$in->{tracklink_id}"; $tracklink->{clicks}++; $tracklink->{uvisits}++ unless $coo->{$cooname2}; $tracklink->save; printf "Set-Cookie: %s\n", CGI->cookie( -name => $cooname1, -value => $in->{tracklink_id}, -path => IIc0dddbcc5525420e139003092ae80eb6::IlIIllIIlllllllI($II15a1171abd302b924441f0b5ac439d39::IIlIIllIlIllllIl{$IIb6df3f049aba153075804845cfe86dc8::IIIIIllIIIIlIlll},47,$II15a1171abd302b924441f0b5ac439d39::IIlIIllIlIllllIl{$IIa7e18da9a1870a23e5d1573a274b9cd7::lIlIlIIIlIIIIIIl})->getURL, -expires => '+10y', ); printf "Set-Cookie: %s\n", CGI->cookie( -name => $cooname2, -value => 1, -path => IIc0dddbcc5525420e139003092ae80eb6::IlIIllIlllIllIll($IIc0dddbcc5525420e139003092ae80eb6::lIIIllIIIllIIlIl{$II15a1171abd302b924441f0b5ac439d39::IlIllIIIIlIllIIl},47,$IIc0dddbcc5525420e139003092ae80eb6::lIIIllIIIllIIlIl{$IIa7e18da9a1870a23e5d1573a274b9cd7::lIlIlIIIlIIIIIIl})->getURL, -expires => '+6M', ); $coo->{$cooname1} = $in->{tracklink_id}; $coo->{$cooname2} = 1; my $url = $tracklink->{url}; for my $param (grep { $in->{$_} } qw/aff_id camp_id/) { $url .= $url =~ /\?/ ? '&' : '?'; $url .= "$param=$in->{$param}"; } $request->redirect($url); return; } 1; 