| 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 : |
' Sub errorResponse $errorno
''Content-Type出力
' $Command.CBApi.ContentType "text/xml; charset=UTF-8"
''
<?xml version="1.0" encoding="UTF-8"?>
<methodResponse>
<fault>
<value>
<struct>
<member>
<name>faultCode</name>
<value><int>$errorno</int></value>
</member>
</struct>
</value>
</fault>
</methodResponse>
' Abort
''
' EndSub
''
' Sub validateApiVersion $a_ver $enum
' $localApiVer = $Command.Math.Cast double $a_ver
' $localDbl100 = $Command.Math.Cast double 1.00
' $localDbl101 = $Command.Math.Cast double 1.01
' If $localApiVer < $localDbl100
' Call errorResponse $enum
' Elif $localApiVer < $localDbl101
' $apiver = 1.00
' Else
' $apiver = 1.01
' EndIf
' EndSub
''
''---------------------------
'' 時刻同期レスポンス
''
' Sub timeResponse $a_ver $locale $tm
'' パラメータ不足
' $l1 = $Command.String.StrLen $tm
' $l2 = $Command.String.StrLen $a_ver
' $l3 = $Command.String.StrLen $locale
' If ($l1 = 0) Or ($l2 = 0) Or ($l3 = 0)
' Call errorResponse "10202"
' Exit
' Endif
'' APIバージョン不一致
' Call validateApiVersion $a_ver "10107"
'' ロケールエラー
' If $locale != "ja"
' Call errorResponse "10204"
' Exit
' Endif
''
' $ts1 = $Command.String.StrMidLong $System.TimeStamp 3
' $ts2 = $Command.String.StrMidLong $tm 0
' If $ts2 = 0
' Call errorResponse "10203"
' Exit
' Endif
' $offset = $ts1 - $ts2
''
''Content-Type出力
' $Command.CBApi.ContentType "text/xml; charset=UTF-8"
''
<?xml version="1.0" encoding="UTF-8"?>
<methodResponse>
<params>
<param>
<value>
<struct>
<member>
<name>apiver</name>
<value><double>$apiver</double></value>
</member>
<member>
<name>offset</name>
<value><int>$offset</int></value>
</member>
</struct>
</value>
</param>
</params>
</methodResponse>
' Exit
' EndSub
''
''---------------------------
'' 製品認証レスポンス
''
' Sub authResponse $a_ver $locale $sig
'' パラメータ不足
' $l1 = $Command.String.StrLen $a_ver
' $l2 = $Command.String.StrLen $locale
' $l3 = $Command.String.StrLen $sig
' If ($l1 = 0) Or ($l2 = 0) Or ($l3 = 0)
' Call errorResponse "11202"
' Exit
' Endif
'' APIバージョン不一致
' Call validateApiVersion $a_ver "11107"
'' ロケールエラー
' If $locale != "ja"
' Call errorResponse "11204"
' Exit
' Endif
''
'' 製品認証処理呼び出し
' $s_sig = $Command.CBApi.ProductAuth $sig
' $l_sig = $Command.String.StrLen $s_sig
'' クライアント認証エラー
' If $l_sig = 0
' Call errorResponse "11101"
' Exit
' Endif
''
''Content-Type出力
' $Command.CBApi.ContentType "text/xml; charset=UTF-8"
''
<?xml version="1.0" encoding="UTF-8"?>
<methodResponse>
<params>
<param>
<value><struct>
<member>
<name>apiver</name>
<value><double>$apiver</double></value>
</member>
<member>
<name>sig</name>
<value><string>$s_sig</string></value>
</member>
</struct></value>
</param>
</params>
</methodResponse>
' Exit
' EndSub
''
''---------------------------
'' 製品情報取得レスポンス
''
' Sub product_infoResponse $a_ver $locale
'' パラメータ不足
' $l1 = $Command.String.StrLen $a_ver
' $l2 = $Command.String.StrLen $locale
' If ($l1 = 0) Or ($l2 = 0)
' Call errorResponse "12202"
' Exit
' Endif
'' APIバージョン不一致
' Call validateApiVersion $a_ver "12107"
'' ロケールエラー
' If $locale != "ja"
' Call errorResponse "12204"
' Exit
' Endif
''
''SCRIPT_PATH取得
' $s_path = $Command.CBApi.GetScriptPath
' $s_suffix = $Command.CBApi.GetScriptSuffix
''
''Content-Type出力
' $Command.CBApi.ContentType "text/xml; charset=UTF-8"
''
<?xml version="1.0" encoding="UTF-8"?>
<methodResponse>
<params>
<param>
<value>
<struct>
<member><name>apiver</name><value><double>$apiver</double></value></member>
<member><name>productname</name><value><string>サイボウズ メールワイズ</string></value></member>
<member><name>productver</name><value><string>$Version</string></value></member>
<member><name>charset</name><value><string>UTF-8</string></value></member>
<member>
<name>locale_list</name>
<value><array><data>
<value><string>ja_JP</string></value>
</data></array></value>
</member>
<member>
<name>url_list</name>
<value><array>
<data><value><struct>
<member><name>url</name><value><string>$s_path/mw$s_suffix</string></value></member>
<member><name>browsertype</name><value><string>1</string></value></member>
</struct></value></data>
</array></value>
</member>
<member>
<name>docroot</name><value><string>$ExternalFilePath</string></value>
</member>
<member>
<name>ext_list</name>
<value><array><data>
<value><string>html</string></value>
<value><string>gif</string></value>
<value><string>jpg</string></value>
<value><string>png</string></value>
<value><string>css</string></value>
<value><string>js</string></value>
<value><string>ico</string></value>
<value><string>dtd</string></value>
</data></array></value>
</member>
<member>
<name>currentlocale</name><value><string>ja_JP</string></value>
</member>
</struct>
</value>
</param>
</params>
</methodResponse>
' Exit
''
' EndSub
''
''---------------------------
'' 製品管理者ログインタイプレスポンス
''
' Sub admin_login_typeResponse $a_ver $locale
'' パラメータ不足
' $l1 = $Command.String.StrLen $a_ver
' $l2 = $Command.String.StrLen $locale
' If ($l1 = 0) Or ($l2 = 0)
' Call errorResponse "13202"
' Exit
' Endif
'' APIバージョン不一致
' Call validateApiVersion $a_ver "13107"
'' ロケールエラー
' If $locale != "ja"
' Call errorResponse "13204"
' Exit
' Endif
'' システム管理者のパスワード長
' $plen = $Command.CBApi.IsAdminPassword
''
'' システム管理者を指定する
' $l_type = 2
'' パスワードのみで制限する
' $AccessAdmin = $System.IsAdminUserExist
' If ! $AccessAdmin
' $l_type = 1
' Endif
' $l_type = $l_type + $plen
''
'' Content-Type出力
' $Command.CBApi.ContentType "text/xml; charset=UTF-8"
''
<?xml version="1.0" encoding="UTF-8"?>
<methodResponse>
<params>
<param>
<value>
<struct>
<member>
<name>apiver</name>
<value><double>$apiver</double></value>
</member>
<member>
<name>logintype</name>
<value><string>$l_type</string></value>
</member>
</struct>
</value>
</param>
</params>
</methodResponse>
' Exit
''
' EndSub
''
''---------------------------
'' 製品管理者認証（ログイン）レスポンス
''
' Sub admin_authResponse $a_ver $locale $uid $pwd
'' パラメータ不足
' $l1 = $Command.String.StrLen $a_ver
' $l2 = $Command.String.StrLen $locale
' If ($l1 = 0) Or ($l2 = 0)
' Call errorResponse "14202"
' Exit
' Endif
'' APIバージョン不一致
' Call validateApiVersion $a_ver "14107"
'' ロケールエラー
' If $locale != "ja"
' Call errorResponse "14204"
' Exit
' Endif
'' ユーザID、パスワードはURLエンコードされている
' $uid = $Command.String.DecodeURLEncode $uid
' $pwd = $Command.String.DecodeURLEncode $pwd
''
'' 管理者ログイン実行
' $b = $Command.CBApi.AdminLogin $uid $pwd
' If ! $b
' Call errorResponse "14106"
' Exit
' Endif
''
'' Content-Type出力
' $Command.CBApi.ContentType "text/xml; charset=UTF-8"
''
<?xml version="1.0" encoding="UTF-8"?>
<methodResponse>
<params>
<param>
<value>
<struct>
<member>
<name>apiver</name>
<value><double>$apiver</double></value>
</member>
<member>
<name>result</name>
<value><string>OK</string></value>
</member>
</struct>
</value>
</param>
</params>
</methodResponse>
' Exit
''
' EndSub
''
''---------------------------
'' ログインタイプレスポンス
''
' Sub login_typeResponse $a_ver $locale $typ
'' パラメータ不足
' $l1 = $Command.String.StrLen $a_ver
' $l2 = $Command.String.StrLen $locale
' $l3 = $Command.String.StrLen $typ
' If ($l1 = 0) Or ($l2 = 0) Or ($l3 = 0)
' Call errorResponse "15202"
' Exit
' Endif
'' APIバージョン不一致
' Call validateApiVersion $a_ver "15107"
'' 利用端末種別エラー
' If $typ != "1"
' Call errorResponse "15205"
' Exit
' Endif
'' ロケールエラー
' If $locale != "ja"
' Call errorResponse "15204"
' Exit
' Endif
'' ログインタイプ取得
' $l_type = $mw.LoginMethod
' If ! $mw.LoginMethod
' $l_type = 0
' EndIf
''
'' PC
' If $typ = "1"
' If $l_type = 0
' $l_type = 2
' Else
' $l_type = 3
' Endif
'' 利用端末種別エラー (PC以外)
' Else
' Call errorResponse "15205"
' Exit
' Endif
''
'' Content-Type出力
' $Command.CBApi.ContentType "text/xml; charset=UTF-8"
''
<?xml version="1.0" encoding="UTF-8"?>
<methodResponse>
<params>
<param>
<value>
<struct>
<member>
<name>apiver</name>
<value><double>$apiver</double></value>
</member>
<member>
<name>logintype</name>
<value><string>$l_type</string></value>
</member>
</struct>
</value>
</param>
</params>
</methodResponse>
' Exit
''
' EndSub
''
''---------------------------
'' ユーザー認証（ログイン）レスポンス
''
' Sub user_authResponse $a_ver $locale $uid $pwd $typ $lid $logintype
'' パラメータ不足
' $l1 = $Command.String.StrLen $a_ver
' $l2 = $Command.String.StrLen $locale
' $l4 = $Command.String.StrLen $typ
' If ($l1 = 0) Or ($l2 = 0) Or ($l4 = 0)
' Call errorResponse "16202"
' Exit
' Endif
'' APIバージョン不一致
' Call validateApiVersion $a_ver "16107"
'' ロケールエラー
' If $locale != "ja"
' Call errorResponse "16204"
' Exit
' Endif
'' 利用端末種別エラー (PC以外)
' If $typ != 1
' Call errorResponse "16205"
' Exit
' Endif
'' ユーザID、パスワードはURLエンコードされている
' $uid = $Command.String.DecodeURLEncode $uid
' $pwd = $Command.String.DecodeURLEncode $pwd
' $lid = $Command.String.DecodeURLEncode $lid
'' ユーザーログイン実行
' $b = $Command.CBApi.UserLogin $uid $pwd $typ $lid $logintype
' If ! $b
' Call errorResponse "16106"
' Exit
' Endif
''
'' Content-Type出力
' $Command.CBApi.ContentType "text/xml; charset=UTF-8"
''
<?xml version="1.0" encoding="UTF-8"?>
<methodResponse>
<params>
<param>
<value>
<struct>
<member>
<name>apiver</name>
<value><double>$apiver</double></value>
</member>
<member>
<name>result</name>
<value><string>OK</string></value>
</member>
</struct>
</value>
</param>
</params>
</methodResponse>
' Exit
''
' EndSub
''
''---------------------------
'' グループ（組織）一覧取得レスポンス
''
' Sub group_listResponse $a_ver $locale $gid
'' パラメータ不足
' $l1 = $Command.String.StrLen $a_ver
' $l2 = $Command.String.StrLen $locale
' $l3 = $Command.String.StrLen $gid
' If ($l1 = 0) Or ($l2 = 0) Or ($l3 = 0)
' Call errorResponse "17202"
' Exit
' Endif
'' APIバージョン不一致
' Call validateApiVersion $a_ver "17107"
'' ロケールエラー
' If $locale != "ja"
' Call errorResponse "17204"
' Exit
' Endif
'' グループが存在しない
' If ($gid != "root") and ! $Groups.$gid
' Call errorResponse "17104"
' Exit
' Endif
''
'' Content-Type出力
' $Command.CBApi.ContentType "text/xml; charset=UTF-8"
''
<?xml version="1.0" encoding="UTF-8"?>
<methodResponse>
<params>
<param>
<value>
<struct>
<member>
<name>apiver</name>
<value><double>$apiver</double></value>
</member>
'' 全グループのリストが指定された場合
' If $gid = "root"
<member>
<name>count</name>
<value><int>$Groups.Count</int></value>
</member>
<member>
<name>c_groupid</name>
<value><string>root</string></value>
</member>
<member>
<name>c_groupname</name>
<value><string>ルート</string></value>
</member>
' If $Groups.Count > 0
<member>
<name>group_list</name>
<value>
<array><data>
' $index = 0
' For Each $g in $Groups
' Inc $index
<value><struct>
<member>
<name>groupid</name><value><string>$g.ID</string></value>
</member>
<member>
' $name = $Command.CBApi.EncodeXML $g.Name
<name>groupname</name><value><string>$name</string></value>
</member>
<member>
<name>order</name><value><int>$index</int></value>
</member>
</struct></value>
' Next
</data></array>
</value>
</member>
' Endif
'' 存在するグループが指定された場合は下位グループのないものとして扱う
' Else
' Set $grp = $Groups.$gid
<member>
<name>count</name>
<value><int>0</int></value>
</member>
<member>
<name>c_groupid</name>
<value><string>$gid</string></value>
</member>
<member>
<name>c_groupname</name>
' $name = $Command.CBApi.EncodeXML $grp.Name
<value><string>$name</string></value>
</member>
<member>
<name>hierarchy</name>
<value><array><data>
<value><struct>
<member><name>h_groupid</name><value><string>root</string></value></member>
<member><name>h_groupname</name><value><string>ルート</string></value></member>
<member><name>h_level</name><value><int>0</int></value></member>
</struct></value>
</data></array></value>
</member>
' Endif
</struct>
</value>
</param>
</params>
</methodResponse>
' Exit
''
' EndSub
''
''---------------------------
'' ユーザー情報一覧取得レスポンス
''
' Sub user_listResponse $a_ver $locale $gid $offset $record_num
'' パラメータ不足
' $l1 = $Command.String.StrLen $a_ver
' $l2 = $Command.String.StrLen $locale
' $l3 = $Command.String.StrLen $gid
' If ($l1 = 0) Or ($l2 = 0) Or ($l3 = 0)
' Call errorResponse "18202"
' Exit
' Endif
'' APIバージョン不一致
' Call validateApiVersion $a_ver "18107"
'' ロケールエラー
' If $locale != "ja"
' Call errorResponse "18204"
' Exit
' Endif
''
'' オフセット、取得数
' $of = $Command.String.StrMidLong $offset 0 2
' If $of = 0
' $of = 1
' Endif
' $rn = $Command.String.StrMidLong $record_num 0 2
''
''グループに所属するユーザ
' If $gid != "root"
' Set $VUsers = $Groups.$gid.Users
' Else
' Set $VUsers = $Users
' EndIf
''
''レコード数が指定なしの場合、最大でユーザ数分取得する
' If $rn = 0
' $rn = $VUsers.Count
' Endif
'
''
'' 最終レコード判定
' If ($VUsers.Count - $of) > $rn
' $islast = 0
' $num = $rn
' Else
' $islast = 1
' $num = $VUsers.Count - $of + 1
' Endif
' If $num < 0
' $num = 0
' Endif
' $index = 0
' $order = 0
''
'' Content-Type出力
' $Command.CBApi.ContentType "text/xml; charset=UTF-8"
''
<?xml version="1.0" encoding="UTF-8"?>
<methodResponse>
<params>
<param>
<value>
<struct>
<member>
<name>apiver</name><value><double>$apiver</double></value>
</member>
<member>
<name>islast</name><value><boolean>$islast</boolean></value>
</member>
<member>
<name>count</name><value><int>$num</int></value>
</member>
' If $num > 0
<member>
<name>user_list</name>
<value>
<array><data>
' For Each $VUser in $VUsers
' Inc $index
' If $of > $index
' Continue
' Endif
' Inc $order
' $name = $Command.CBApi.EncodeXML $VUser.Name
' $account = $Command.CBApi.EncodeXML $VUser.Account
<value><struct>
<member><name>userid</name><value><string>$VUser.ID</string></value></member>
<member><name>username</name><value><string>$name</string></value></member>
<member><name>loginid</name><value><string>$account</string></value></member>
<member><name>order</name><value><int>$order</int></value></member>
</struct></value>
' If $order = $num
' Exit
' Endif
' Next
</data></array>
</value>
</member>
' Endif
</struct>
</value>
</param>
</params>
</methodResponse>
' Exit
''
' EndSub
''
''
''---------------------------
'' ユーザー情報取得レスポンス
''
' Sub user_infoResponse $a_ver $locale $lid
'' パラメータ不足
' $l1 = $Command.String.StrLen $a_ver
' $l2 = $Command.String.StrLen $locale
' $l3 = $Command.String.StrLen $lid
' If ($l1 = 0) Or ($l2 = 0) Or ($l3 = 0)
' Call errorResponse "19202"
' Exit
' Endif
'' APIバージョン不一致
' Call validateApiVersion $a_ver "19107"
'' ロケールエラー
' If $locale != "ja"
' Call errorResponse "19204"
' Exit
' Endif
''
'' ユーザID、パスワードはURLエンコードされている
' $lid = $Command.String.DecodeURLEncode $lid
' $oid = 0
' For Each $VUser in $Users
' If $VUser.Account = $lid
' $oid = $VUser.ID
' Exit
' EndIf
' Next
''
'' 該当ユーザなし
' If $oid = 0
' Call errorResponse "19105"
' Exit
' Endif
''
'' Content-Type出力
' $Command.CBApi.ContentType "text/xml; charset=UTF-8"
''
<?xml version="1.0" encoding="UTF-8"?>
<methodResponse>
<params>
<param>
<value>
<struct>
<member>
<name>apiver</name>
<value><double>$apiver</double></value>
</member>
<member>
<name>userid</name>
<value><string>$oid</string></value>
</member>
<member>
<name>username</name>
' $name = $Command.CBApi.EncodeXML $Users.$oid.Name
<value><string>$name</string></value>
</member>
<member>
<name>loginid</name>
' $account = $Command.CBApi.EncodeXML $Users.$oid.Account
<value><string>$account</string></value>
</member>
</struct>
</value>
</param>
</params>
</methodResponse>
' Exit
''
' EndSub
''
''---------------------------
'' セッションパラメータ検証レスポンス
''
' Sub ses_checkResponse $a_ver $locale $s_para $typ
'' パラメータ不足
' $l1 = $Command.String.StrLen $a_ver
' $l2 = $Command.String.StrLen $locale
' $l3 = $Command.String.StrLen $s_para
' $l4 = $Command.String.StrLen $typ
' If ($l1 = 0) Or ($l2 = 0) Or ($l3 = 0) Or ($l4 = 0)
' Call errorResponse "20202"
' Exit
' Endif
'' APIバージョン不一致
' Call validateApiVersion $a_ver "20107"
'' ロケールエラー
' If $locale != "ja"
' Call errorResponse "20204"
' Exit
' Endif
'' メールワイズは必ずここで抜ける
'' PC
' If $typ = "1"
' Call errorResponse "20999"
'' その他
' Else
'' 利用端末種別エラー
' Call errorResponse "20205"
' Endif
' Exit
' EndSub
''
''---------------------------
'' 不要Query_Stringの除去
' Sub removeParam
' $System.RemoveParameter "_Login"
' $System.RemoveParameter "_System"
' $System.RemoveParameter "_ID"
' $System.RemoveParameter "_Account"
' $System.RemoveParameter "Password"
' EndSub
''
''---------------------------
'' メイン
''
'' 著作権を表示させない
' $Command.CBApi.HideCopyright
'' システム上キーワードになっている余分なQuery_Stringを排除する
' Call removeParam
''
' $apiver = $a_ver
''
'' -------基本API---------
' If $api_id = "time"
' Call timeResponse $a_ver $locale $tm
' Exit
' Elif $api_id = "auth"
' Call authResponse $a_ver $locale $sig
' Exit
' Endif
'
'' クライアント認証
' $b = $Command.CBApi.Access
' If ! $b
' Call errorResponse "11101"
' Exit
' Endif
'
' If $api_id = "product_info"
' Call product_infoResponse $a_ver $locale
' Elif $api_id = "admin_login_type"
' Call admin_login_typeResponse $a_ver $locale
' Elif $api_id = "admin_auth"
' Call admin_authResponse $a_ver $locale $uid $pwd
' Elif $api_id = "login_type"
' Call login_typeResponse $a_ver $locale $typ
' Elif $api_id = "user_auth"
' Call user_authResponse $a_ver $locale $uid $pwd $typ $lid $logintype
' Elif $api_id = "group_list"
' Call group_listResponse $a_ver $locale $gid
' Elif $api_id = "user_list"
' Call user_listResponse $a_ver $locale $gid $offset $record_num
' Elif $api_id = "user_info"
' Call user_infoResponse $a_ver $locale $lid
' Elif $api_id = "ses_check"
' Call ses_checkResponse $a_ver $locale $s_para $typ
' Else
' Call errorResponse "00201"
' Endif
''