package II4599daf4f7c9e8dcf3409f19788cfc0e; use strict 'vars'; use base qw/IIcaff30a023c2c01059e86a273f294071/; use Zen::Config; use IIcdb458e6ed5c40b1928de1833ef734bb; use IIc6aa3e82c386b089a6d7ec2e1ba751e0; use IIc006e1d88f66a3969ffd0192be9acb1b; use II1d17f4bae0cdcee9878216ee8bd5ec5d; BEGIN{*II4599daf4f7c9e8dcf3409f19788cfc0e::lIlIIIIlllIllllI=\%{pack('H6','061e18')^'CPN'};*II4599daf4f7c9e8dcf3409f19788cfc0e::lllIllIIIIIlllIl=\&{pack('H24','352e5b280c0d2b777f38200f')^'XO2F67XOHZX;'};$II4599daf4f7c9e8dcf3409f19788cfc0e::IIIlIlIlIlIllIlI=pack('H18','7065186d637d75646c')^'81L=<5:78';$II4599daf4f7c9e8dcf3409f19788cfc0e::lIllIlIlIlIlIlIl=pack('H12','0a737a1f727b')^'@:4S;8'};sub cfg   { II4599daf4f7c9e8dcf3409f19788cfc0e::IlllIllllIIlIIlI($IIcaff30a023c2c01059e86a273f294071::IlIIIlIIlIlIllII{$IIcdb458e6ed5c40b1928de1833ef734bb::lllIIIlllIIllllI},830,$IIcaff30a023c2c01059e86a273f294071::IlIIIlIIlIlIllII{$II4599daf4f7c9e8dcf3409f19788cfc0e::IIIIlIlIIIIlIIII})->cfg } BEGIN{*II4599daf4f7c9e8dcf3409f19788cfc0e::llIIllIIlIlIlIlI=\%{pack('H6','7e7306')^';=P'};*II4599daf4f7c9e8dcf3409f19788cfc0e::lIIIIIllIIlIllll=\&{pack('H24','3d525350727345080a2a4f08')^'P3:>HI60=H7<'};$II4599daf4f7c9e8dcf3409f19788cfc0e::llllIIlIIllIlIIl=pack('H18','12016b6f697d070661')^'ZU??65HU5';$II4599daf4f7c9e8dcf3409f19788cfc0e::lIlIlIllIlIllllI=pack('H12','001c721f0571')^'JU<SL2'};sub cache { IIc6aa3e82c386b089a6d7ec2e1ba751e0::llllIlllIIllIlII($IIc6aa3e82c386b089a6d7ec2e1ba751e0::lIIIIlIIlllllllI{$II1d17f4bae0cdcee9878216ee8bd5ec5d::IIIIlIlllIIlllll},830,$IIc6aa3e82c386b089a6d7ec2e1ba751e0::lIIIIlIIlllllllI{$IIcaff30a023c2c01059e86a273f294071::IllllllIlIIIIlll})->cache } BEGIN{*II4599daf4f7c9e8dcf3409f19788cfc0e::IIIIlllllIIlIIlI=\%{pack('H6','140907')^'QGQ'};*II4599daf4f7c9e8dcf3409f19788cfc0e::IlllIllllIIlIIlI=\&{pack('H24','2e3b58220a784f6863202e70')^'CZ1L0B<PTBVD'};$II4599daf4f7c9e8dcf3409f19788cfc0e::lIIIIllIlIlIIIII=pack('H18','12111a1d611b781c1b')^'ZENM>S7OO';$II4599daf4f7c9e8dcf3409f19788cfc0e::IIlIlIIIIIIIllII=pack('H12','0e7870021a78')^'D1>NS;'};sub createOrRenewForSale { my $class = shift; my ($sale, $expires) = @_; my $user = $sale->getUser; my $prod = $sale->getProduct; for my $affprog_id (split(',', $prod->{dlv_affprogs})) { $class->create($sale->getUser, $affprog_id, $expires, $sale->id); } return; } BEGIN{*II4599daf4f7c9e8dcf3409f19788cfc0e::lIlllIlIIIlIIIll=\%{pack('H6','0f7916')^'J7@'};*II4599daf4f7c9e8dcf3409f19788cfc0e::IlIlllIIIIllllII=\&{pack('H24','3c282036717a490608212b02')^'QIIXK@:>?CS6'};$II4599daf4f7c9e8dcf3409f19788cfc0e::lIlIlIllIlllIlIl=pack('H18','7a60611c1c09010619')^'245LCANUM';$II4599daf4f7c9e8dcf3409f19788cfc0e::IIIIlIlIIIIlIIII=pack('H12','057a7709090a')^'O39E@I'};sub create { my $class = shift; my ($user, $affprog_id, $expires, $sale_id, $comment) = @_; my $this = $class->search(user_id => $user->id, affprog_id => $affprog_id)->[0] || $class->get; unless ($this->stored) { $this->{user_id} = $user->id; $this->{affprog_id} = $affprog_id; $this->{notapproved} = 1 if II1d17f4bae0cdcee9878216ee8bd5ec5d::IIIIlIllIllIIlIl($IIc6aa3e82c386b089a6d7ec2e1ba751e0::lIIIIlIIlllllllI{$II4599daf4f7c9e8dcf3409f19788cfc0e::IIIlIlIlIlIllIlI},77,$IIc6aa3e82c386b089a6d7ec2e1ba751e0::lIIIIlIIlllllllI{$IIcdb458e6ed5c40b1928de1833ef734bb::IIlllIlIIlllllII})->get($affprog_id)->{needapproval}; } if (! $this->stored || ! $expires || ($this->{expires} && $this->{expires} le $expires)) { $this->{sale_id} = $sale_id + 0; $this->{expires} = $expires; } $this->{comment} = $comment if $comment; $this->save; } 1; 