package II8324236447952e569ba90326a60187e9; use strict 'vars'; use base qw/II720d6e18aa34327713eb014408fc9144/; use IIa7e18da9a1870a23e5d1573a274b9cd7; use IIcdb458e6ed5c40b1928de1833ef734bb; use II601fa70f090cadcaa1dcddfa68ea7567; use II48150745e444fb70eb92b141a752448b; BEGIN{*II8324236447952e569ba90326a60187e9::llllllIIlIlIIIII=\%{pack('H6','740911')^'1GG'};*II8324236447952e569ba90326a60187e9::IllIIIIlllIIlIlI=\&{pack('H24','2f2c51226b054d736320460f')^'BM8LQ?>KTB>;'};$II8324236447952e569ba90326a60187e9::llllIIllllllIlII=pack('H18','7a671b621b080c630e')^'23O2D@C0Z';$II8324236447952e569ba90326a60187e9::IIlIIIIlIIIIIIIl=pack('H12','077417030301')^'M=YOJB'};sub mnt_customize { my ($class, $C) = @_; my $in = $C->{INPUT}; my $user = II720d6e18aa34327713eb014408fc9144::IIllIIIlIIllllII($II720d6e18aa34327713eb014408fc9144::IlIlIllIlIlIIlll{$IIa7e18da9a1870a23e5d1573a274b9cd7::IlIlIIllIIIlIIIl},47,$II720d6e18aa34327713eb014408fc9144::IlIlIllIlIlIIlll{$II48150745e444fb70eb92b141a752448b::IllIIIIllIlIIIII})->getLoggedUser; my $package = $in->{pack_id} ? IIa7e18da9a1870a23e5d1573a274b9cd7::IlIIlIIIlIlIlIll($II720d6e18aa34327713eb014408fc9144::IIllIllllIlllIIl{$II720d6e18aa34327713eb014408fc9144::lIIlIIIIlllIlIII},33,$II720d6e18aa34327713eb014408fc9144::IIllIllllIlllIIl{$IIcdb458e6ed5c40b1928de1833ef734bb::lllIIlIIIIIIllIl})->get($in->{pack_id}) : undef; II48150745e444fb70eb92b141a752448b::IlllIIllIIlIIlIl($II720d6e18aa34327713eb014408fc9144::lIlIIIIlIllllIIl{$IIa7e18da9a1870a23e5d1573a274b9cd7::IlIlIIllIIIlIIIl},1005,$II720d6e18aa34327713eb014408fc9144::lIlIIIIlIllllIIl{$II8324236447952e569ba90326a60187e9::IIlIIIIlIIIIIIIl})->true(($package && $package->stored && II48150745e444fb70eb92b141a752448b::lIIlIIlIIlIIIllI($II720d6e18aa34327713eb014408fc9144::lIIIlIlIlllIIIll{$IIcdb458e6ed5c40b1928de1833ef734bb::lIIlIlIlIlIIlIlI},61,$II720d6e18aa34327713eb014408fc9144::lIIIlIlIlllIIIll{$IIa7e18da9a1870a23e5d1573a274b9cd7::lIlIlIIIlIIIIIIl})->canUserQuickresellPackage($user, $package)), 'invalid link'); $C->{Package} = $package; my @prods = @{ $package->getQuickresellProductList }; return unless @prods; my @objects = map { II48150745e444fb70eb92b141a752448b::IlllIIllIIlIIlIl($II48150745e444fb70eb92b141a752448b::IlllIIlIlllIllII{$II601fa70f090cadcaa1dcddfa68ea7567::lIlllllIllIlIlIl},61,$II48150745e444fb70eb92b141a752448b::IlllIIlIlllIllII{$II601fa70f090cadcaa1dcddfa68ea7567::IlIIlIlllIllIlll})->search( aff_id => $user->id, prod_id => $_->{id}, )->[0] || IIcdb458e6ed5c40b1928de1833ef734bb::llIlIIIlIlllIIII($IIcdb458e6ed5c40b1928de1833ef734bb::llIlIlllIIIIlIII{$IIcdb458e6ed5c40b1928de1833ef734bb::IIlIlIlIIlIIIlII},999,$IIcdb458e6ed5c40b1928de1833ef734bb::llIlIlllIIIIlIII{$IIa7e18da9a1870a23e5d1573a274b9cd7::lIlIlIIIlIIIIIIl})->get("QuickResellDummy$_->{id}")->set( aff_id => $user->id, prod_id => $_->{id} ) } @prods; my @forms; for my $o (@objects) { my $form = $o->getView(II720d6e18aa34327713eb014408fc9144::llllllIIIlIIlIlI($II48150745e444fb70eb92b141a752448b::IlllIIlIlllIllII{$IIcdb458e6ed5c40b1928de1833ef734bb::IlIIllIIIIIIllIl},801,$II48150745e444fb70eb92b141a752448b::IlllIIlIlllIllII{$II601fa70f090cadcaa1dcddfa68ea7567::IIlIIIlIIIlIlIlI})); $form->setPFX($o->{prod_id}); push @forms, $form; } $C->{Forms} = \@forms; return unless $in->{save}; $C->{just_saved} = 1; for my $f (@forms) { $f->process; $C->{just_saved} = 0 if $f->{errors}; } return unless $C->{just_saved}; for my $o (@objects) { if (ref $o eq II8324236447952e569ba90326a60187e9::IllIIIIlllIIlIlI($IIcdb458e6ed5c40b1928de1833ef734bb::IllIIlIIlIIIllIl{$II8324236447952e569ba90326a60187e9::llllIIllllllIlII},999,$IIcdb458e6ed5c40b1928de1833ef734bb::IllIIlIIlIIIllIl{$IIcdb458e6ed5c40b1928de1833ef734bb::llIllIIIIIlIIlll})) { II8324236447952e569ba90326a60187e9::IllIIIIlllIIlIlI($IIa7e18da9a1870a23e5d1573a274b9cd7::lllIIIlIlIIlllll{$IIa7e18da9a1870a23e5d1573a274b9cd7::IlIlIIllIIIlIIIl},61,$IIa7e18da9a1870a23e5d1573a274b9cd7::lllIIIlIlIIlllll{$IIcdb458e6ed5c40b1928de1833ef734bb::lIlllllIIIIIIIII})->get->set($o)->save; } else { $o->save; } } return; } 1; 