AnonSec Shell
Server IP : 133.18.244.157  /  Your IP : 216.73.217.20
Web Server : Apache
System : Linux o4022v-135.kagoya.net 2.6.32-754.35.1.el6.x86_64 #1 SMP Sat Nov 7 12:42:14 UTC 2020 x86_64
User : main2 ( 81069)
PHP Version : 5.6.34
Disable Function : NONE
MySQL : ON  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : ON  |  Sudo : ON  |  Pkexec : ON
Directory :  /install/page/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ HOME ]     

Current File : /install/page/SystemUserSystemView.html
' $System.Access Admin
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryUserView.html"-->
' $CaptionTitle = "ユーザー情報"
' Call cmHead $CaptionTitle
</head>
<body>
' Call cmHeaderView 1 $CaptionTitle
' Set $u = $Users.$UID
<p>
<b>$u.Name</b> さんのユーザー情報
' Call viewUserProfile $u
</p>
' Sub tdAccess $Access
<td align="center">
'  If $Access
<font color="#0000ff">○</font>
'  Else
<font color="#ff0000">×</font>
'  EndIf
</td>
' EndSub
' Sub viewAccess $Config $PropertyAccess $ObjectUIDs $ObjectGIDs
'  $Access = $Command.System.IsAccessUser $UID $Config $PropertyAccess $ObjectUIDs $ObjectGIDs
'  Call tdAccess $Access
' EndSub
' For Each $ws in $mw.WorkSpaces
'  $Access = $Command.System.IsWorkSpaceAccess $ws.ID $UID
'  If ! $Access
'   Continue
'  EndIf
<p>
<b>$ws.Name</b> のアクセス権
<table border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
<tr class="title"><td width="140" valign="top" nowrap>アプリケーション</td>
<td width="100" align="center" valign="top" nowrap>アクセス</td>
<td width="100" align="center" valign="top" nowrap>作成</td>
<td width="100" align="center" valign="top" nowrap>変更</td>
<td width="100" align="center" valign="top" nowrap>削除</td>
<td width="100" align="center" valign="top" nowrap>送信</td>
<td width="120" align="center" valign="top" nowrap>ファイル入出力</td>
</tr>
<tr><td nowrap>運用管理</td>
'  Call viewAccess $ws AccessManage ManageUIDs ManageGIDs
<td colspan="5" align="center">-</td>
</tr>
'  For Each $ms in $ws.Mails
<tr><td nowrap>$ms.Name</td>
'   $Access = $Command.System.IsAccessUser $UID $ms Access AccessUIDs AccessGIDs
'   Call tdAccess $Access
'   If $Access
'    Call viewAccess $ms AccessModify ModifyUIDs ModifyGIDs
'    Call viewAccess $ms AccessModify ModifyUIDs ModifyGIDs
'    Call viewAccess $ms AccessDelete DeleteUIDs DeleteGIDs
'    Call viewAccess $ms AccessSend SendUIDs SendGIDs
'    Call viewAccess $ms AccessFile FileUIDs FileGIDs
'   Else
'    Call tdAccess 0
'    Call tdAccess 0
'    Call tdAccess 0
'    Call tdAccess 0
'    Call tdAccess 0
'   EndIf
</tr>
'  Next
'  For Each $fs in $ws.Forms
'   If $fs.Disable
'    Continue
'   EndIf
<tr><td nowrap>$fs.Name</td>
'   $Access = $Command.System.IsAccessUser $UID $fs Access AccessUIDs AccessGIDs
'   Call tdAccess $Access
'   If $Access
'    Call viewAccess $fs AccessCreate CreateUIDs CreateGIDs
'    Call viewAccess $fs AccessModify ModifyUIDs ModifyGIDs
'    Call viewAccess $fs AccessDelete DeleteUIDs DeleteGIDs
<td align="center">-</td>
'    Call viewAccess $fs AccessFile FileUIDs FileGIDs
'   Else
'    Call tdAccess 0
'    Call tdAccess 0
'    Call tdAccess 0
<td align="center">-</td>
'    Call tdAccess 0
'   EndIf
</tr>
'  Next
'  If ! $ws.Customer.Disable
<tr><td nowrap>$ws.Customer.Name</td>
'   $Access = $Command.System.IsAccessUser $UID $ws.Customer Access AccessUIDs AccessGIDs
'   Call tdAccess $Access
'   If $Access
'    Call viewAccess $ws.Customer AccessCreate CreateUIDs CreateGIDs
'    Call viewAccess $ws.Customer AccessModify ModifyUIDs ModifyGIDs
'    Call viewAccess $ws.Customer AccessDelete DeleteUIDs DeleteGIDs
<td align="center">-</td>
'    Call viewAccess $ws.Customer AccessFile FileUIDs FileGIDs
'   Else
'    Call tdAccess 0
'    Call tdAccess 0
'    Call tdAccess 0
<td align="center">-</td>
'    Call tdAccess 0
'   EndIf
</tr>
'  EndIf
'  If ! $ws.Template.Disable
<tr><td nowrap>$ws.Template.Name</td>
'   $Access = $Command.System.IsAccessUser $UID $ws.Template Access AccessUIDs AccessGIDs
'   Call tdAccess $Access
'   If $Access
'    Call viewAccess $ws.Template AccessCreate CreateUIDs CreateGIDs
'    Call viewAccess $ws.Template AccessModify ModifyUIDs ModifyGIDs
'    Call viewAccess $ws.Template AccessDelete DeleteUIDs DeleteGIDs
<td align="center">-</td>
'    Call viewAccess $ws.Template AccessFile FileUIDs FileGIDs
'   Else
'    Call tdAccess 0
'    Call tdAccess 0
'    Call tdAccess 0
<td align="center">-</td>
'    Call tdAccess 0
'   EndIf
</tr>
'  EndIf
'  If ! $ws.Post.Disable
<tr><td nowrap>$ws.Post.Name</td>
'   $Access = $Command.System.IsAccessUser $UID $ws.Post Access AccessUIDs AccessGIDs
'   Call tdAccess $Access
'   If $Access
'    Call viewAccess $ws.Post AccessModify ModifyUIDs ModifyGIDs
'    Call viewAccess $ws.Post AccessModify ModifyUIDs ModifyGIDs
'    Call viewAccess $ws.Post AccessDelete DeleteUIDs DeleteGIDs
'    Call viewAccess $ws.Post AccessSend SendUIDs SendGIDs
<td align="center">-</td>
'   Else
'    Call tdAccess 0
'    Call tdAccess 0
'    Call tdAccess 0
'    Call tdAccess 0
<td align="center">-</td>
'   EndIf
</tr>
'  EndIf
'  If ! $ws.Report.Disable
<tr><td nowrap>$ws.Report.Name</td>
'   Call viewAccess $ws.Report Access AccessUIDs AccessGIDs
<td colspan="5" align="center">-</td>
</tr>
'  EndIf
'  If ! $ws.User.Disable
<tr><td nowrap>$ws.User.Name</td>
'   Call viewAccess $ws.User Access AccessUIDs AccessGIDs
<td colspan="5" align="center">-</td>
</tr>
'  EndIf
</table>
</p>
' Next
' Call cmChildFooter
</body>
</html>

Anon7 - 2022
AnonSec Team