Recuperar la información de la licencia programando

Cuando realiza análisis, informes o depuración de su aplicación de servidor puede querer saber el número de clientes disponibles, el número de conexiones consumidas, la fecha de caducidad y mucha otra información.

Ahora con 4D v16 R4, puede recuperar información detallada sobre la licencia activa de su producto 4D en ejecución (4D Server por ejemplo). Por ejemplo

• versión,
• plataforma,
• número de conexiones disponibles y consumidas para 4D Write Pro,
• número de conexiones disponibles y consumidas para 4D Client,
• fecha de caducidad,
• …

Sólo hay que llamar al comando Get license info nuevo comando que devuelve un objeto:

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

Por ejemplo, aquí está el objeto devuelto para una licencia de 4D Server:

{
    "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
        },
        {...}
    ]
}