package II1003c7916d452382fa26bb78749d6aa4; use strict 'vars'; use base qw/II3562149e53818b6637b38680e87ba918/; use II982446f8950cc3dc59e487adba22df54; use II13f08045bb56858ecda5a9ccd642c6bc; use IId2661407bcab8ad6600346c26bc31532; use II040d1645cc3e327e8ed2b5eb9fb581ff; BEGIN{*II1003c7916d452382fa26bb78749d6aa4::IlIlIIlIlIlIIIlI=\%{pack('H6','051904')^'@WR'};*II1003c7916d452382fa26bb78749d6aa4::llllIIlllIlIlllI=\&{pack('H24','50595e38780e3b6103503973')^'=87VB4HY42AG'};$II1003c7916d452382fa26bb78749d6aa4::IlIlIIIIIllIIIII=pack('H18','73060509667a0e076d')^';RQY92AT9';$II1003c7916d452382fa26bb78749d6aa4::lIlIIllIlllIlIIl=pack('H12','037c74057202')^'I5:I;A'};sub fields    { qw/ signature footermassmail footerdownline user_register user_register_confirm user_remindpasswd user_changeemail user_import user_logindata approvals_affprog_due approvals_affprog_approved approvals_affprog_rejected approvals_affprog_suspended approvals_role_due approvals_role_approved approvals_role_rejected sale_paidcustomer sale_customerreceipt_recurring sale_paidadmin sale_paidowner sale_echeckfailed access_minisite comm_created comm_createdrecur comm_referral comm_refunded jventure_product_added jventure_product_modified jventure_product_reqmod jventure_product_approved / } our %EMAIL_PRIVS = qw( user_import						master_users_import approvals_role_due				master_users_roles approvals_role_approved			master_users_roles approvals_role_rejected			master_users_roles access_minisite					master_store_minisites jventure_product_added			master_store_jvproducts jventure_product_modified		master_store_jvproducts jventure_product_reqmod			master_store_jvproducts jventure_product_approved		master_store_jvproducts ); BEGIN{*II1003c7916d452382fa26bb78749d6aa4::lIlIlIlIlllIIlIl=\%{pack('H6','1c1403')^'YZU'};*II1003c7916d452382fa26bb78749d6aa4::lllIlIllIIlIIIll=\&{pack('H24','5335542e706e367e7b563502')^'>T=@JTEFL4M6'};$II1003c7916d452382fa26bb78749d6aa4::IIlIIlIIlllIIIll=pack('H18','791b6e1e071a00096e')^'1O:NXROZ:';$II1003c7916d452382fa26bb78749d6aa4::IlIIlIIIlIlIlIIl=pack('H12','720e1b7b7711')^'8GU7>R'};sub namesResourcePrefix { 'field.embedded_email' } __PACKAGE__->standardHandler($_, $_ => 'textarea(10, 70)') for qw/signature footermassmail footerdownline/; for my $f (grep { $_ ne 'signature' && $_ ne 'footermassmail' && $_ ne 'footerdownline' } __PACKAGE__->getAvailableFields)
{ no strict 'refs'; *{'get'.ucfirst($f)} = sub { IId2661407bcab8ad6600346c26bc31532::_form_get($f, 'global', $_[0], $f) }; *{'set'.ucfirst($f)} = sub { IId2661407bcab8ad6600346c26bc31532::_form_set($f, 'global', $_[0], $f, $_[1]) }; } BEGIN{*II1003c7916d452382fa26bb78749d6aa4::llIIlIlllIIIIlIl=\%{pack('H6','1d1662')^'XX4'};*II1003c7916d452382fa26bb78749d6aa4::lIlllIllIllIlIlI=\&{pack('H24','3528592c607449750d2b2e77')^'XI0BZN:M:IVC'};$II1003c7916d452382fa26bb78749d6aa4::IlIlIlIlIlIlIlIl=pack('H18','7314056a61190c160d')^';@Q:>QCEY';$II1003c7916d452382fa26bb78749d6aa4::llIlIIIIIIllIIll=pack('H12','7371790b091b')^'987G@X'};sub getAvailableFields { my $class = shift; my $UserPrivs = II13f08045bb56858ecda5a9ccd642c6bc::IlIIlIIlllIllIIl($II982446f8950cc3dc59e487adba22df54::IIllllIlIIIIIlll{$II1003c7916d452382fa26bb78749d6aa4::IlIlIlIlIlIlIlIl},47,$II982446f8950cc3dc59e487adba22df54::IIllllIlIIIIIlll{$II982446f8950cc3dc59e487adba22df54::lIIlIIIIIlIlIllI})->getLoggedUser->getPrivs; return grep { $EMAIL_PRIVS{$_} ? $UserPrivs->{$EMAIL_PRIVS{$_}} : 1 } $class->fields; } BEGIN{*II1003c7916d452382fa26bb78749d6aa4::IIlIllIlIIlIllll=\%{pack('H6','037e6d')^'F0;'};*II1003c7916d452382fa26bb78749d6aa4::llIllllIlIlIllIl=\&{pack('H24','54262a246e7a3c756e2e2274')^'9GCJT@OMYLZ@'};$II1003c7916d452382fa26bb78749d6aa4::IllIIIIIIIlIIIII=pack('H18','7d601d071e7c796918')^'54IWA46:L';$II1003c7916d452382fa26bb78749d6aa4::IllllIllIlIIIIll=pack('H12','757b760e1d73')^'?28BT0'};sub _form_get { my ($type, $form, $f) = @_; my $object = $form->getDecorated; my ($headers, $body) = split /\r?\n\r?\n/, $object->{$f}, 2; my %headers = map { split /\:\s*/, $_, 2 } split /\r?\n/, $headers; my $G = IId2661407bcab8ad6600346c26bc31532::llllIIIlIlIlIIII($IId2661407bcab8ad6600346c26bc31532::IllIlIlIlllIllII{$II13f08045bb56858ecda5a9ccd642c6bc::IllIIIIIIlIllIlI},987,$IId2661407bcab8ad6600346c26bc31532::IllIlIlIlllIllII{$IId2661407bcab8ad6600346c26bc31532::IlIIIIIllIllIIII})->get("/misc/form_embedded_email.html", { ReadableHTML => 1 }); my $out = $G->execute({ Field => $f, TagsHelp => ( II982446f8950cc3dc59e487adba22df54::IIIlIIlIllIIIlIl($II040d1645cc3e327e8ed2b5eb9fb581ff::lllIIlllllIIIlII{$II982446f8950cc3dc59e487adba22df54::IllllIlIIIlIIIII},987,$II040d1645cc3e327e8ed2b5eb9fb581ff::lllIIlllllIIIlII{$II1003c7916d452382fa26bb78749d6aa4::IlIIlIIIlIlIlIIl})->get("/help/tagshelp/tmpl_mail_$type.html") ? sprintf(qq(%s<br><a href="#" onClick="jinPopWin('/help/tagshelp.html?ident=mail_$type'); return false">%s</a>), __PACKAGE__->message('template.message.tags_help1'), __PACKAGE__->message('template.message.tags_help2')) : __PACKAGE__->message('template.message.tags_help1') ), MsgSubject => __PACKAGE__->message('embedded_email.subject'), SubjectEnc => IId2661407bcab8ad6600346c26bc31532::llIIIIIlIllIlllI($II040d1645cc3e327e8ed2b5eb9fb581ff::IIlIlIIlIIIIlIII{$IId2661407bcab8ad6600346c26bc31532::llIlIlllIllIIllI},1016,$II040d1645cc3e327e8ed2b5eb9fb581ff::IIlIlIIlIIIIlIII{$II1003c7916d452382fa26bb78749d6aa4::IlIIlIIIlIlIlIIl})->HTMLEncode($headers{Subject}), MsgMessage => __PACKAGE__->message('embedded_email.message'), MessageEnc => IId2661407bcab8ad6600346c26bc31532::llllIIIlIlIlIIII($II1003c7916d452382fa26bb78749d6aa4::IlllIlllIlllllIl{$II982446f8950cc3dc59e487adba22df54::IIIllIlIlIIIllII},1016,$II1003c7916d452382fa26bb78749d6aa4::IlllIlllIlllllIl{$II1003c7916d452382fa26bb78749d6aa4::llIlIIIIIIllIIll})->HTMLEncode($body), Disabled => ($headers{'X-Disabled'} ? 'checked' : ''), MsgDisabled => __PACKAGE__->message('embedded_email.disabled'), }); $out ? join('', @$out) : ''; } BEGIN{*II1003c7916d452382fa26bb78749d6aa4::IlllIlllIlllllIl=\%{pack('H6','051a1a')^'@TL'};*II1003c7916d452382fa26bb78749d6aa4::IIIllllllIllIlll=\&{pack('H24','59522b3e09024176045e3462')^'43BP382N3<LV'};$II1003c7916d452382fa26bb78749d6aa4::IlIllIlllIIIllll=pack('H18','0c66051d690104670e')^'D2QM6IK4Z';$II1003c7916d452382fa26bb78749d6aa4::lIIIlIIlIIIlIlIl=pack('H12','130b7b081e74')^'YB5DW7'};sub _form_set { my ($type, $form, $f, $v) = @_; my $object = $form->getDecorated; my $code = ''; $code .= "X-Disabled: yes\n" if $v->{disabled}; $code .= $v->{subject} || $v->{message} ? "Subject: $v->{subject}\n\n$v->{message}" : II982446f8950cc3dc59e487adba22df54::lIlllIllllIlIIlI($II3562149e53818b6637b38680e87ba918::IlIlIlllIlllllII{$II3562149e53818b6637b38680e87ba918::llIlIIlIlIlIllll},8,$II3562149e53818b6637b38680e87ba918::IlIlIlllIlllllII{$II3562149e53818b6637b38680e87ba918::lIIlIIlllIIllIll})->getDefault($type); $object->{$f} = $code; return; } 1; 