# Task: compare client specs to users, and flag the # client specs owned by users that don't exist anymore. from readp4marshal import runp4cmd # num of calls to 'p4': 2 # status: tested on Darwin Mac OS X using Python 2.3 # room for optimization/improvement: add getopts call # # Copyright 2004 Perforce Corporation, Inc. All rights reserved. # #----------------------------------------------------------- # first call to P4: 'p4 users' #----------------------------------------------------------- userList = runp4cmd("p4 -G users") userHash = {} for u in userList: userName = u['User'] userHash[userName] = u #----------------------------------------------------------- # second call to P4: 'p4 clients' #----------------------------------------------------------- clientList = runp4cmd("p4 -G clients") print "List of clients:" for c in clientList: [clientName,clientOwner] = [c['client'], c['Owner']] if userHash.has_key(clientOwner): print "%s owned by %s OK" % (clientName, clientOwner) else: print "%s owned by %s ** unknown user **" % (clientName, clientOwner)
# | Change | User | Description | Committed | |
---|---|---|---|---|---|
#1 | 4312 | Jeff Bowles |
Adding a number of example scripts that show how to get to Perforce data for a variety of scripting languages and variety of simple tasks. Note that Perl/Python/Ruby (and variants) are included, but shell/batch/DCL/applescript are not. (Am trying to stick with somewhat-portable approaches, to make comparisons easier.) Each program is written in the following languages/configurations: 1. Perl, calling "p4 -Ztag" for data 2. Perl, calling Tony Smith's "P4Perl" module 3. Python, calling "p4 -G" for data 4. Ruby, calling "p4 -R" for data 5. Ruby, calling Tony Smith's "P4Ruby" module The programs do the following: a. compare client specs to users (find old clients) b. compare two labels c. determine which client specs use compression. d. determine which files need to be "p4 add'ed." e. output list of 'opened' files, using local pathnames. |