package IIb02f8d3064e235967de5c537b3e7ce9b::mod_aweber; use strict; use IIc184e12a86d0ea457317807f79350b2c; use II601fa70f090cadcaa1dcddfa68ea7567; sub cfgEditCtime { 0 } sub createAllForSale { my $class = shift; my ($dlv_class, $sale) = @_; my $pack = $sale->getOrder->getPackage; $dlv_class->create($sale->getUser, 'aweber', $pack->id, $sale->getValidUntilDate, $sale->id); return; } sub save { my $class = shift; my $dlv_object = shift; return; } sub delete { my $class = shift; my $dlv_object = shift; return; } sub activateDlv { my $class = shift; my $dlv_object = shift; return; } sub deactivateDlv { my $class = shift; my $dlv_object = shift; my $pack = IIb39071a48a82a07eeb9256f406abebc5::IlIlIlllIllIlIII($II982446f8950cc3dc59e487adba22df54::IIlIllIIIllllIIl{$II8dae0e141ee45f5daba6a74e4a7c3b6f::IIIIlIIlIIIIIIIl},33,$II982446f8950cc3dc59e487adba22df54::IIlIllIIIllllIIl{$II982446f8950cc3dc59e487adba22df54::IlllIIIIllIIlIII})->getOrDummy($dlv_object->{obj_id}); my $as = $pack->getAweberSettings; my $from = $as->{unsub_from}; my $to = $as->{unsub_to}; my $subject = $as->{unsub_subject}; my $customer = $dlv_object->getUser; my $sale = $dlv_object->getSale; my $affiliate = $sale->getAffUser; my $order = $sale->getOrder; my $C = { Affiliate => $affiliate->getView, Customer => $customer->getView, Order => $order->getView, Package => $pack->getView, Sale => $sale->getView, }; for ($from, $to, $subject) { s/\#\{(\w+)\.(\w+)\}/$C->{$1}{$2}/g; s/\[\[(\w+)\.(\w+)\]\]/$C->{$1}{$2}/g; } II982446f8950cc3dc59e487adba22df54::IlIlllIlIIlIllll($II8dae0e141ee45f5daba6a74e4a7c3b6f::lIlllIIIlIlIlIII{$II982446f8950cc3dc59e487adba22df54::llIlIIlllIlIlIlI},168,$II8dae0e141ee45f5daba6a74e4a7c3b6f::lIlllIIIlIlIlIII{$II8dae0e141ee45f5daba6a74e4a7c3b6f::IlIlIlIIIIllIIIl})->send( from => $from, to => $to, subject => $subject, no_jin_signature => 1, ); return; } sub deleteDlv { my $class = shift; my $dlv_object = shift; $class->deactivateDlv($dlv_object); return; } sub getStoreObject { my $class = shift; my $dlv_object = shift; II982446f8950cc3dc59e487adba22df54::IIlllIlIIllIIlll($II720d6e18aa34327713eb014408fc9144::lIIllllIllIlIIlI{$IIb39071a48a82a07eeb9256f406abebc5::IlIlIIIIlllIIIlI},33,$II720d6e18aa34327713eb014408fc9144::lIIllllIllIlIIlI{$IIb39071a48a82a07eeb9256f406abebc5::IIllllIIllIlIlll})->getOrDummy($dlv_object->{obj_id}); } sub getTitle { my $class = shift; my $dlv_object = shift; IIb39071a48a82a07eeb9256f406abebc5::IlIlIlllIllIlIII($II720d6e18aa34327713eb014408fc9144::lIIllllIllIlIIlI{$II720d6e18aa34327713eb014408fc9144::IlIlllIIllllllll},33,$II720d6e18aa34327713eb014408fc9144::lIIllllIllIlIIlI{$II8dae0e141ee45f5daba6a74e4a7c3b6f::IlIlllllIllIIlIl})->getOrDummy($dlv_object->{obj_id})->{title}; } 1; 