プログラミングでライセンス情報を取得する

サーバーアプリケーションの分析、レポート、デバッグを行う際に、利用可能なクライアント数、消費された接続数、有効期限やその他多くの情報を知りたいと思うことがあるでしょう。

4D v16 R4では、実行中の4D製品 （例えば4D Server）の有効なライセンスに関する詳細な情報を取得 することができるようになりました。例えば

• バージョン
• プラットフォーム
• 4D Write Proの使用可能な接続数と消費された接続数。
• 4D Clientの使用可能な接続数と消費された接続数。
• 有効期限
• …

オブジェクトを返すnewコマンドを呼び出すだけです。 Get license infoオブジェクトを返す新しいコマンドを呼び出すだけです。

C_OBJECT($obj)
$obj :=.Get license info

例えば、ここに4Dサーバーのライセンスで返されるオブジェクトがあります。

{
    "name": "4D Server v16 R3",
    "licenseNumber": "xxxx",
    "version": "16R3",
    "userName": "John DOE",
    "userMail": "john.doe@alpha.com",
    "companyName": "Alpha",
    "platforms": ["macOS", "windows"],
    "expirationDate": {"day":1, "month":1, "year":2018},
    "products":[
        {
            // Expansion of 15 4D Write - 4D Write Pro connections
            "allowedCount": 15,
            "id": 808464697,
            "name": "4D Write - 4D Write Pro",
            "rights": [
                {
                    // 5 connections until December 1st, 2017
                    "count": 5,
                    "expirationDate": {"day":1, "month":12, "year":2017}
                }, {
                    // 10 connections until November 1st, 2017 
                    "count": 10,
                    "expirationDate": {"day":1, "month":11, "year":2017}
                }
            ],
            // 12 4D Write - 4D Write Pro licenses currently used
            "usedCount": 12
        },
        {...}
    ]
}