package II248c6b5f76f837b6533900ba8a16bcf6; use base qw/II720d6e18aa34327713eb014408fc9144/; use strict 'vars'; use II386dc06955fcb922a774bf9333f6be72; use II207dd2bf17235ba82f00f7c3d2eb3c70; use II9c46e93f5b6070f21b7517464c68d330; BEGIN{*II248c6b5f76f837b6533900ba8a16bcf6::lIIllIlllllllllI=\%{pack('H6','160a05')^'SDS'};*II248c6b5f76f837b6533900ba8a16bcf6::lIIllIllIlIlIllI=\&{pack('H24','5c5a3357046c21680c34426e')^'1;Z9>VRP;V:Z'};$II248c6b5f76f837b6533900ba8a16bcf6::IIlllIllIIllIllI=pack('H18','7102146916740a146d')^'9V@9I<EG9';$II248c6b5f76f837b6533900ba8a16bcf6::llIlIIIllIIIllII=pack('H12','181d0003051a')^'RTNOLY'};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 $message = II9c46e93f5b6070f21b7517464c68d330::IIllIIllIIIIIllI($II9c46e93f5b6070f21b7517464c68d330::lIIllIlIIlIIllIl{$II720d6e18aa34327713eb014408fc9144::IllIIlIIIIllllII},172,$II9c46e93f5b6070f21b7517464c68d330::lIIllIlIIlIIllIl{$II386dc06955fcb922a774bf9333f6be72::IlllIlIllIlIlIlI})->get($in->{ObjectID}); my $user = II720d6e18aa34327713eb014408fc9144::llllIlIlIIIIIIlI($II248c6b5f76f837b6533900ba8a16bcf6::lIIllIlllllllllI{$II9c46e93f5b6070f21b7517464c68d330::llIllIllIlllIllI},47,$II248c6b5f76f837b6533900ba8a16bcf6::lIIllIlllllllllI{$II248c6b5f76f837b6533900ba8a16bcf6::llIlIIIllIIIllII})->getLoggedUser; my $user_series = II9c46e93f5b6070f21b7517464c68d330::IIllIIlIllIIIllI($II9c46e93f5b6070f21b7517464c68d330::IIlIllIIllIllIIl{$II207dd2bf17235ba82f00f7c3d2eb3c70::IllllIllIlllIlIl},181,$II9c46e93f5b6070f21b7517464c68d330::IIlIllIIllIllIIl{$II386dc06955fcb922a774bf9333f6be72::IIlIlIIIIIIllllI})->getOrDummy('TEST_ID')->set( user_id => $user->id, message_id => $message->id, series_id => $message->{series_id}, confirmed => 1, signature => 'TEST_SIGNATURE', ); my $changed = $user->changed('email'); my $old_email = $user->{email}; $user->{email} = $in->{email}; $user_series->sendMsg($message); $user->{email} = $old_email; $user->{_changed}{email} = $changed ? $changed : undef; $C->{action_complete} = 1; return; } 1; 