package II7eef1f7d09a17d3ab7cb913dc2e5e232; use strict 'vars'; use base qw/II720d6e18aa34327713eb014408fc9144/; use II982446f8950cc3dc59e487adba22df54; use II830e9425c77da48deab79750d2477711; use II040d1645cc3e327e8ed2b5eb9fb581ff; use II77114b714a39e42fc97ed5e1b40c0582; BEGIN{*II7eef1f7d09a17d3ab7cb913dc2e5e232::lllIlIIIlIllIIll=\%{pack('H6','7c1d06')^'9SP'};*II7eef1f7d09a17d3ab7cb913dc2e5e232::IIIlIIlIlllIIIIl=\&{pack('H24','595921390a014c090f25206e')^'48HW0;?18GXZ'};$II7eef1f7d09a17d3ab7cb913dc2e5e232::IlIlIIlIlIIIlIIl=pack('H18','701b64196b1f006412')^'8O0I4WO7F';$II7eef1f7d09a17d3ab7cb913dc2e5e232::lIIIIIIlIlIlllll=pack('H12','7a02767e070d')^'0K82NN'};sub act_activate { my $class = shift; my ($in) = Zen->getRequest->getInput; my $coupon = II7eef1f7d09a17d3ab7cb913dc2e5e232::IllllllIlIllIIII($II7eef1f7d09a17d3ab7cb913dc2e5e232::IlllIlIIlIIIllIl{$II040d1645cc3e327e8ed2b5eb9fb581ff::IlIIlllIIIIIIlll},16,$II7eef1f7d09a17d3ab7cb913dc2e5e232::IlllIlIIlIIIllIl{$II040d1645cc3e327e8ed2b5eb9fb581ff::llIlIIIIIIllllIl})->get($in->{id}); $coupon->checkValidForRequest; $coupon->{active} = $in->{active} ? 1 : 0; $coupon->save; Zen->getRequest->redirect(II830e9425c77da48deab79750d2477711::lllIlIIIIIIIIlIl($II040d1645cc3e327e8ed2b5eb9fb581ff::lIllIIIlIllIIlIl{$II040d1645cc3e327e8ed2b5eb9fb581ff::IlIIlllIIIIIIlll},47,$II040d1645cc3e327e8ed2b5eb9fb581ff::lIllIIIlIllIIlIl{$II77114b714a39e42fc97ed5e1b40c0582::IlIlIIlIIIIIlIlI})->getURL . "/master/tools/coupons.html?flush"); } BEGIN{*II7eef1f7d09a17d3ab7cb913dc2e5e232::IlllIlIIlIIIllIl=\%{pack('H6','747f6e')^'118'};*II7eef1f7d09a17d3ab7cb913dc2e5e232::IllllllIlIllIIII=\&{pack('H24','2c35575b0b714005792a3662')^'AT>51K3=NHNV'};$II7eef1f7d09a17d3ab7cb913dc2e5e232::lIIllllIlIlIlIlI=pack('H18','0962061c607f7a6b1d')^'A6RL?758I';$II7eef1f7d09a17d3ab7cb913dc2e5e232::IlIIIllllllllIIl=pack('H12','1274170d7e09')^'X=YA7J'};sub act_mail_offer { my $class = shift; my ($in) = Zen->getRequest->getInput; my $coupon = II040d1645cc3e327e8ed2b5eb9fb581ff::lIllllIIIllllIlI($II7eef1f7d09a17d3ab7cb913dc2e5e232::IlllIlIIlIIIllIl{$II7eef1f7d09a17d3ab7cb913dc2e5e232::IlIlIIlIlIIIlIIl},16,$II7eef1f7d09a17d3ab7cb913dc2e5e232::IlllIlIIlIIIllIl{$II040d1645cc3e327e8ed2b5eb9fb581ff::lIlllllIIlIIllll})->get($in->{id}); $coupon->checkValidForRequest; my $couponV = $coupon->getView; my $to = $in->{to} eq 'cust' ? 'cust' : 'aff'; my $emailbody = $coupon->{"email_$to"}; for ($emailbody) { s/\#\{Coupon.(\w+)\}/$couponV->{$1}/g; s/\#\{ENV.(\w+)\}/$ENV{$1}/g; } my ($subject, $message) = split /\r?\n\r?\n/, $emailbody, 2; $subject =~ s/\s*subject\:\s*//i; my ($signature, $signatureCtx); my $signature = II7eef1f7d09a17d3ab7cb913dc2e5e232::IIIlIIlIlllIIIIl($II830e9425c77da48deab79750d2477711::IIllIlllIIllIIll{$II982446f8950cc3dc59e487adba22df54::llIIIllIlllIllII},8,$II830e9425c77da48deab79750d2477711::IIllIlllIIllIIll{$II77114b714a39e42fc97ed5e1b40c0582::IlIlIllIIIlIlllI})->getAdminRecord->{footermassmail}; my $signatureCtx = { opt_out_url => II77114b714a39e42fc97ed5e1b40c0582::llIlIllIlllIIlIl($II720d6e18aa34327713eb014408fc9144::lIIIlllIllIIlllI{$II77114b714a39e42fc97ed5e1b40c0582::lllIIlllIIIlllII},47,$II720d6e18aa34327713eb014408fc9144::lIIIlllIllIIlllI{$II830e9425c77da48deab79750d2477711::IIlIlIIIIIlllIll})->getURI . "/auth/optoutmail.html?A:#{id}:#{signature}", }; for ($signature) { s/^[\s\r\n]+//; s/[\s\r\n]+$//; s/\#\{(\w+)\}/$signatureCtx->{$1}/g; } $message .= "\n$signature"; my $list = $to eq 'cust' ? $coupon->listCustomers : $coupon->listAffiliates; my $job_id = II7eef1f7d09a17d3ab7cb913dc2e5e232::IllllllIlIllIIII($II830e9425c77da48deab79750d2477711::lIIIlIlllIlIlIlI{$II7eef1f7d09a17d3ab7cb913dc2e5e232::IlIlIIlIlIIIlIIl},29,$II830e9425c77da48deab79750d2477711::lIIIlIlllIlIlIlI{$II040d1645cc3e327e8ed2b5eb9fb581ff::lIlllllIIlIIllll})->saveJob( 'text', $subject, $message, [ grep { ! $_->{no_admin_mail} } @$list ], ); my $url = '/master/users/massmail/job.html'; Zen->getRequest->redirect(II040d1645cc3e327e8ed2b5eb9fb581ff::IIIIIIlIIllIIlII($II77114b714a39e42fc97ed5e1b40c0582::lllIlIlIlIlIIlII{$II77114b714a39e42fc97ed5e1b40c0582::IlIIllIlIlIllIII},47,$II77114b714a39e42fc97ed5e1b40c0582::lllIlIlIlIlIIlII{$II77114b714a39e42fc97ed5e1b40c0582::IlIlIllIIIlIlllI})->getURL . "$url?job=$job_id"); } 1; 