package II3395afe2398d6c3a68421770b4319538; use strict 'vars'; use base qw/IIc0dddbcc5525420e139003092ae80eb6/; use IIb39071a48a82a07eeb9256f406abebc5; __PACKAGE__->standardHandler($_, $_ => 'html') for qw/from_string/; BEGIN{*II3395afe2398d6c3a68421770b4319538::llIlllIIIIIIlllI=\%{pack('H6','167104')^'S?R'};*II3395afe2398d6c3a68421770b4319538::IIIIIlIIIIIllIIl=\&{pack('H24','235b5c567f0c447d7b5e340b')^'N:58E67EL<L?'};$II3395afe2398d6c3a68421770b4319538::IIIlIlIlIIIlIllI=pack('H18','06161d696f1d1d101c')^'NBI90URCH';$II3395afe2398d6c3a68421770b4319538::llIIllIlIIIIlIII=pack('H12','7718707e1303')^'=Q>2Z@'};sub getMessage { my $this = shift; my $object = $this->getDecorated; if ($object->{message} =~ /<html>/i || $object->{message} =~ /<body>/i) { $object->{message}; } else { Zen::PerlHandler->get("IIc0dddbcc5525420e139003092ae80eb6::text2html::get")->do($this, 'message'); } } BEGIN{*II3395afe2398d6c3a68421770b4319538::lllIIlIlIlIlIIll=\%{pack('H6','7e7513')^';;E'};*II3395afe2398d6c3a68421770b4319538::llIIIIlllIIlIlll=\&{pack('H24','515b542e030a427675314d0d')^'<:=@901NBS59'};$II3395afe2398d6c3a68421770b4319538::lIIIIIlIIlIllIIl=pack('H18','0303666164027f6f69')^'KW21;J0<=';$II3395afe2398d6c3a68421770b4319538::IIIIIIIlIIIllIll=pack('H12','100303147b04')^'ZJMX2G'};sub getAttachments { my $this = shift; my $object = $this->getDecorated; my $html; my %attach = @{ II3395afe2398d6c3a68421770b4319538::IIIIIlIIIIIllIIl($IIc0dddbcc5525420e139003092ae80eb6::lIlIIIIIIIIIlIlI{$IIb39071a48a82a07eeb9256f406abebc5::lIlIlIllIlllIIII},1004,$IIc0dddbcc5525420e139003092ae80eb6::lIlIIIIIIIIIlIlI{$II3395afe2398d6c3a68421770b4319538::llIIllIlIIIIlIII})->extrArray($object->{attachments}) }; while (my ($k, $v) = each %attach) { my $url = $object->getFilesURI . $k; $html .= "<br>" if $html; $html .= qq(<a href="$url">$v</a>); } $html; } 1; 