Report on Projects/Modules Last Modified Date

Hello

I'm looking for some code that will list all the projects in my database, or better yet, all the modules, and their "Last Modified On" date.

I'm not really that much of a coder, but I found in the help file how to list all the projects in the module

////////
string s
for s in database do {
print s "\n"
}
////////

and I have some code that will list all the modules in my database

///////
//Demo
/*List modules in database*/
Buffer b = create
string sType
Item cItem

void FormalModules(Item pItem)
{ sType=type(pItem)
if(sType=="Formal") b+= fullName(pItem) "\n"
if((sType=="Folder")||(sType=="Project"))
for cItem in folder(pItem)do FormalModules(cItem)
}

FormalModules(item("/"))
print b ""
////////
what I'd like to do is list all my projects with their last modified on date, OR list all my modules in my db with their last modified on dates. Doing this as a justification to try to buy some more licenses based on use.

Thanks
richmason - Thu Aug 19 08:53:27 EDT 2010

Re: Report on Projects/Modules Last Modified Date
llandale - Thu Aug 19 15:25:03 EDT 2010

Buying more licenses would be needed if you often ran out of licenses. It doesn't matter how often or how many modules are edited by a single user. We are struggling with the license statistics and its not easy. You can query the current status of the flexLM licensing, but its tough to get reliable statistics without buying something.

The "for s in Project" loop only finds modules in the top-level folder of the Project, making it pretty worthless. The "for Item in Project" loop will find all items, but I presume they are found in created order and not alphabetically in any way, also making it pretty weak. I use the "for Item in Folder" loop that finds anything directly in that folder, and if its a sub-folder then recursively search it. Actually, two loops; the first deals with the type "Formal" items in the folder, the 2nd dealing with the "Folder" or "Project" items in the folder.

You may be able to get the last modified date of a module without opening it. There is no such attribute for a Folder or Project; so you will need to presume, I suppose, that the Last Modified Date of a Folder is the most recent Last Modified Dates of any of its modules or sub-folders. That makes for a tricky Recursive script, something like this outline:
 

Date   LastModofiedModule(Item itm)
{  // figure this out
}
 
Date   LastModifiedFolder(Folder fld)
{
   if (null fld) return(Date null)
   Item  itm
   Date  datFold = dateOf(1), datSub = dateOf(1)
   for itm in fld do
   {  if (type(itm) == "Project" or type(itm) == "Folder")
      {  datSub = LastModifiedFolder(Folder(fullName(itm)))  // ** Recursion **
         if (datSub > datFold) datFold = datSub
      }
   }
   for itm in fld do
   {  if (type(itm) == "Formal"))
      {  datSub = LastModifiedModule(itm)
         if (datSub > datFold) datFold = datSub
      }
   }
   print name(fld) "\t" datFold "\t" fullName(fld) "\n"
}  // end recursive LastModifiedFolder()

• Louie

Re: Report on Projects/Modules Last Modified Date
richmason - Fri Aug 20 07:33:02 EDT 2010