package II0119fecb0b2e4521e3bcf3d40650ce11; use strict 'vars'; use base qw/II5378c588a402eb864fd4f6428e35bad7/; use II040d1645cc3e327e8ed2b5eb9fb581ff; use IIb02f8d3064e235967de5c537b3e7ce9b; BEGIN{*II0119fecb0b2e4521e3bcf3d40650ce11::llIlIIllIIIllIII=\%{pack('H6','0e7b18')^'K5N'};*II0119fecb0b2e4521e3bcf3d40650ce11::llIlIIIIlIIlllII=\&{pack('H24','5c2f2b5e63084772745b4a6c')^'1NB0Y24JC92X'};$II0119fecb0b2e4521e3bcf3d40650ce11::llllIIIlIIlIIIlI=pack('H18','0b6f050314711b1e17')^'C;QSK9TMC';$II0119fecb0b2e4521e3bcf3d40650ce11::IllIIIIIIIIIIIlI=pack('H12','0f1f7a080610')^'EV4DOS'};sub cfg   { II040d1645cc3e327e8ed2b5eb9fb581ff::IIIIIIlIIllIIlII($II0119fecb0b2e4521e3bcf3d40650ce11::llllIIlIIIIllIll{$IIb02f8d3064e235967de5c537b3e7ce9b::lllIIIIIllllIIlI},737,$II0119fecb0b2e4521e3bcf3d40650ce11::llllIIlIIIIllIll{$II040d1645cc3e327e8ed2b5eb9fb581ff::lIlllllIIlIIllll})->cfg } BEGIN{*II0119fecb0b2e4521e3bcf3d40650ce11::IIlIIlIlIlIIIllI=\%{pack('H6','0e0969')^'KG?'};*II0119fecb0b2e4521e3bcf3d40650ce11::IllIIlllllIIlIII=\&{pack('H24','3d203e210d62200604262e62')^'PAWO7XS>3DVV'};$II0119fecb0b2e4521e3bcf3d40650ce11::IIIlllIlIllIIIII=pack('H18','1e6b1d070c0a046b0d')^'V?IWSBK8Y';$II0119fecb0b2e4521e3bcf3d40650ce11::llIIlllIIllIIlIl=pack('H12','78131b707b71')^'2ZU<22'};sub cache { IIb02f8d3064e235967de5c537b3e7ce9b::IIlIIlIllllIllIl($II040d1645cc3e327e8ed2b5eb9fb581ff::lllIIlllllIIIlII{$IIb02f8d3064e235967de5c537b3e7ce9b::IlIIIIlIlllllllI},737,$II040d1645cc3e327e8ed2b5eb9fb581ff::lllIIlllllIIIlII{$II040d1645cc3e327e8ed2b5eb9fb581ff::IIIIIIllllllIIll})->cache } BEGIN{*II0119fecb0b2e4521e3bcf3d40650ce11::llllIIlIIIIllIll=\%{pack('H6','76761f')^'38I'};*II0119fecb0b2e4521e3bcf3d40650ce11::IllIIIIlIIIlllll=\&{pack('H24','345e3e5a7179216e71244d0c')^'Y?W4KCRVFF58'};$II0119fecb0b2e4521e3bcf3d40650ce11::IIIlIIlllIIllIII=pack('H18','72101d616b1b18656d')^':DI14SW69';$II0119fecb0b2e4521e3bcf3d40650ce11::lIllIlIlIIIIIlIl=pack('H12','1a1c031b7804')^'PUMW1G'};sub cron { my $class = shift; my $message; for my $dlv (II0119fecb0b2e4521e3bcf3d40650ce11::llIlIIIIlIIlllII($II5378c588a402eb864fd4f6428e35bad7::lllIlllIllIIlIIl{$II040d1645cc3e327e8ed2b5eb9fb581ff::IIIIlIlIlllIIlll},7,$II5378c588a402eb864fd4f6428e35bad7::lllIlllIllIIlIIl{$II040d1645cc3e327e8ed2b5eb9fb581ff::lIlllllIIlIIllll})->search(type => 'lessonseries', expired => 0)) { my $current_lesson = $dlv->modGetMethod('getCurrentLesson')->do($dlv); if ($current_lesson && $current_lesson->dbc->getValue("select date_add(now(), interval 1 hour)") ge $current_lesson->{display_for}) { my $user = $dlv->getUser; my $series = $current_lesson->getLessonSeries; my $next_lesson = II5378c588a402eb864fd4f6428e35bad7::lIIIIllllIlIlIIl($IIb02f8d3064e235967de5c537b3e7ce9b::lllIIlllllIlIIII{$IIb02f8d3064e235967de5c537b3e7ce9b::llIIIllllllIllIl},143,$IIb02f8d3064e235967de5c537b3e7ce9b::lllIIlllllIlIIII{$IIb02f8d3064e235967de5c537b3e7ce9b::IlIIIlIlllIIIIlI})->search( series_id => $current_lesson->{series_id}, WHERE => "seq > $current_lesson->{seq}", ORDER => "seq", NUM => 1, )->[0]; $message .= "*** NEXT LESSON: $next_lesson->{id} ||" . $current_lesson->dbc->getValue("select date_add(now(), interval 1 hour)") . " || " . $current_lesson->{display_for}; my $from_email = II0119fecb0b2e4521e3bcf3d40650ce11::IllIIIIlIIIlllll($II5378c588a402eb864fd4f6428e35bad7::IIIllIlIlIlIllll{$IIb02f8d3064e235967de5c537b3e7ce9b::IlIIllIllIIlllIl},47,$II5378c588a402eb864fd4f6428e35bad7::IIIllIlIlIlIllll{$II040d1645cc3e327e8ed2b5eb9fb581ff::llIlIIIIIIllllIl})->getMerchantSettings->{from_email}; if ($next_lesson) { II040d1645cc3e327e8ed2b5eb9fb581ff::IllllIIllIIIIIII($IIb02f8d3064e235967de5c537b3e7ce9b::IIIIllIIIlIlIllI{$II040d1645cc3e327e8ed2b5eb9fb581ff::IIlllIIIlIllIIlI},8,$IIb02f8d3064e235967de5c537b3e7ce9b::IIIIllIIIlIlIllI{$II0119fecb0b2e4521e3bcf3d40650ce11::llIIlllIIllIIlIl})->send($user->{email}, $series->{email_next_lesson}, { User => $user->getView, LessonSeries => $series->getView, LessonsURL => $series->getURL($dlv->{id}), NextLessonTime => $current_lesson->{display_for}, NextLessonTitle => $next_lesson->{title}, }); $message .= "\n\n*** NEXT TITLE: $next_lesson->{title} || $user->{email} ||\n\n$series->{email_next_lesson}"; } else { II0119fecb0b2e4521e3bcf3d40650ce11::llIlIIIIlIIlllII($II040d1645cc3e327e8ed2b5eb9fb581ff::lllIIlllllIIIlII{$IIb02f8d3064e235967de5c537b3e7ce9b::llllIIIIlIllIlll},8,$II040d1645cc3e327e8ed2b5eb9fb581ff::lllIIlllllIIIlII{$IIb02f8d3064e235967de5c537b3e7ce9b::IlIlIIIlllIIllII})->send($user->{email}, $series->{email_farewell}, { User => $user->getView, LessonSeries => $series->getView, LessonURL => $series->getURL($dlv->{id}), }); } } } return $message; } 1; 