''<!------------------------------------------------------------------
''  Slashでの設定情報を取得する
''  構文：Call loadSlashInfo
''  出力：
''    $cmGaroonAvail  ：ガルーンを利用できれば1
''    $cmOfficeAvail  ：Office  を利用できれば1
''    $cmKintoneAvail ：kintone を利用できれば1
''    $cmHasSkylabCert：Skylab  を利用できれば1
''------------------------------------------------------------------->
' Sub loadSlashInfo
''
'' 5分以内ならセッションのキャッシュから読み出す
'  var $localCheckedTime = $Session.Header.SlashCheckedTime
'  If $localCheckedTime
'   var $localExpireTime = $localCheckedTime
'   Inc $localExpireTime 300
''
''  Inc 0をする事で数値と解釈してもらえるようになる。
'   var $localTimeStamp = $TimeStamp
'   Inc $localTimeStamp 0
''
'   If $localTimeStamp < $localExpireTime
'    $cmGaroonAvail = $Session.Header.GaroonAvail
'    $cmOfficeAvail = $Session.Header.OfficeAvail
'    $cmKintoneAvail = $Session.Header.KintoneAvail
'    $cmHasSkylabCert = $Session.Header.HasSkylabCert
'    Exit
'   EndIf
'  EndIf
''
'' Slashから読み出し
'  $cmGaroonAvail = $Command.Cloud.GetService garoon
'  $cmOfficeAvail = $Command.Cloud.GetService office
'  $cmKintoneAvail = $Command.Cloud.GetService kintone
'  $cmHasSkylabCert = $Command.Cloud.HasSkylabCert
''
'' セッションにキャッシュ
'  If ! $Session.Header
'   Set $Session.Header = $System.CreateObject Object Session
'  EndIf
'  $Session.Header.SlashCheckedTime = $TimeStamp
'  $Session.Header.GaroonAvail = $cmGaroonAvail
'  $Session.Header.OfficeAvail = $cmOfficeAvail
'  $Session.Header.KintoneAvail = $cmKintoneAvail
'  $Session.Header.HasSkylabCert = $cmHasSkylabCert
' EndSub
''
''<!------------------------------------------------------------------
''  利用可能なサービスの一覧を表示
''  構文：Call headerNotifier
''------------------------------------------------------------------->
' Sub headerNotifier
'  If ! $Login.ID
'   Exit
'  EndIf
'  If ! $System.IsCloud
'   Exit
'  EndIf
'  Call loadSlashInfo
<ul class="header-notifier-list clearfix">\\
'  If $cmGaroonAvail
<li><a class="header-notifier-garoon" href="/g/"></a></li>\\
'  EndIf
'  If $cmOfficeAvail
<li><a class="header-notifier-office" href="/o/"></a></li>\\
'  EndIf
'  If $cmKintoneAvail
<li><a class="header-notifier-kintone" href="/k/"></a></li>\\
'  EndIf
<li><a class="header-notifier-mailwise header-notifier-here" href="/m/"></a></li>\\
</ul>
' EndSub
''
''<!------------------------------------------------------------------
''  メニューを表示
''  構文：Call headerMenu
''------------------------------------------------------------------->
' Sub headerMenu
'  If $VID
'   Exit
'  EndIf
<ul id="header-menulist" class="header-menubar clearfix">\\
'  Call headerLinkMenu
'  Call headerSpaceMenu
'  Call headerPersonalMenu
'  Call headerSystemMenu
</ul>
' EndSub
''
''<!------------------------------------------------------------------
''  共有リンク、アプリケーションメニューを表示
''  構文：Call headerLinkMenu
''------------------------------------------------------------------->
'  Sub headerLinkMenu
'   If ! $Login.ID
'    Exit
'   EndIf
'   var Set $cmWS = $mw.WorkSpaces.$WID
'   If ! $cmWS
'    Exit
'   EndIf
''
'   $System.SetParameter cmWSView "View$WID"
'   var Set $cmView = $Login.$cmWSView
''
'   var $hideAppmenu = $cmView.HideAppmenu
'   var $showApplicationLink = 0
''
'   If ( $WorkSpace.Mails.Count > 0 ) and ( ( $cmView.Mails.Count > 0 ) or $hideAppmenu )
'    $showApplicationLink = 1
'   ElIf ( $WorkSpace.Forms.Count > 0 ) and ( ( $cmView.Forms.Count > 0 ) or $hideAppmenu )
'    $showApplicationLink = 1
'   ElIf ( ! $Workspace.Customer.Disable ) and ( $cmView.Customer or $hideAppmenu )
'    $showApplicationLink = 1
'   ElIf ( ! $Workspace.Templace.Disable and ! $VID ) and ( $cmView.Template or $hideAppmenu )
'    $showApplicationLink = 1
'   ElIf ( ! $Workspace.Post.Disable ) and ( $cmView.Post or $hideAppmenu )
'    $showApplicationLink = 1
'   ElIf ( ! $Workspace.Report.Disable ) and ( $cmView.Report or $hideAppmenu )
'    $showApplicationLink = 1
'   ElIf ( ! $Workspace.User.Disable ) and ( $cmView.User or $hideAppmenu )
'    $showApplicationLink = 1
'   EndIf
''
'   var $localStyleDisplay
'   If ( ! ( $cmWS.Links.Count > 0 ) ) and ( ! $showApplicationLink )
'    $localStyleDisplay = "display: none;"
'   EndIf
''
<li id="link-menu" class="header-menu-item" style="$localStyleDisplay">\\
<a href="javascript:void(0);" class="header-menu-label"><span class="header-menu-caption">リンク</span><span class="header-dropdown"></span></a>\\
<div id="link-submenu" class="header-submenu" style="display: none;">\\
''
'   If $cmWS.Links.Count > 0
<ul>\\
'    For Each $Link in $cmWS.Links
<li class="header-submenu-item"><a href="$Link.URL" target="_blank">$Link.Name</a></li>\\
'    Next
</ul>\\
'   EndIf
''
'   Sub applicationLink $argHref $argTitle $argDisable $argDisplay $argHideAppmenu
'    If $argDisable
'     Exit
'    EndIf
'    var $localDisplayClass = ""
'    If ! $argDisplay
'     If ! $argHideAppmenu
'      $localDisplayClass = "header-submenu-item-link-on-appmenu header-submenu-item-hidden"
'     Else
'      $localDisplayClass = "header-submenu-item-link-on-appmenu"
'     EndIf
'    EndIf
<li class="header-submenu-item $localDisplayClass"><a href="$argHref">$argTitle</a></li>\\
'   EndSub
''
'   If ! $IsAdminPage
'    var $localDisplayClass = ""
'    If ! $showApplicationLink
'     $localDisplayClass = "header-submenu-item-hidden"
'    EndIf
<ul id="link-submenu-applink-list" class="$localDisplayClass">\\
''
'    var $v = ""
'    var $localDisable = 0
'    For Each $v in $WorkSpace.Mails
'     var $localDisplay = $cmView.Mails.Contains $v.ID
'     Call applicationLink "$Server?page=MailIndex&wid=$WID&bs=$v.ID&vid=$VID" $v.Name 0 $localDisplay $hideAppmenu
'    Next
'    For Each $v in $WorkSpace.Forms
'     var $localDisplay = $cmView.Forms.Contains $v.ID
'     Call applicationLink "$Server?page=FormIndex&wid=$WID&bs=$v.ID&vid=$VID" $v.Name 0 $localDisplay $hideAppmenu
'    Next
'    Call applicationLink "$Server?page=CustomerIndex&wid=$WID&vid=$VID" $WorkSpace.Customer.Name $WorkSpace.Customer.Disable $cmView.Customer $hideAppmenu
'    If $WorkSpace.Template.Disable or $VID
'     $localDisable = 1
'    Else
'     $localDisable = 0
'    EndIf
'    Call applicationLink "$Server?page=TemplateIndex&wid=$WID" $WorkSpace.Template.Name $localDisable $cmView.Template $hideAppmenu
'    Call applicationLink "$Server?page=PostIndex&wid=$WID&vid=$VID" $WorkSpace.Post.Name $WorkSpace.Post.Disable $cmView.Post $hideAppmenu
'    Call applicationLink "$Server?page=ReportIndex&wid=$WID&vid=$VID" $WorkSpace.Report.Name $WorkSpace.Report.Disable $cmView.Report $hideAppmenu
'    Call applicationLink "$Server?page=UserIndex&wid=$WID&vid=$VID" $WorkSpace.User.Name $WorkSpace.User.Disable $cmView.user $hideAppmenu
</ul>\\
'   EndIf
</div></li>
'  EndSub
''
''<!------------------------------------------------------------------
''  メールスペースメニューを表示
''  構文：Call headerSpaceMenu
''------------------------------------------------------------------->
'  Sub headerSpaceMenu
'   If ! $Login.ID
'    Exit
'   EndIf
'   If $WSCount <= 0
'    Exit
'   EndIf
<li id="mailspace-menu" class="header-menu-item">\\
<a href="javascript:void(0);" class="header-menu-label"><span class="header-menu-caption">メールスペース</span><span class="header-dropdown"></span></a>\\
<div id="mailspace-submenu" class="header-submenu" style="display: none;">\\
<ul><li class="header-submenu-item"><a href="$Server?page=MWIndex">メールスペースの切替</a></li></ul>\\
'    var $localUL = 0
'    var $localWS = ""
'    For Each $localWS in $mw.WorkSpaces
'     $Access = $Command.System.IsWorkSpaceAccess $localWS.ID $Login.ID
'     If ! $Access
'      Continue
'     EndIf
'     If ! $localUL
<ul>\\
'      $localUL = 1
'     EndIf
<li class="header-submenu-item"><a href="$Server?wid=$localWS.ID">$localWS.Name</a></li>\\
'    Next
'    If $localUL
</ul>
'    EndIf
'    If $WID
'     If $WorkSpace.IsAccessManage
<ul><li class="header-submenu-item"><a href="$Server?page=ManageAdmin&wid=$WID&id=$BS">運用管理</a></li></ul>
'     EndIf
'    EndIf
</div></li>
'  EndSub
''
''<!------------------------------------------------------------------
''  個人メニューを表示
''  構文：Call headerPersonalMenu
''------------------------------------------------------------------->
'  Sub headerPersonalMenu
'   If ! $Login.ID
'    Exit
'   EndIf
'   var $localWID = $WID
'   Init $localWID = $Profile.WorkSpaces.Head
<li id="account-menu" class="header-menu-item">\\
'   var $localLogoutOnClick = ""
'   If $System.IsCloudUserAdmin
'    $localLogoutOnClick = "mw.cloudLogout(); return false;"
'   Else
'    $localLogoutOnClick = "LogoutForm.submit();"
<form method="post" action="$Server?" name="LogoutForm">\\
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">\\
<input type="hidden" name="_System" value="Login">\\
<input type="hidden" name="_Logout" value="1">\\
</form>\\
'   EndIf
<a href="javascript:void(0);" class="header-menu-label header-menu-label-user">\\
'   If $System.IsCloudUserAdmin
'    var $localEncodedCloudUID = $Command.String.EncodeURLEncode $Login.CloudUID
'    var $localEncodedHash = $Command.String.EncodeURLEncode $Login.MTime
'   EndIf
'   If $System.IsCloudUserAdmin
<img src="/api/user/photo.do/-/user.png?id=$localEncodedCloudUID&hash=$localEncodedHash&size=NORMAL&.png" width="16" height="16"/>
'   Else
'    Call cmImage "comHeader_defaulticon_small.png" "" "" 16 16
'   EndIf
<span class="header-menu-caption">$Login.Name</span><span class="header-dropdown"></span></a>\\
<div id="account-submenu" class="header-submenu" style="display: none;">\\
<div class="account-profile clearfix">\\
'   If $System.IsCloudUserAdmin
<img src="/api/user/photo.do/-/user.png?id=$localEncodedCloudUID&hash=$localEncodedHash&size=NORMAL&.png" width="36" height="36"/>
'   Else
'    Call cmImage "comHeader_defaulticon.png" "" "" 36 36
'   EndIf
<div class="account-profile-contents">\\
'   If $System.IsCloudUserAdmin
'    var $encodedAccount = $Command.String.EncodeURLEncode $Login.Account
<div><a href="/users/$encodedAccount" target="_blank">$Login.Name</a></div>\\
<div><a href="/settings/profile" target="_blank">編集</a></div>\\
'   Else
<div><a href="$Server?page=UserView&wid=$localWID&uid=$Login.ID">$Login.Name</a></div>\\
<div><a href="$Server?page=PersonalSet&uid=$Login.ID&wid=$WID">編集</a></div>\\
'   EndIf
</div>\\
</div>\\
'   If $System.IsCloudUserAdmin
<ul><li class="header-submenu-item"><a href="/settings/password" target="_blank">パスワードの変更</a></li>
'   Else
<ul><li class="header-submenu-item"><a href="$Server?page=PersonalPassword&wid=$WID">パスワードの変更</a></li>
'   EndIf
'   Call loadSlashInfo
'   If $cmHasSkylabCert
<li class="header-submenu-item"><a href="/settings/certificate" target="_blank">外部からのアクセス</a></li>
'   EndIf
</ul>\\
<ul><li class="header-submenu-item header-submenu-item-setting">\\
'   Call cmLink "個人設定" "" "$Server?page=PersonalAdmin&wid=$WID"
</li>\\
'   If $System.IsCloud
<li class="header-submenu-item"><a href="http://help.cybozu.com/ja/m/user.html" target="_blank">ヘルプ</a></li>\\
'   Else
<li class="header-submenu-item"><a href="http://manual.cybozu.co.jp/mailwise/mw5_help/user_index.html" target="_blank">ヘルプ</a></li>\\
'   EndIf
</ul>\\
<ul><li class="header-submenu-item"><a href="javascript:void(0);" onClick="$localLogoutOnClick">ログアウト</a></li></ul>\\
</div></li>
'  EndSub
''
''<!------------------------------------------------------------------
''  システム管理者メニューを表示
''  構文：Call headerSystemMenu
''------------------------------------------------------------------->
'  Sub headerSystemMenu
'   var $localAdministrator = 0
'   If $Profile.IsAccessAdmin
'    $localAdministrator = 1
'   EndIf
'   var $localSup = 0
'   If ! $System.IsCloud and $System.IsLoginAdmin
'    $localSup = 1
'   EndIf
'   If ! $localAdministrator and ! $localSup
'    Exit
'   EndIf
<li id="system-menu" class="header-menu-item">\\
<a href="javascript:void(0);" class="header-menu-label">\\
' Call cmImage "comHeader_settings.png"
</a>\\
<div id="system-submenu" class="header-submenu" style="display: none;">\\
'   If $System.IsCloud
<ul><li class="header-submenu-item"><a href="/admin/">cybozu.com共通管理</a></li></ul>\\
'    If $localAdministrator
<ul><li class="header-submenu-item"><a href="$Server?page=SystemAdmin">メールワイズ：システム設定</a></li></ul>\\
'    EndIf
<ul>\\
'    If $localAdministrator
<li class="header-submenu-item"><a href="http://help.cybozu.com/ja/m/index.html" target="_blank">管理者ヘルプ</a></li>\\
'    EndIf
<li class="header-submenu-item"><a href="/support/mailwise" target="_blank">お問い合わせ</a></li>\\
</ul>\\
'   Else
'    If $localAdministrator
<ul><li class="header-submenu-item"><a href="$Server?page=SystemAdmin">システム設定</a></li></ul>\\
'    EndIf
<ul>\\
'    If $localAdministrator
<li class="header-submenu-item"><a href="http://manual.cybozu.co.jp/mailwise/mw5_help/system_index.html" target="_blank">管理者ヘルプ</a></li>\\
'    EndIf
'    If $localSup
<li class="header-submenu-item"><a href="$Server?page=MWSupport">お問い合わせ</a></li>\\
'    EndIf
</ul>\\
'   EndIf
</div></li>
'  EndSub