Generate a list of shared projects per layer

Today I add to compare the projects in an acceptance environment with the projects in the test environment. I did this so that I can make backups of the projects in test that are not in acceptance yet, before I import the acceptance model store.

Here in the simple job I wrote to show an list of shared projects in an infolog. You can change #ProjectSharedPath to see private projects or UtilEntryLevel::var enum so see projects in other layers.

static void listOfSharedProjects(Args _args)
{
    #AOT

    Treenode        shared = TreeNode::findNode(#ProjectSharedPath);
    Treenode        project;
    UtilEntryLevel  utilEntryLevel = UtilEntryLevel::var;
    Str             projectName;
    int             nodeCount;
    int             i;    

    nodeCount   = shared.AOTchildNodeCount();
    project     = shared.AOTfirstChild();

    for (i=1; i<=nodeCount; ++i)
    {
        if (project.AOTLayer() == utilEntryLevel)
        {
            projectName = project.AOTname();        
            info(projectName);
        }
        project = project.AOTnextSibling();
    }
}