package IIe9ed14e25954e4dfbb45ba9ea8fa3fb3; use strict 'vars'; use base qw/II3562149e53818b6637b38680e87ba918/; use IIc184e12a86d0ea457317807f79350b2c; BEGIN{*IIe9ed14e25954e4dfbb45ba9ea8fa3fb3::IlIIllIIlIlIIIII=\%{pack('H6','157e06')^'P0P'};*IIe9ed14e25954e4dfbb45ba9ea8fa3fb3::IIlIIllIIIIIllll=\&{pack('H24','535b3e5804082b070833357f')^'>:W6>2X??QMK'};$IIe9ed14e25954e4dfbb45ba9ea8fa3fb3::IllllllIIIllIIll=pack('H18','74140d156909710201')^'<@YE6A>QU';$IIe9ed14e25954e4dfbb45ba9ea8fa3fb3::IlIllIIlIlIIIIIl=pack('H12','0e787c1d0d12')^'D12QDQ'};sub fields    { qw/ title smtp_server port auth_user auth_pass active tls
/}
BEGIN{*IIe9ed14e25954e4dfbb45ba9ea8fa3fb3::llIllIIIIllIIllI=\%{pack('H6','1f1b19')^'ZUO'};*IIe9ed14e25954e4dfbb45ba9ea8fa3fb3::lIllllllllIllIII=\&{pack('H24','3c5a3e576902487c0128280a')^'Q;W9S8;D6JP>'};$IIe9ed14e25954e4dfbb45ba9ea8fa3fb3::lIlllIlIIllIllIl=pack('H18','7d03170a130c010360')^'5WCZLDNP4';$IIe9ed14e25954e4dfbb45ba9ea8fa3fb3::llIlllllllllllIl=pack('H12','047f0f19197d')^'N6AUP>'};sub required  { qw/title smtp_server/ } BEGIN{*IIe9ed14e25954e4dfbb45ba9ea8fa3fb3::IIIIIllllIIIlllI=\%{pack('H6','780904')^'=GR'};*IIe9ed14e25954e4dfbb45ba9ea8fa3fb3::IlIlIlIlIlllIlll=\&{pack('H24','5c3022230d01426c0430477b')^'1QKM7;1T3R?O'};$IIe9ed14e25954e4dfbb45ba9ea8fa3fb3::IIIIlIlIIllIlIll=pack('H18','191f0518120e781c07')^'QKQHMF7OS';$IIe9ed14e25954e4dfbb45ba9ea8fa3fb3::lIlIllIlIIlIllll=pack('H12','0a731c7b0305')^'@:R7JF'};sub namesResourcePrefix { 'field.smtp_server' } __PACKAGE__->standardHandler($_, $_ => 'checkbox') for qw/active tls/; BEGIN{*IIe9ed14e25954e4dfbb45ba9ea8fa3fb3::lIlIIlIlIIllIlll=\%{pack('H6','1f7d05')^'Z3S'};*IIe9ed14e25954e4dfbb45ba9ea8fa3fb3::lIIlIllIIIllllIl=\&{pack('H24','28202155020e456e0022367d')^'EAH;846V7@NI'};$IIe9ed14e25954e4dfbb45ba9ea8fa3fb3::lIlIllIlllllIIII=pack('H18','061b10096c0b161806')^'NODY3CYKR';$IIe9ed14e25954e4dfbb45ba9ea8fa3fb3::lIIlIIlIIIIlIlIl=pack('H12','7c1b17020009')^'6RYNIJ'};sub process { my $this = shift; $this->SUPER::process; my $object = $this->getDecorated; if ($object->{smtp_server}) { eval { local $SIG{__DIE__} = 'DEFAULT'; II3562149e53818b6637b38680e87ba918::IlllIlllIIlllIlI($IIc184e12a86d0ea457317807f79350b2c::IIllIIIlllIllIIl{$IIe9ed14e25954e4dfbb45ba9ea8fa3fb3::IIIIlIlIIllIlIll},168,$IIc184e12a86d0ea457317807f79350b2c::IIllIIIlllIllIIl{$IIe9ed14e25954e4dfbb45ba9ea8fa3fb3::lIlIllIlIIlIllll})->send( no_die => 1, to => IIc184e12a86d0ea457317807f79350b2c::lllIIllIIlIIIIII($II3562149e53818b6637b38680e87ba918::IlIIIlIIIIIlIlIl{$II3562149e53818b6637b38680e87ba918::llIlIIlIlIlIllll},47,$II3562149e53818b6637b38680e87ba918::IlIIIlIIIIIlIlIl{$II3562149e53818b6637b38680e87ba918::IIlIllIIIlllIlll})->getLoggedUser->{email}, subject => "Test from Delavo", msg => 'Testing SMTP connection', smtp => $object->{smtp_server}, auth_user => $object->{auth_user}, auth_pass => $object->{auth_pass}, is_tls => $object->{tls}, port => $object->{port} ); }; if ($@) { my $errmsg = $@; $this->addError(__PACKAGE__->message('msg.error', $errmsg)) } } return; } 1; 