package IIc73a4dcc2f381f02f5a4de4d23929e48; use strict 'vars'; use base qw/II720d6e18aa34327713eb014408fc9144/; use CGI qw/cookie/; use Zen; BEGIN{*IIc73a4dcc2f381f02f5a4de4d23929e48::llIlIlIIIIIllllI=\%{pack('H6','70066a')^'5H<'};*IIc73a4dcc2f381f02f5a4de4d23929e48::lIlllIlIllIlllII=\&{pack('H24','543b2a240c6f4d0f045e497d')^'9ZCJ6U>73<1I'};$IIc73a4dcc2f381f02f5a4de4d23929e48::lllIIIIIIIlIllII=pack('H18','0c05616c6111036507')^'DQ5<>YL6S';$IIc73a4dcc2f381f02f5a4de4d23929e48::lIlIlIIlIllIlIIl=pack('H12','05730c0c7615')^'O:B@?V'};sub mnt_resolve_perspective { my ($class, $C) = @_; my $in = $C->{INPUT}; my $request = Zen->engine->getRequest; my $coo = $request->getCookie; my $user = $request->getCtx->{UserObj} or die "UserObj is expected in CTX"; my $phnd = $user->getPrivHandler; my $pe; $pe = $coo->{jin_menu}; $pe = 'ma' if $pe ne 'ma' && $pe ne 'me'; if ($phnd->{priv}{master_} && ! $phnd->{priv}{member_}) { $pe = 'ma'; } elsif ($phnd->{priv}{member_} && ! $phnd->{priv}{master_}) { $pe = 'me'; } $coo->{jin_menu} = $pe; printf "Set-Cookie: %s\n", CGI->cookie( -name => 'jin_menu', -value => $pe, -path => '/', -expires => '+5y', ); if ($pe eq 'ma') { $C->{MenuPerspective} = 'MASTER'; $C->{MenuMarkerMaster} = 'On'; $C->{MenuMarkerMember} = 'Off'; } elsif ($pe eq 'me') { $C->{MenuPerspective} = 'MEMBER'; $C->{MenuMarkerMaster} = 'Off'; $C->{MenuMarkerMember} = 'On'; } return; } BEGIN{*IIc73a4dcc2f381f02f5a4de4d23929e48::lIlIIlIlIIlllIII=\%{pack('H6','7a1d1f')^'?SI'};*IIc73a4dcc2f381f02f5a4de4d23929e48::lllIIIlIlIIIIlIl=\&{pack('H24','3d50552609074e6b01292265')^'P1<H3==S6KZQ'};$IIc73a4dcc2f381f02f5a4de4d23929e48::lllllIlIlIlllIll=pack('H18','12666c1d6b0b051407')^'Z28M4CJGS';$IIc73a4dcc2f381f02f5a4de4d23929e48::IllIIIllIlIIllll=pack('H12','1075717f1979')^'Z<?3P:'};sub act_setMasterPerspective { my $class = shift; printf "Set-Cookie: %s\n", CGI->cookie( -name => 'jin_menu', -value => 'ma', -path => '/', -expires => '+5y', ); Zen->engine->getRequest->redirectPOST(II720d6e18aa34327713eb014408fc9144::llllllIIIlIIlIlI($II720d6e18aa34327713eb014408fc9144::llIlIIIlIlIlIlIl{$II720d6e18aa34327713eb014408fc9144::IlIlIllIIIIIllll},47,$II720d6e18aa34327713eb014408fc9144::llIlIIIlIlIlIlIl{$IIc73a4dcc2f381f02f5a4de4d23929e48::lIlIlIIlIllIlIIl})->getURL); return; } BEGIN{*IIc73a4dcc2f381f02f5a4de4d23929e48::lllIllllIIllIlIl=\%{pack('H6','11011f')^'TOI'};*IIc73a4dcc2f381f02f5a4de4d23929e48::llIllIIIllIIIIll=\&{pack('H24','3d242734090e417d0e222a0c')^'PENZ342E9@R8'};$IIc73a4dcc2f381f02f5a4de4d23929e48::IIIlIllllIIIllll=pack('H18','73040064661f1d1e64')^';PT49WRM0';$IIc73a4dcc2f381f02f5a4de4d23929e48::IIlIlIIIIlIllIll=pack('H12','757c0b7e0d02')^'?5E2DA'};sub act_setMemberPerspective { my $class = shift; printf "Set-Cookie: %s\n", CGI->cookie( -name => 'jin_menu', -value => 'me', -path => '/', -expires => '+5y', ); Zen->engine->getRequest->redirectPOST(IIc73a4dcc2f381f02f5a4de4d23929e48::lllIIIlIlIIIIlIl($IIc73a4dcc2f381f02f5a4de4d23929e48::lllIllllIIllIlIl{$II720d6e18aa34327713eb014408fc9144::lIIlIIIIlllIlIII},47,$IIc73a4dcc2f381f02f5a4de4d23929e48::lllIllllIIllIlIl{$II720d6e18aa34327713eb014408fc9144::IIllllllIIllllll})->getURL); return; } 1; 