package II31b05b3cbc19f46265e57795a5de4055; use strict 'vars'; use base qw/II720d6e18aa34327713eb014408fc9144/; use IIa93fbcb8fc9a892558c20a25de3550ec; BEGIN{*II31b05b3cbc19f46265e57795a5de4055::lllIIIlllIIlIlll=\%{pack('H6','057700')^'@9V'};*II31b05b3cbc19f46265e57795a5de4055::IllllIllIIIIIllI=\&{pack('H24','222b3d3a7168380503552b7a')^'OJTTKRK=47SN'};$II31b05b3cbc19f46265e57795a5de4055::lIIlIlIIlIIllIII=pack('H18','741e036b160d080160')^'<JW;IEGR4';$II31b05b3cbc19f46265e57795a5de4055::IIlllIIIIIllllll=pack('H12','0e0b7a7b1f09')^'DB47VJ'};sub mnt_test { my ($class, $C) = @_; my $in = $C->{INPUT}; die 'ObjectID is expected in input' unless $in->{ObjectID}; return unless $in->{email} && $in->{do_it}; my $o = II720d6e18aa34327713eb014408fc9144::IIlllllIlllIIIIl($IIa93fbcb8fc9a892558c20a25de3550ec::IlIIllIIIllllIIl{$II720d6e18aa34327713eb014408fc9144::IIIllIIlIlllIIll},88,$IIa93fbcb8fc9a892558c20a25de3550ec::IlIIllIIIllllIIl{$II720d6e18aa34327713eb014408fc9144::IlIIllIlllllIIll})->get($in->{ObjectID}); $o->send($in->{email}, { User => II720d6e18aa34327713eb014408fc9144::lIIlIIIIllIllIIl($II720d6e18aa34327713eb014408fc9144::lIIllIIIlIlIlIIl{$II720d6e18aa34327713eb014408fc9144::lIIIIllIIllIIIlI},47,$II720d6e18aa34327713eb014408fc9144::lIIllIIIlIlIlIIl{$II720d6e18aa34327713eb014408fc9144::llIlIIIIIIlIIIIl})->getLoggedUser->getView }); $C->{action_complete} = 1; return; } 1; 