Recuperar a informação da licença através da programação

Quando efectuar análises, relatórios ou depuração da sua aplicação servidor, poderá querer saber o número de clientes disponíveis, o número de ligações consumidas, a data de expiração e muitas outras informações.

Agora com 4D v16 R4, pode obter informação detalhada sobre a licença activa do seu produto 4D em execução (Servidor 4D, por exemplo). Por exemplo:

• versão,
• plataforma,
• número de ligações disponíveis e consumidas para 4D Write Pro,
• número de ligações disponíveis e consumidas para Cliente 4D,
• data de expiração,
• …

Só precisa de chamar o Get license info novo comando que devolve um objecto:

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

Por exemplo, aqui está o objecto devolvido para uma licença de Servidor 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
        },
        {...}
    ]
}