Table of Contents

Table of Contents

Table of Contents

Table of Contents

	dataSetRow["CONTACTLASTNAME"]+", "+dataSetRow["CONTACTFIRSTNAME"]

	<CENTER><B> 
	Customer List 
	</B></span><BR> 
	<FONT size="small">For internal use only</FONT><BR><BR> 
	Report generated on <VALUE-OF>new Date()</VALUE-OF> 
	</CENTER><BR><BR>

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

  # pdsql -v access -db \\machine\share\schema-repository-name -u admin-login -p admin-password


These steps will actually remove the user database name from the MASTR.

> select master_dbid from master_dbs where name='user-database-name';

master_dbid
   dbid

WRITE DOWN THE DBID!

> delete from master_dbs where name='user-database-name';
1 rows affected.

> delete from master_links where to_master_dbid = dbid and link_type in (3,4);
n rows affected.

> quit;


This step will logically remove the user database name from the MASTR.

>update master_dbs set is_deleted = 1 where name = 'user-database-name';
1 rows affected.

>quit;

Table of Contents

  # installutil renamedbset old-dbset-name new-dbset-name

Table of Contents

Table of Contents

Table of Contents

Table of Contents

  # installutil lscodepage -dbset dbset admin-user admin_password
Ex:
  # installutil lscodepage -dbset 2003.06.00 cqadmin rational

  # installutil setdbcodepagetoplatformcodepage -dbset dbset admin_user admin_password
-or-
  # installutil setdbcodepagetoascii -dbset dbset admin_user admin_password

Table of Contents

Table of Contents

Table of Contents

http://www-1.ibm.com/support/docview.wss?uid=swg21124348

Table of Contents

> installutil unlockschemarepo 
-or-
> installutil unlockuserdb dbvendor server db dbologin dbopassword connectoptions

Ex:
> installutil unlockuserdb MS_ACCESS mycomputer \\mycomputer\share\userdb.mdb admin "" ""

sql> select db_locked from dbglobal;

sql> update dbglobal set db_locked = 0;

Table of Contents

#################################
# Push the lastest changes to the destination db.
print "\nLogging into the destination dbset ($dest_dbset) ...\n";
$adminSession = CQAdminSession::Build;
$adminSession->Logon($dest_login,$dest_passwd,$dest_dbset);

# Push the changes.
$databaseObj	= $adminSession->GetDatabase($dest_db);
$schemaRevObj	= $databaseObj->GetSchemaRev;
if ( int($schemaRevObj->GetRevID) < $end_ver ) {
	print "Upgrading ($dest_db) to version ($end_ver) ...\n";

	$schemasObj	= $adminSession->GetSchemas;
	$found_schema	= 0;
	for ( $x = 0; $x < $schemasObj->Count; $x++ ) {
		$schemaObj	= $schemasObj->Item($x);
		$schemaName	= $schemaObj->GetName;
		if ( $schemaName eq $schema_name ) {
			$schemaRevsObj	= $schemaObj->GetSchemaRevs;
			$nrevs		= $schemaRevsObj->Count;
			if ( $end_ver > $nrevs ) {
				print "ERROR: The schema repository ($dest_dbset) only has ($nrevs) revisions for the ($schema_name) schema.  Cannot upgrade ($dest_db) database to version ($end_ver).\n";				goto FINISH;
			}
			$schemaRevObj	= $schemaRevsObj->Item($end_ver - 1);
			$found_schema	= 1;
			last;
		}
	}

	if ( $found_schema ) {
		if ( ! $preview ) {
			$databaseObj->Upgrade($schemaRevObj);
		} else {
			print "Database ($dest_db) not upgraded in preview mode.\n";
		}
	} else {
		print "ERROR: Unable to find a schema named ($schema_name) in the destination schema repository ($dest_dbset).\n";
		goto FINISH;
	}
} else {
	print "Destination db ($dest_db) version is up to date.\n";
}

CQAdminSession::Unbuild($adminSession);

Table of Contents

# This command ensures users don't attempt LDAP authentication during the upgrade.
  installutil setauthenticationalgorithm schema-repo admin passwd CQ_ONLY

# This command sets the string that connects the CQ schema repo to the LDAP server.  The -h option sets the
# primary and secondary LDAP servers.  The -p option sets the port number.  If the LDAP servers don't allow
# anonymous access, the -D and -w options are required.  See the manual for those and other options.
# The -w option is a password known to the LDAP administrators.
# You'll have to work with the LDAP team to know/understand what "cn" and "dc" paramaters to use.

  # Anonymous LDAP login
  installutil setldapinit schema-repo admin passwd "-h ’primary-server secondary-server’ -p port"

  # Log into LDAP using a designated service account
  installutil setldapinit schema-repo admin passwd "-h ’primary-server secondary-server’ -p port -D cn=search_user,cn=Users,dc=svc-account,dc=com -w svc-account-password"

# This command sets up the LDAP search criteria.  The -s option tells it search the subtree.  The domain name is
# broken up in the -b option's "dc" parts.  For example, ent.wfb.bank.corp would be "dc=efc,dc=wbd,dc=bank,dc=corp".
# Note that "%login%" is literal.  That will be filled in by CQ.
  installutil setldapsearch schema-repo admin passwd "-s sub -b ou=dept,domain-components (&(objectCategory=person)(samAccountName=%login%))"

# The following command sets the LDAP mapping criteria.  In this example, LDAP will authenticate against the user's login.
# Other choices are specified in the manual.  Note that whatever field is chosen for the map must have unique values
# across all LDAP-authenticated users in CQ.  If CQMS is employed, this field must be the same across all sites.
  installutil setcqldapmap schema-repo admin passwd CQ_LOGIN_NAME %login%

# The following validates that the above commands set the schema up correctly.
# This will return the current set of paramaters and should not return any error messages.
  installutil validateldap schema-repo admin passwd test-user test-user-passwd

# The following sets CQ to look for the user in CQ.  If the user is found and set to authenticate agains LDAP,
# or if the user isn't found, it will authenticate against LDAP.  Otherwise, the system will authenticate against CQ.
  installutil setauthenticationalgorithm schema-repo admin passwd CQ_FIRST

Table of Contents

  $adminSessionObj = CQAdminSession::Build;
  $adminSessionObj->Logon($admin-login,$admin-passwd,$dbset);
  $userObj = $adminSessionObj->GetUser($login);
  $userObj->SetLDAPAuthentication($login);
  CQAdminSession::Unbuild($adminSessionObj);

Table of Contents

• The tables in a CQ db are named for the record type whose data they hold.
  
• Be aware when entering field names, because in CQ a field has three "names".
  1) The "Label" is what appears to users as the field's name on a form. Don't use this. 2) The "Field Name" is how CQ refers to the field internally. That is, all hook code refers to it by this name. Don't use this. 3) The "DB Column Name" is how the database refers to the field. This is what you should use. The DB Column Name is often the same as the Field Name, but can be different. For example, if you deleted the field whose DB Column Name and Field Name was "officers", perhaps to recreate the same field as a pulldown list instead of a multiline text field, while the field definition can have the same Field Name "officers", the newly created field will have a DB Column Name of "officers_1". This happens because the old field was removed from CQ, but not actually deleted from the database. It is the DB Column Name that must be used in SQL queries.
• The wildcard value is different for different db vendors. For Oracle and SQL Server, it is "%" (used below), and for MS Access it is "*". The CQ "SQL Editor" uses "%". The wildcard matches zero or more characters.
• Some databases require a semi-colon at the end of the query statement, as in the first example below, but some forbid it. Those that do require it will often automatically insert a semi-colon if you save the query. So, according some local db gurus, get in the habit of not terminating the query with a semi-colon.
• While the SQL commands below are in all caps and the commands are on separate lines, those aren't requirements; they're just that way for clarity.
• CQ gives you a wizard to create queries. If you have "SQL Editor" permission to view and edit the raw SQL statement, if you do edit it, you can no longer use the wizard for that particular query.
• If you use the SQL Editor in CQ, be sure to include the "dbid" field in the SELECT or you will not be able to pick/choose/click records in the "Result set". You'll be able to see the results, but not get to them. The dbid won't show up in the result set display even though SELECT'ed.
• If you use the SQL Editor in CQ, always add a "WHERE dbid <> 0" to avoid returning the null record, which is always there.
• If a field contains a "number", but the field in CQ is a SHORT_STRING, the value must be enclosed in single quotes because it is really a string. Also, say the value "00004023" is the ticket_id of a stateless record. If you ask for "WHERE ticket_id > '4000'", you will not return that record. Because these are strings and not integers, it is an ASCII comparison starting with the first character in the string. In this case, the very first character in the ticket_id would have to be greater than 4 to show up in result set. To get your filter to work in this case, the clause would be "WHERE ticket_id > '00004000'".
• In CQ, if using the query wizard, you can change the display "Title" of a field in the result set to be different than the Field Name, but that is a CQ function and cannot be done using the SQL Editor.
• The SQL Editor is not available in the web interface.
• If the query returns a reference list field that has multiple values, the values are concatenated with ASCII character 10 (LF).

-- Display field values:
	SELECT field1, field2, field3
	FROM recordtype;

-- Filter on field values:
	SELECT field1, field2
	FROM recordtype
	WHERE field1 = 'value'
If the value contains a single quote, enter it as a double-single quote.
For example, "Eric's" would get entered as 'Eric''s'.
Numerical comparisons don't need quotes, as in "WHERE field1 > 100".

-- Filter on mulitple fields:
	WHERE field1 = 'value' AND field2 < 1000

-- Filter on multiple values (or) within a field:
	WHERE field1 IN ('value1','value2','value3','value4')

-- Field starts with "valu":
	WHERE field1 LIKE 'valu%'

-- Field contains "valu":
	WHERE field1 LIKE '%valu%'

-- Escape single quotes (if string = "Bob's", double up the internal quote):
	WHERE field1 = 'Bob''s'

-- Filter on a range of values (field1 is an INTEGER):
	WHERE field1 BETWEEN 1000 AND 2000

-- Group nested filters (field2 is a SHORT_STRING):
	WHERE field1 BETWEEN 1000 AND 2000
	AND
		(field2 BETWEEN '00004040' AND '00005050'
		OR
		field2 BETWEEN '00006000' AND '00006050')

-- Field does not equal a value:
	WHERE field1 <> 'value'

-- Find out if a reference field is empty or not:
	WHERE field1 is NULL
	WHERE field1 is not NULL

-- Field does not contain a value:
	WHERE field1 NOT LIKE '%valu%'

-- Sort in ascending (ASC) or descending (DESC) order:
	WHERE field1 <> 'value'
	ORDER BY field2 ASC

-- Sort multiple fields in the order in which they are listed:
	ORDER BY field1 ASC, field2 DESC

-- Query on dynamically determined values (select in select):
	SELECT field1
	FROM recordtype
	WHERE field1 >
		(SELECT field2
		FROM recordtype
		WHERE field3 = 'value')

-- Mathematically analyze a set of returned values with AVG, COUNT, MAX, and SUM.
These four will return a single value unless GROUP BY is used.
	SELECT SUM(field1)
	FROM recordtype

-- Group a set of returned values.  This will return the sum of "field2"s for each
different value of field1.
	SELECT field1, SUM(field2)
	FROM recordtype
	GROUP BY field1

-- If a returned row is identical to another, only return one of them:
	SELECT DISTINCT field1
	FROM recordtype

-- Assign each table (recordtype) a variable when more than one table is involved:
	SELECT T1.field1, T2.field2
	FROM recordtype1 T1, recordtype2 T2
	WHERE T1.dbid = T2.parent_dbid

-- Change a field value.  Note that "UPDATE"s are not allowed in CQ pdsql.
	UPDATE recordtype
	SET field = 'newvalue'
	WHERE field = 'oldvalue'
   If the new value is '', use "SET field = NULL".

-- Change a field substring.  Note that UPDATEs are not allowed in CQ pdsql.
	UPDATE recordtype SET field = REPLACE(field, '/old/', '/new/')

-- Get a listing of all tables:
	SELECT * from cat;
In pdsql:
	tables;

-- Get a listing of all columns in a table.
	DESC tablename;
In pdsql:
	columns tablename;

-- Change the state of a record.  No hooks are run when doing this.
	SELECT id,name FROM entitydef WHERE name = 'recordtype';   # this gets the entitydef id
	SELECT id,name FROM statedef WHERE entitydef_id = entitydefid  # this gets the state id
	UPDATE tablename SET state = newstateid WHERE id = 'recordid';

-- Delete a row.
	DELETE FROM tableName WHERE columnName=value
WARNING: If the "where" clause is not correct (does not uniquely select a row), it may delete ALL rows.

-- Determine the current DB2 database name
	SELECT CURRENT_SERVER from sysibm.sysdummy1;

-- Get a db table name for a CQ record type.
	SELECT db_name FROM entitydef WHERE name = 'record-type-name';

-- Get a db column name for a CQ field.
	SELECT id FROM entitydef WHERE name = 'CQ-record-type';
	SELECT db_name FROM fielddef WHERE entitydef_id = 'entitydef-id' AND name = 'CQ-fieldname';

-- Just get a count of rows returned.
	SELECT count(id) FROM tablename;

  installutil getrecordlimits -dbset dbset  username  password  { user_db | -all }

Table of Contents

  installutil getrecordlimits -dbset dbset  username  password  { user_db | -all }

Table of Contents

• CQ 1.0, metaschema 13, feature level 1
• CQ 1.1, metaschema 17, feature level 2
• CQ 2.0/2000/2001, metaschema 20, feature level 3
• CQ 2001A Alpha, metaschema 21, feature level 4
• CQ 2001A/2002/2003/7.0, metaschema 22, feature level 5
• CQ 7.0.1, metaschema 22, feature level 6
• CQ 7.1, metaschema 22, feature level 7

	> select name, feature_level, metaschema_version from master_dbs;

	installutil showfeaturelevels 

Table of Contents

  pdsql  -u db-owner  -p password  -v ss  -db userdb-name  -s server

MS Access:
  pdsql -u admin -p password -v access -db full-unc-path-to-schemarepo.mdb

Table of Contents

Table of Contents

	installutil clientregisterschemarepo parameters

Table of Contents

Table of Contents

$repo			= "Development";
$adminSession = CQAdminSession::Build();
$adminSession->Logon($login,$passwd,$repo);
@DB_VENDOR		= ('Unknown', 'SQL Server', 'MS Access', 'SQL Anywhere','Oracle', 'DB2');
$databases_entity	= $adminSession->GetDatabases();
for ( $i = 0; $i < $databases_entity->Count(); $i++ ) {
	$database		= $databases_entity->Item($i);
	$db_name		= $database->GetName();
	$db_vendor		= $DB_VENDOR[$database->GetVendor()];
	$db_host		= $database->GetServer();
	$db_sid			= $database->GetDatabaseName();
	$db_login		= $database->GetDBOLogin();
	$db_password		= $database->GetDBOPassword();
	$connect_options	= $database->GetConnectOptions();
	$schema_rev_entity	= $database->GetSchemaRev();

	if ( "$db_name" eq "MASTR") {
		$schema_name	= 'N/A';
		$schema_version = 'N/A';
	} else {
		$schema_name	= $schema_rev_entity->GetSchema()->GetName();
		$schema_version = $schema_rev_entity->GetRevID();
	}

	print "
Schema repo:\t$repo
Database:\t$db_name
Schema:\t$schema_name
Schema ver:\t$schema_version
Vendor:\t$db_vendor
Hostname:\t$db_host
SID:\t$db_sid
DB login:\t$db_login
DB password:\t$db_password
Connect options:\t$connect_options\n";

CQAdminSession::Unbuild($adminSession);
}

	$databases_co	= $adminSession_o->GetDatabases;
	$n_databases	= $databases_co->Count;
	for ( $x = 0; $x < $n_databases; $x++ ) {

		$db_o	= $databases_co->Item($x);
		$db	= $db_o->GetName;

		...

Table of Contents

	cqreg show

	cqreg add_dbset -vendor vendor -server server-name -database dbset -u db-user -p db-password "connect-options"

Example:
Database = schema repository (dbset) name

	cqreg add_dbset -vendor ORACLE -server oracle01 -database MUOS -u Oracleuser -p Oraclepass "SERVER_VER=9.2;SID=MUOS;HOST=oracle01;LOB_TYPE=CLOB"

	cqreg drop_dbset -dbset dbset-name -force

Table of Contents

	select * from master_dbs where database_name='db-name';

Table of Contents

Generate emails from within the schema instead of with Email Rules.

	' ''''''''''''''''''''''''''''' 
	' Send email to the new Tester if that field changed, but only in the Testing state. 
	if GetFieldValue("State").GetValue = "Testing" and GetFieldValue("Tester").GetValue <> GetFieldOriginalValue("Tester").GetValue then 

		set mailObj = CreateObject("PAINET.MAILMSG") 

		address = GetFieldValue("Tester_Email").GetValue 
		mailObj.AddTo(address) 

		subject = "You have been assigned as the Tester for Defect " & GetFieldValue("id").GetValue
		mailObj.SetSubject(subject) 

		body = "Headline: " & GetFieldValue("Headline").GetValue & vbCrLf
		mailObj.SetBody(body) 

		status = mailObj.Deliver

		' Retry if this first deliver failed for some reason.
		if status = 0 then 
			status = mailObj.Deliver 
		end if
	end if

Ensure SMTP server is responding.

  # ping hostname
  # telnet hostname 25

Native Client

REGEDIT4
[HKEY_CURRENT_USER\Software\Rational Software\ClearQuest\Diagnostic]
"Trace"="Email"
"Output"="ODS"
"EMailSendVB"="ODS"

Webserver

REGEDIT4
[HKEY_USERS\.default\Software\Rational Software\ClearQuest\Diagnostic]
"Trace"="Email"
"Output"="ODS"
"EMailSendVB"="ODS"

Table of Contents

	' '''''''''''''''''''''''''''''''''
	' This function will check to see if the current logged in user is a part of a group
	' allowed to Modify the Email Rule.  Ensure users in the "Admin" group can get in.
	usergroups	= GetSession.GetUserGroups
	name_text	= GetFieldValue("Name").GetValue
	email_rule_AccessControl = FALSE
	if InStr(name_text,"(") and IsArray(usergroups) then

		string1 = split(name_text,"(")
		string2 = split(string1(1),")")
		allowed = split(string2(0),",")

		for each group in userGroups

			if group = "Admin" then
				email_rule_AccessControl = TRUE
				exit for
			end if

			for each allowed_group in allowed
				if group = allowed_group then
					email_rule_AccessControl = TRUE
					exit for
				end if
			end if
		next
	end if

Table of Contents

Table of Contents

Table of Contents

Table of Contents

$boundary = "SOME_VERY_UNIQUE_STRING";
$smtp->datasend("MIME-Version: 1.0\n");
$smtp->datasend("Content-Type: multipart/mixed; boundary=\"$boundary\"\n");

$smtp->datasend("\n--$boundary\n");
$smtp->datasend("Content-Type: text/plain;\n\n");
$smtp->datasend("This is the text body of the message.\n");

$temp = $ENV{TMP} || $ENV{TEMP};
if ( "$temp" eq "" ) {
	die "Must have a temp directory defined";
}

foreach $filename ("file1.xls","file2.doc") {

	# Copy the file from the database to the local disk.
	$full_path = "$temp/$filename";
	$attachment->Load($full_path);

	# Read the file contents, then delete the temporary file.
	open(FILE,$full_path);
	binmode(FILE);
	@buffer = (<FILE>);
	close(FILE);
	$content = join("",@buffer);
	unlink($full_path);

	# Mime encode the file and get it's mimed length.
	$encode = encode_base64($content);
	$length = length($encode);

	# Write the email entry.
	$attachment  = "\n--$boundary\n";
	$attachment .= "Content-Type: application/octet-stream; name=\"$filename\"\n";
	$attachment .= "Content-Disposition: attachment; filename=\"$filename\"\n";
	$attachment .= "Content-Transfer-Encoding: base64\n";
	$attachment .= "Content-Length: $length\n";
	$attachment .= "\n$encode\n";

	$smtp->datasend($attachment);
}

$smtp->datasend("--$boundary--\n");

	if ( ! $session->IsEmailEnabled ) {
		$result = "\n\nERROR: You must have email notification enabled to utilize this record type.\n";
	}

send_mail("emailaddress\@company.com;address2\@company.com","Subject","The body text allows <u><b>HTML</b></u>.\n");

sub send_mail {

	use Net::SMTP;
	my $smtp_server	= "smtpserver.company.com";
	my $to		= $_[0];
	my $subject	= $_[1];
	my $body	= $_[2];

	my $smtp = Net::SMTP->new("$smtp_server");
	if ( "$smtp" eq "" ) {
		$session->OutputDebugString("send_mail: ERROR: Unable to reach the SMTP server: $smtp_server\n");
		return;
	}

	$smtp->mail("ClearQuest-NoReply\@company.com");
	foreach $address (split(/\;/,$to)) {
		$address =~ s/\s+//g;
		$smtp->to($address);
	}
	$smtp->data();
	$smtp->datasend("To: $to\n");
	$smtp->datasend("Subject: $subject\n");
	$smtp->datasend("Content-type: text/html\n\n");
	$smtp->datasend("\n");
	$smtp->datasend("$body\n");
	$smtp->dataend();
	$smtp->quit;

	return;
}

	my $mailmsg = CQMailMsg::Build;
	$mailmsg->AddTo("emailaddress\@company.com");
	$mailmsg->SetSubject("This is the subject");
	$mailmsg->SetBody("This is the body text!\n");
	$mailmsg->Deliver;
	CQMailMsg::Unbuild($mailmsg);

Function Email_This_User (entity_type, entity_id, field_name)

	email_to	= GetFieldValue(field_name).GetValue
	email_subject	= entity_type & " " & entity_id
	email_body	= "This email was sent from ClearQuest."

	Set oOutlook	= CreateObject("Outlook.Application")
	Set oEmail	= oOutlook.CreateItem(dummy)

	oEmail.To	= email_to
	oEmail.Subject	= email_subject
	oEmail.Body	= email_body
	oEmail.Display

end function

	mailto:user@company.com?subject=This%20is%20the%20subject&body=This%20is%20the%20body

Table of Contents

Table of Contents

Table of Contents

	#@expression::$session->GetSessionDatabase->GetDatabaseName;@#

	#@expression::$entity->GetActionName;@#

	State: #?State?# #@EXPRESSION::if (#?State?# ne #%State%#) { "(Old Value: ". #%State%#.")"; }@#

Table of Contents

Table of Contents

	my $current_id = $entity->GetDisplayName;
	foreach my $entry (@{$entity->GetFieldValue($fieldname)->GetValueAsList}) {
		if ( "$entry" !~ /^$current_id:/ ) {
			$entity->DeleteFieldValue($fieldname,$entry);
		}
	}

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

@choices = " ";
if ( $use_list_A ) {
   $list_reference = $session->GetListMembers("Reason_For_Close_A");
} else {
   $list_reference = $session->GetListMembers("Reason_For_Close_B");
}
push(@choices,@{$list_reference});

  my $value           = $entity->GetFieldValue($fieldname)->GetValue();
  my @dependent_array = <populate array somehow>;
  $entity->SetFieldChoiceList("dependent-field-name",\@dependent_array);

  $OS = $entity->GetFieldValue("OS_version")->GetValue;
  if ($OS eq "UNIX") {
    push (@choices, "Solaris", "HP-UX","LINUX");
  } elsif ($OS eq "Windows") {
    push (@choices, "NT 4.0","98","95");
  }
  return @choices;

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

$s_listnames_ref = $s_session_o->GetListDefNames;
$d_listnames_ref = $d_session_o->GetListDefNames;

$n_lists	= scalar(@$d_listnames_ref);
$n		= 0;

foreach $list_name (@$d_listnames_ref) {

	$n++;
	print "$n/$n_lists: $list_name\n";


	# The case can occur where a list exists in the destination and not the
	# source.  Don't clear out the destination if that's true.
	if ( ! grep(/^$list_name$/,@$s_listnames_ref) ) {
		print "\tList doesn't exist in the source database. Skipping.\n";
		next;
	}


	# Clear out the destination list.
	$d_member_ref = $d_session_o->GetListMembers($list_name);
	foreach $member (@$d_member_ref) {
		$d_session_o->DeleteListMember($list_name,"$member");
	}


	# Rebuild the destination list.
	$s_member_ref = $s_session_o->GetListMembers($list_name);
	foreach $member (@$s_member_ref) {
		$d_session_o->AddListMember($list_name,"$member");
	}
}

  # importutil importlist [-dbset dbset] cqlogin cqpassword db_name list_name inputfile_name

  # importutil exportlist [-dbset dbset] cqlogin cqpassword db_name old_list_name inputfile_name
  # importutil importlist [-dbset dbset] cqlogin cqpassword db_name new_list_name inputfile_name

Table of Contents

	my @Choices = ("");
	$entity->SetFieldChoiceList("Keywords",\@Choices);
	$entity->SetFieldValue("Keywords","");
	my $project = $entity->GetFieldValue($fieldname)->GetValue;
	if("$project" ne "") {
		my $list = $session->GetListMembers($project);
		$entity->SetFieldChoiceList("Keywords",$list);
	}

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

If the URL you want to appear in the body of the email is:

  http://cqwebserver/cqweb/main?command=GenerateMainFrame&service=CQ&schema=Enterprise&contextid=DB01&entityID=12345678&entityDefName=Defect

you would create the MAILTO link such that the above special characters are URL encoded:

  MAILTO:elvis.presley?subject=DB0100001234&body=http%3A%2F%2Fcqwebserver%2Fcqweb%3Amain%3Fcommand%3DGenerateMainFrame%26service%3DCQ%26schema%3DEnterprise%26contextid%3DDB01%26entityID%3D12345678%26entityDefName%3DDefect

:	%3A
=	%3D
/	%2F
?	%3F
&	%26

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

  SQL> update record_type set new_field_name = old_field_name where new_field_name is null and old_field_name is not null;

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

	packageutil setwebdependentfields -dbset dbset admin-login admin-password schema record-type fieldname 1 -nocheckin

Table of Contents

	packageutil showwebdependentfields -dbset dbset admin-login admin-password schema record-type

Table of Contents

Table of Contents

	SELECT max(length(column-name)) FROM table_name;

	SELECT colname,length FROM syscat.columns WHERE tabname='TABLE-NAME'";

Table of Contents

Table of Contents

The following are executed when a record is validated:

Field Validation	Runs for each field on the record.
Action Validation	Runs for the performed action.

The following are executed when a record is committed. The record is first saved to the database without committing it, then the following are run:

Action Commit	Executes for the performed action.
-	Commits the changes to the database.
Action Notification	Sends out notifications based on established e-mail rules.

get a field value
Perl:       $field_value = $entity->GetFieldValue("fieldname")->GetValue;
VBScript:   fieldvalue = entity.GetFieldValue("fieldname").GetValue

choice lists
  $entity->InvalidateFieldChoiceList("list-fieldname");
  $entity->SetFieldChoiceList("fieldname","dynamic-list-name");
  @members = $session->GetListMembers(dynamic-list-name);

  $fieldChoiceListObj = $entity->GetFieldChoiceList("list-fieldname");
  $entity->SetFieldValue("other-fieldname",$fieldChoiceListObj->Item (0));
  @fielChoiceListValues = @$fieldChoiceListObj;

get the previous field value
  $old_fieldvalue = $entity->GetFieldOriginalValue("fieldname")->GetValue;

set a field value
  $entity->SetFieldValue("fieldname","value");

get the current action
  $action = $entity->GetActionName();

get the current state
  $state = $entity->LookupStateName();

get the previous state
  $old_state = $entity->GetFieldOriginalValue("State")->GetValue;

current user
  $login_name = $entity->GetSession->GetUserLoginName;

refer to a different record
  $other_entity = $entity->GetSession->GetEntity("other-entity-name",record-key);

output debug statements (on Windows, the debug statements can be viewed with dbwin32)
  $session->OutputDebugString("string");

set a default date
  $entity->SetFieldValue("fieldname",GetCurrentDate);

set requiredness in a different field
the requiredness is one of MANDATORY, OPTIONAL, or READONLY
  $entity->SetFieldRequirednessForCurrentAction("other-fieldname",$CQPerlExt::requiredness);

get the current record type's name
  record_type = sessionObj.GetEntityDef(GetEntityDefName).GetName 

if ( "$character" eq "x" ) {
  my $letter = "x";
} elsif ( "$character" eq "y" ) {
  my $letter = "y";
} else {
  my $letter = "z";
}

Instead, use:

my $letter;
if ( "$character" eq "x" ) {
  $letter = "x";
} elsif ( "$character" eq "y" ) {
  $letter = "y";
} else {
  $letter = "z";
}

Table of Contents

  if ( $username ne "admin" ) {
    $result = $CQPerlExt::CQ_READONLY; 
  } else {
    $result = $CQPerlExt::CQ_OPTIONAL;
  }

  If username <> "admin" Then
    result = AD_READONLY
  Else
    result = AD_OPTIONAL
  End If

Table of Contents

Table of Contents

Table of Contents

Table of Contents

# Usage:  @result = GetGroupMembersField(<group_name>,<field_name>);
#    ex:  @fullnames = GetGroupMembersField("Managers","fullname");
sub GetGroupMembersField {

        my @result;
        my @group = $_[0];
        my $ref   = \@group;
        my $field = $_[1];

        my $queryDef = $session->BuildQuery("users");
        $queryDef->BuildField($field);
        my $filterNode = $queryDef->BuildFilterOperator($CQPerlExt::CQ_BOOL_OP_AND);
        $filterNode->BuildFilter("groups",$CQPerlExt::CQ_COMP_OP_EQ,$ref);
        my $resultSet = $session->BuildResultSet($queryDef);
        $resultSet->Execute();
        my $status = $resultSet->MoveNext;
        while ( "$status" eq "$CQPerlExt::CQ_SUCCESS" ) {
                push(@result,$resultSet->GetColumnValue(1));
                $status = $resultSet->MoveNext;
        }
        return @result;
}

# This routine will retrieve a user field value based on
# another of the same user's fields.  The first argument is
# the field name of the known value.  The second argument is
# the known value.  The third argument is the field
# name of the value you wish to retrieve.
# If the known value is not found, nothing is returned without error.
# For example, if you know the user's email address and want to
# know their login:
# $login = GetUserValue("email",$user_email,"login_name");
sub GetUserValue {

	my $known_fieldname   = $_[0];
	my @known_value       = $_[1];
	my $unknown_fieldname = $_[2];

	# Start building a query of users.
	my $QueryDefObj = $session->BuildQuery("users");

	# Have the output be the unknown value.
	$QueryDefObj->BuildField($unknown_fieldname);

	# Filter on the designated known value.
	my $FilterOp = $QueryDefObj->BuildFilterOperator($CQPerlExt::CQ_BOOL_OP_AND);
	$FilterOp->BuildFilter($known_fieldname,$CQPerlExt::CQ_COMP_OP_EQ,\@known_value);

	# Execute the query and return the result.
	my $ResultSetObj = $session->BuildResultSet($QueryDefObj);
	$ResultSetObj->Execute;
	if ( $ResultSetObj->MoveNext == $CQPerlExt::CQ_SUCCESS ) {
		return $ResultSetObj->GetColumnValue(1);
	}

	return;
}

  $entity->SetFieldValue("ratl_mastership","remote-site-replica-name");

• Parent fields must be enabled for dependent fields.
• You must use specific box types for dependent fields.
• Context-menu hooks are not supported.
• You can use hooks to detect a web session.
• Hooks cannot be interactive.

Table of Contents

##################
# Permission is based on who is set in the specified
# field.  The field is assumed to contain the "fullname"
# of the user.  If the current user matches the fullname
# in the specified field, the result is set as optional,
# otherwise the result is set as read-only.

# Usage:
# $result = SetPermissionByUser("Reviewer1");

sub SetPermissionByUser {

	my $field = $_[0];
	my $field_value,$current_user;

	$field_value = $entity->GetFieldValue($field)->GetValue();
	$result      = $CQPerlExt::CQ_READONLY;
	if ( "$field_value" ) {
		$current_user = $entity->GetSession->GetUserFullName;
		if ( "$current_user" eq "$field_value" ) {
			$result = $CQPerlExt::CQ_OPTIONAL;
		}
	}

	return $result;
}
##################

##################
# This will return an optional permission if the
# current user is a member of the specified group.
# This routine will only work when called from a field
# permission hook whose Behavior has been set to
# USE_HOOK.

# Usage:
# $result = SetPermissionByGroup("GroupName");

sub SetPermissionByGroup {

	my $groupname = $_[0];
	my $username  = $entity->GetSession->GetUserLoginName;
	my @groups    = $entity->GetSession->GetUserGroups;
	my $group;

	$result = $CQPerlExt::CQ_READONLY;
	foreach $group (@groups) {
		if ( "$group" eq "$groupname" ) {
			$result = $CQPerlExt::CQ_OPTIONAL;
			last;
		}
	}

	return $result;
}
##################

# Build a choice list of active records.
# The first argument is the record type, the second
# argument is the field that holds a 1 or 0 that
# indicates whether or not a record is active.  The
# third argument is the field whose values will be
# returned in an array.

# Usage:
# @choices = GetActiveRecords("Project","Project_is_active","Project_Name");
# -or-
# @choices = GetActiveRecords("users","is_active","fullname");

sub GetActiveRecords {

	my $record_type      = $_[0];
	my $active_fieldname = $_[1];
	my $return_fieldname = $_[2];
	my @choices;

	# Start building a query of the record type.
	my $QueryDefObj = $session->BuildQuery($record_type);

	# Build the list of output fields.
	$QueryDefObj->BuildField($return_fieldname);
	$QueryDefObj->BuildField($active_fieldname);

	# Execute the query and return the result.
	my $ResultSetObj = $session->BuildResultSet($QueryDefObj);
	$ResultSetObj->Execute;
	while ( $ResultSetObj->MoveNext == $CQPerlExt::CQ_SUCCESS ) {
		if ( $ResultSetObj->GetColumnValue(2) == 1 ) {
			push(@choices,$ResultSetObj->GetColumnValue(1));
		}
	}
	return @choices;

}

# This hook will build a list of field values that have changed.

my ($fieldnames,$session,$fieldname,$oldvalue,$newvalue);
$session = $entity->GetSession;


# Loop through the fields.
$fieldnames = $entity->GetFieldNames;
foreach $fieldname (@$fieldnames) {

    $oldvalue = $entity->GetFieldOriginalValue($fieldname)->GetValue;
    $newvalue = $entity->GetFieldValue($fieldname)->GetValue;

    # Compare the values
    if ( ! "$oldvalue" && "$newvalue" ) {
        $session->OutputDebugString("Field ($fieldname) newly set to ($newvalue).\n");
    } elsif ( "$oldvalue" && ! "$newvalue" ) {
	$session->OutputDebugString("Field ($fieldname) has been cleared.\n");
    } elsif ( "$oldValue" ne "$newvalue" ) {
	$session->OutputDebugString("Field ($fieldname) changed from ($oldvalue) to ($newvalue).\n");
    }
}

# ######################
# Ensure the specified date is not previous to today.
# This is designed to be called from a data field's
# validation hook.
# Usage:
# $result = CheckDate($entity->GetFieldValue($fieldname)->GetValue);

sub CheckDate {

	my $field_date = $_[0];
	return if ( ! "$field_date" );

	$field_date      = (split(/ /,$field_date))[0];
	$field_date      =~ s/\-//g;
	my $current_date = GetCurrentDate;
	$current_date    = (split(/ /,$current_date))[0];
	$current_date    =~ s/\-//g;
	if ( $field_date < $current_date ) {
		return $result = "The specified date is in the past: $field_date";
	}

	return;
}

Table of Contents

	' '''''''''''''''''''''''''''''
        ' A ticket number must adhere to the format of CRdddddd, 
        ' where "dddddd" is a 6-digit number. 
        dim value 
        value = GetFieldValue("Ticket").GetValue 
        if value <> "" then
                set regEx = New regexp 
                regEx.Pattern    = "CR\d{6}" 
                regEx.IgnoreCase = True 
                Set Matches = regEx.Execute(value) 
                match_not_found = 1 
                for each Match in Matches 
	                match_not_found = 0 
                next 
                if match_not_found then 
                        Ticket_Validation = "Ticket numbers must adhere to CRdddddd, where dddddd is 6-digit number."

                end if 
        end if 

Table of Contents

	$queryDefObj = $session->BuildQuery("System");
	$queryFieldDefObj = $queryDefObj->BuildUniqueKeyField();
	$queryFieldDefObj->SetIsShown(1);
	$resultSetObj = $session->BuildResultSet($queryDefObj);
	$resultSetObj->Execute;
	if ( $resultSetObj->MoveNext == $CQPerlExt::CQ_SUCCESS ) {
		print $resultSetObj->GetColumnValue(1)."\n";
	}

Table of Contents

	set recordObj = sessionObj.GetEntity("RecordTypeName", "key1_value" & " " & "key2_value")

$schema_name = "Enterprise";

# Log into an admin session.
$adminSession = CQAdminSession::Build;
$adminSession->Logon($login,$passwd,$dbset);

# Loop through the list of schemas.
$schemasObj = $adminSession->GetSchemas;
for ( $x = 0; $x < $schemasObj->Count; $x++ ) {

	# Get the schema name of each schema and compare it.
	$schemaObj	= $schemasObj->Item($x);
	$schemaName	= $schemaObj->GetName;
	if ( $schemaName eq $schema_name ) {

		# Get a list of the schema revisions and then get the ID of the last one.
		$schemaRevsObj	= $schemaObj->GetSchemaRevs;
		$schemaRevObj	= $schemaRevsObj->Item($schemaRevsObj->Count - 1);
		$schemaRev	= $schemaRevObj->GetRevID;
		last;
	}
}
print "($schema_name) schema is at version ($schemaRev).\n";
CQSession::Unbuild($adminSession);

  myfield_value = GetFieldValue("MyField").Getvalue
  sessionObj.OutputDebugString "The value of MyField is " & myfield_value & "." & vbCrLf

Table of Contents

	' ''''''''''''''''''''''''
	' Update the detailed history.
	' This wasn't placed in the All_actions action Validation because we
	' need the actionname to indicate the real action.
	Detailed_History_Capture "Defect", actionname, Defect_Validation

' ''''''''''''''''''''''''''''
' This subroutine will record the old and new values in the
' Detailed_History field if the field value has changed.
' The TR, Defect, ST, and CN record types have their field
' lists in dynamic lists.  All other record types will record
' all field values except those explicitly listed below.
sub Detailed_History_Capture(record_type, action_name, validation_message)

	' IMPORTANT NOTE: This script is called at the action Validation stage.  Becuase changes
	' in refrence-type fields, such as the CN/Defect parent/child relationship, aren't actually
	' performed until the Commit stage, those changes won't show up in the Detail History.
	' It is unknown how to get around this and record changes in reference lists.

	' Don't capture detailed history for the Submit, Import or Delete actions.
	action_type = GetActionType
	if action_type = AD_SUBMIT or action_type = AD_IMPORT or action_name = AD_DELETE then
		exit sub
	end if

	' The "validation_message" variable will only be non-null if there is a validation error.
	' But, for an unknown reason, during the Duplicate and Unduplicate actions, while there
	' is no error message, "validation_message" contains a non-sensical string.  So, the "if"
	' statement here is pretty kludgy to circumvent this problem.  Also, in the web interface,
	' the "validation_message" variable has a series of question marks.  So, a check is made
	' for that as well.  This assumes that no "real" error message has exactly 47, 43 or exactly
	' 14 characters.
	length = len(validation_message)
	if ( validation_message <> "" and length <> 47 and length <> 43 and length <> 14 ) then
		exit sub
	end if


	dim existing_history, field_list, fieldname, orig_value, new_value, history_entry
	dim fullname, date, field_changed, x


	' Build the list of field names that are to be monitored.
	set sessionObj = GetSession
	if record_type = "Test_Requirement" then
		listname = "Detailed_history_TR"
	elseif record_type = "Defect" then
		listname = "Detailed_history_Defect"
	elseif record_type = "ScriptTotals" then
		listname = "Detailed_history_ST"
	elseif record_type = "CodeNotification" then
		listname = "Detailed_history_CN"
	else
		listname = ""
	end if
	if listname <> "" then
		field_list = sessionObj.GetListMembers(listname)
	else
		field_list = GetFieldNames
	end if


	' Initialize some variables.
	field_changed    = 0	
	fullname         = sessionObj.GetUserFullName
	date             = Now
	existing_history = GetFieldOriginalValue("Detailed_History").GetValue
	history_entry    = "**************************************************************" & vbCrLf & "DATE:   " & date & vbCrLf & "ACTION:   " & action_name & vbCrLf & "USER:   " & fullname & vbCrLf


	' Loop through the fields.  Add changed fields to the new history entry.
	for each fieldname in field_list
		if fieldname <> "" and fieldname <> "Detailed_History" and fieldname <> "history" and fieldname <> "Old_Names" and fieldname <> "Note_Entry" and fieldname <> "Notes_Log" and InStr(fieldname,"Modified_") = 0 then
			orig_value = GetFieldOriginalValue(fieldname).GetValue
			new_value  = GetFieldValue(fieldname).GetValue
			if orig_value <> new_value then
				history_entry = history_entry & vbCrLf & "FIELD NAME (" & fieldname & "):" & vbCrLf & "   OLD VALUE:   " & orig_value & vbCrLf & "   NEW VALUE:   " & new_value & vbCrLf
				field_changed = 1
			end if
		end If
	next


	' Change the Detailed_History field if necessary.
	if field_changed then
		SetFieldValue "Detailed_History", history_entry & vbCrLf & existing_history
	end if

end sub

Table of Contents

Table of Contents

	require Win32::Registry;
	@keys = (	"Software\\Rational Software\\Email\\SendMail",
			"Software\\Rational Software\\ClearQuest\\7.0.0\\SendMail",
			"Software\\Rational Software\\ClearQuest\\2003.06.00\\SendMail"
		);
	$key_not_found = 1;
	foreach $key (@keys) {
		eval {
			$main::HKEY_CURRENT_USER->Open($key,$keyref);
		};
		if ( ! "$@" ) {
			$key_not_found = 0;
			last;
		}
	}
	if ( $key_not_found ) {
		return "\nEmail notification must be enabled.\n";
	}

	$keyref->GetValues(\%pairs);
	foreach $key (keys %pairs) {
		if ( $key eq "SendActive" ) {
			if ( $pairs{$key} ne "1" ) {
				return "\nEmail notification must be set as active.\n";
			}
			next;
		}
		
		etc ...
	}

Table of Contents

	$session->SetNameValue("CQHookExecute","1");

Table of Contents

	$entityDefNames = $sessionObj->GetEntityDefNames;
	foreach $record_type (@$entityDefNames) {
		$entityDefObj = $sessionObj->GetEntityDef($record_type);
	}

	use LWP::Simple;
	$result = get("$url");

Table of Contents

	$dbname = $session->GetSessionDatabase->GetDatabaseName;

Table of Contents

	$record_type = $entity->GetEntityDefName;

Table of Contents

$att_fields = $entity->GetAttachmentFields;
for ( $x = 0; $x < $att_fields->Count; $x++ ) {
	$atts = $att_fields->Item($x)->GetAttachments;
	for ( $y = 0; $y < $atts->Count; $y++ ) {
		$att		= $atts->Item($y);
		$name		= $att->GetFileName;
		$short_name	= ($name =~ m/([^\\\/]+)[\\\/]?$/);
	}
}

Table of Contents

	$dbset = $session->GetSessionDatabase->GetDatabaseSetName;

Table of Contents

Table of Contents

	my $temp;
	my @unique_list = grep(!$temp{$_}++,@original_list);

Table of Contents

my $entityDefNames = $session->GetEntityDefNames;
foreach $record_type ( @$entityDefNames ) {

	print "$record_type\n";

	# Loop through each field in the entitydef.
	my $entityDefObj	= $session->GetEntityDef($record_type);
	my $fieldnames		= $entityDefObj->GetFieldDefNames;
	foreach $fieldname (@$fieldnames) {

		next if ( "$fieldname" =~ /^ratl_/ );

		my $fieldtype = $entityDefObj->GetFieldDefType($fieldname);
		if ( $fieldtype == 5 || $fieldtype == 6 ) {
			print "\t$fieldname\n";
		}
	}
}

	$listnamesRef = $session->GetListDefNames;
	foreach $list_name (@$listnamesRef) {
		print "$list_name\n";
	}

	$entity->SetFieldChoiceList(fieldName, choiceList);
Ex:
	$entity->SetFieldChoiceList("Name",\@names);

	return if ( $session->HasValue("_CQ_WEB_SESSION") );

	@choices = sort {lc($a) cmp lc($b)} @unsorted_data;

sub CompareDates {

	# This script will compare the two dates provided to it.
	# It requires three arguments inside of one string.
	#	date/time 1
	# 	comparison operator:  <, =, or >
	# 	date/time 2
	# It will return a 1 if the equation evaluates to true,
	# or a 0, if it does not.

	# The dates must be in a standard format of:
	#	yyyy-mm-dd hh:mm:ss		# 24-hr format, as returned from the ClearQuest GetFieldValue API method
	# - or -
	#	mm/dd/yyyy hh:mm:ss		# 24-hr format, as returned from the ClearQuest GetCurrentDate global script
	# - or -
	#	WWW MMM {d}d hh:mm:ss yyyy	# 24-hr format, as returned from the Perl localtime function

	# Usage:
	#	if ( CompareDates("$migration_signoff < $migration_date") ) {
	#		$error = "The Migrator Sign Off Date cannot pre-date the Migration Date.\n";
	#		...

	my $script;
	($script = (caller(0))[3]) =~ s/^main:://;

	my %months = (
		"Jan"	=> 0,
		"Feb"	=> 1,
		"Mar"	=> 2,
		"Apr"	=> 3,
		"May"	=> 4,
		"Jun"	=> 5,
		"Jul"	=> 6,
		"Aug"	=> 7,
		"Sep"	=> 8,
		"Oct"	=> 9,
		"Nov"	=> 10,
		"Dec"	=> 11
	);

	# Parse the input.
	my $input = $_[0];
	my($date1,$operator,$date2);
	my($year1,$month1,$day1,$hour1,$min1,$sec1,$year2,$month2,$day2,$hour2,$min2,$sec2);

	if ( "$input" eq "" ) {
		exit_error("CompareDates syntax ERROR: Requires a date comparison string and got nothing.\n","CompareDates syntax error");
	}
	if ( "$input" =~ /^(.+) ([\<\=\>]) (.+)$/) {
		$date1		= $1;
		$operator	= $2;
		$date2		= $3;
	} else {
		exit_error("CompareDates syntax ERROR: Input argument not formatted correctly: $input\n","CompareDates syntax error");
	}

	if ( $date1 =~ /^(\d{4})\-(\d{2})\-(\d{2}) (\d{2})\:(\d{2})\:(\d{2})$/ ) {
		$year1	= $1;
		$month1	= $2 - 1;
		$day1	= $3;
		$hour1	= $4;
		$min1	= $5;
		$sec1	= $6;
	}
	if ( $date1 =~ /^(\d{2})\/(\d{2})\/(\d{4}) (\d{2})\:(\d{2})\:(\d{2})$/ ) {
		$year1	= $3;
		$month1	= $1 - 1;
		$day1	= $2;
		$hour1	= $4;
		$min1	= $5;
		$sec1	= $6;
	}
	if ( $date1 =~ /^(\w{3}) (\w{3})\s+(\d{1,2}) (\d{2})\:(\d{2})\:(\d{2}) (\d{4})$/ ) {
		$year1	= $7;
		$month1	= $months{$2};
		$day1	= $3;
		$hour1	= $4;
		$min1	= $5;
		$sec1	= $6;
	}
	if ( "$year1" eq "" ) {
		exit_error("CompareDates syntax ERROR: Date1 argument not formatted correctly: $date1\n","CompareDates syntax error");
	}

	if ( $date2 =~ /^(\d{4})\-(\d{2})\-(\d{2}) (\d{2})\:(\d{2})\:(\d{2})$/ ) {
		$year2	= $1;
		$month2	= $2 - 1;
		$day2	= $3;
		$hour2	= $4;
		$min2	= $5;
		$sec2	= $6;
	}
	if ( $date2 =~ /^(\d{2})\/(\d{2})\/(\d{4}) (\d{2})\:(\d{2})\:(\d{2})$/ ) {
		$year2	= $3;
		$month2	= $1 - 1;
		$day2	= $2;
		$hour2	= $4;
		$min2	= $5;
		$sec2	= $6;
	}
	if ( $date2 =~ /^(\w{3}) (\w{3})\s+(\d{1,2}) (\d{2})\:(\d{2})\:(\d{2}) (\d{4})$/ ) {
		$year2	= $7;
		$month2	= $months{$2};
		$day2	= $3;
		$hour2	= $4;
		$min2	= $5;
		$sec2	= $6;
	}
	if ( "$year2" eq "" ) {
		exit_error("CompareDates syntax ERROR: Date2 argument not formatted correctly: $date2\n","CompareDates syntax error");
	}

	# Get the integer equivalent of the dates.
	use Time::Local;
	my($date1epoch,$date2epoch);
	eval {
		$date1epoch = timelocal($sec1,$min1,$hour1,$day1,$month1,$year1);
	};
	if ( "$@" ne "" ) {
		exit_error("CompareDates date1 has a syntax problem:\n$@\n","CompareDates syntax error");
	}
	eval {
		$date2epoch = timelocal($sec2,$min2,$hour2,$day2,$month2,$year2);
	};
	if ( "$@" ne "" ) {
		exit_error("CompareDates date2 has a syntax problem:\n$@\n","CompareDates syntax error");
	}

	# Perform the comparison.
	if ( ($operator eq "<" && $date1epoch < $date2epoch) || ($operator eq "=" && $date1epoch == $date2epoch) || ($operator eq ">" && $date1epoch > $date2epoch) ) {
		return 1;
	} else {
		return 0;
	}
}

	$entitydef_o	= $session->GetEntityDef("record-type");
	$fieldnames_ref	= $entitydef_o->GetFieldNames();
	foreach $field (@{$fieldnames_ref}) {
		...

	$is_batch_update = $session->GetNameValue("ratl_MultiModifyBatchMode");

Add:
	$entity->AddFieldValue("FieldName","UniqueID");
Remove:
	$entity->DeleteFieldValue("FieldName","UniqueID");

	$members_ref = $session_o->GetListMembers("MyNamedList");
	print "MyNamedList members:\n";
	foreach $member (@$members_ref){
		print "\t$member\n";
		...

Different licensing types.

Have FLEXlm startup at reboot on Windows.

Point to a remote license server on Windows.

	HKEY_LOCAL_MACHINE/SOFTWARE/Wow6432Node/Rational Software/Licensing/8.0/Server List:
		PortAtHost = 27000@slda302p
	and
		Entry0:
			Server Name = slda302p

LM_LICENSE_FILE   27000@flexlm-license-server

Request permanent licenses.

Track license usage over time.

Table of Contents

	use Win32::Registry;

	$key = "SOFTWARE\\Rational Software\\ClearQuest";
	eval {
		$::HKEY_LOCAL_MACHINE->Open($key,$parameters_o);
	};
	if ( "$parameters_o" ne "" ) {
		$parameters_o->QueryValueEx("CurrentVersion",$type,$current_cq_version);
		$parameters_o->Close;
	}

	print "$current_cq_version\n";

  C:\  MediaType.exe  .\results.txt

Table of Contents

"6 April 1999"
"April 6, 1999 8:30.00"
"8:30.00 Apr 6 1999"
"4/6/1999 8:30.00PM"

"id","state","submitdate","severity","project","headline","phone", ...
"00010","Submitted","April 6, 1999 8:30.00","3-Workaround","proj1,proj2","This is only a ""TEST"" of DDTS.","480-123-4567", ...
"00141","Opened","1/4/1997 11:32.00","1-Critical","myproj,yourproj,ourproj","Help!  I've fallen and I can't get up.","<<None>>", ...

"id","timestamp","user_name","action_name","old_state","new_state"
"00010","Apr 6, 1999 8:30.00","ejo","transition","verified","closed"
"00141","4/6/1999 8:30.00PM","ejo","This is a history test line","<<None>>","<<None>>"

"id","attachment","hostfile"
"00010","\\hostname\share\ddts\allbinaries\EJOcc00010\ejo_cshrc.txt","C:\temp\hosts"

  ...
  Attributes:
    FIXES = "DDTS-bugnumber"
  Hyperlinks:
    CrmRequest "record-type" -> "CQ-bugnumber"

msiexec /a <complete path to the msi in the release area> /p <complete path to the msp file> <UI switch> /qb /lv* <complete path to the log file>

Ex:
msiexec /a C:\cq_release\SETUP\1033_ClearQuest.msi /p c:\temp\7.0.1.12-RATL-RCQ-WIN-en-US-FP12.msp /qb /lv* c:\temp\install.log

Table of Contents

Table of Contents

	SELECT TABNAME,INDNAME,COLNAMES FROM SYSCAT.INDEXES WHERE TABSCHEMA NOT LIKE 'SYS%' ORDER BY 1,2;

  create index company_name_idx on company (name);

Table of Contents

	# In the global script.
	use constant DEBUG => 1;

	# In other scripts.
	if ( DEBUG ) { $session->OutputDebugString("ClearCase is MUCH slower than GIT!"); }

Table of Contents

REGEDIT4

[HKEY_CURRENT_USER\Software\Rational Software\ClearQuest\Diagnostic]
"Trace"="throw;db_connect=2;sql=2;edit;session;api;cursor"
"Behavior"=""
"Report"="MESSAGE_INFO=-1"
"Output"="c:\\temp\\cqnative_trace.txt"
"Name"=""

Table of Contents

Field validation:
	release_value = GetFieldValue(fieldname).GetValue
	if len(release_value) < 10 then
		release_Validation = "Release numbers must be at least 10 characters in length."
	end if

Action validation:
	release_value = GetFieldValue("Release").GetValue
	if len(release_value) < 10 then
		Defect_Validation = "Release numbers must be at least 10 characters in length."
	end if

Button click (calls MyRecordScript):
sub MyRecordScript {
	if ( $session->GetUserLoginName ne "admin" ) {
		$result = "Only the \"admin\" user can perform this button click.\n";
	}
	return $result;
}

	release_value = GetFieldValue("Release").GetValue
	if len(release_value) < 10 then
		msgbox "We recommend that Release numbers be at least 10 characters in length."
	end if

	Defect_Bad_Release_Number = "We recommend that Release numbers be at least 10 characters in length." & vbCrLf	

	release_value = GetFieldValue("Release").GetValue
	if len(release_value) < 10 then
		current_note_entry = GetFieldValue("Note_Entry").GetValue
		SetFieldValue "Note_Entry", current_note_entry & vbCrLf & "FYI: We recommend that Release numbers be at least 10 characters in length." & vbCrLf & "-- ClearQuest Administrator" & vbCrLf
	end if

	my $return = $new_entity->Validate;
	if ( "$return" ne "" ) {
		my $error_msg = "$script_name ERROR: Creation of a Secondary record failed validation.  Please contact the CQ support team with the following error message.\n\n$return\n";
		$session->OutputDebugString("$error_msg");   # This gets sent to dbwin32
		send_admin_email("$error_msg");              # This would send email to CQ admins
		die("$error_msg");                           # This pops up a box for the user
	}

	if ( $ENV{CQ_DEBUG} ) { $session->OutputDebugString("my message"); }

	debug("my message");

	sub debug {
		if ( ! $session->HasValue("DEBUG") && "$ENV{CQ_DEBUG}" ) {
			$session->SetNameValue("DEBUG","1");
		}
		if ( $session->HasValue("DEBUG") ) {
			$session->OutputDebugString($_[0]);
		}
	}

	open(OUT,"> C:\\temp\\information.txt");
	print OUT "Some data.\n";
	close(OUT);

$html_file = "C:\\temp\\user_information.html";
$session->OutputDebugString("Generating $html_file content ...\n");

push(@page,"<HTML>\n");
push(@page,"<HEAD><TITLE>Some Data</TITLE></HEAD>\n");
push(@page,"<BODY><FONT FACE='Arial' SIZE='-1'>\n");
push(@page,"<TABLE BORDER='1' CELLSPACING='0' CELLPADDING='0'>\n");
push(@page,"<TR><TH>Login</TH><TH>Fullname</TH><TH>Phone</TH>\n");

@logins = ("eric","john","ostrander");
foreach $login (@logins) {
	$fullname	= join(" ",@logins);
	$phone		= "123";
	push(@page,sprintf("<TR><TD>%s</TD><TD>%s</TD><TD>%s</TD>\n",$login,$fullname,$phone));
}
push(@page,"</TABLE>\n");
push(@page,"</BODY>\n");
push(@page,"</HTML>\n");

$session->OutputDebugString("Opening $html_file.\n");
open(OUTFILE,"> $html_file");
print OUTFILE @page;
close OUTFILE;

$session->OutputDebugString("Running $html_file ...\n");
system("$html_file");

VBScript:

	release_value = GetFieldValue("Release").GetValue
	if len(release_value) < 10 then

		set mailObj = CreateObject("PAINET.MAILMSG") 

		current_user_email = GetSession.GetUserEmail
		mailObj.AddTo(current_user_email) 

		id_number = GetFieldValue("id").GetValue
		subject = "Invalid Release number for Defect " & id_number & vbCrLf
		mailObj.SetSubject(subject) 

		body = "We recommend that Release numbers be at least 10 characters in length." & vbCrLf
		mailObj.SetBody(body) 

		status = mailObj.Deliver

	end if

Perl:
	SendEmail("ejo\@company.com|administrator\@company.com","This is the subject","This is the body.\n");

	sub SendEmail (

		# This global script will send an email to the specified users.
		# It requires the following input:
		#	1) Pipe-separated list of email addresses
		#	2) Subject line
		#	3) Email body
		# It doesn't return anything.

		# Usage:
		#	SendAdminEmail("address1|address2","Subject","Body");

		my $script = (caller(0))[3];
		$session->OutputDebugString("Starting $script\n");

		use Net::SMTP;
		my $smtp_server	= "smtp.server.name";
		my $from	= "CQ_Schema_NoReply\@company.com";

		# Retrieve the input data.
		$session->OutputDebugString("$_[0],$_[1],$_[2]\n");
		if ( scalar(@_) != 3 ) {
			my $error = "\n$script syntax ERROR: Did not get exactly three string arguments.\n";
			$session->OutputDebugString($error);
			die $error;
		}
		my @addressees	= split(/\|/,$_[0]);
		my $subject	= $_[1];
		my $body	= $_[2];

		# Contact the SMTP server
		my $smtp = Net::SMTP->new($smtp_server);
		if ( "$smtp" eq "" ) {
			my $error = "\n$script ERROR: Unable to connect to SMTP server: $smtp_server\n";
			$session->OutputDebugString($error);
			die $error;
		}
		$session->OutputDebugString("Contacted SMTP server: $smtp_server.\n");


		# Build the email and send it.
		$smtp->mail($from);
		foreach $to (@addressees) {
			$session->OutputDebugString("Sending email to: $to\n");
			$smtp->to($to);
		}
		$smtp->data();
		$smtp->datasend("To: @addressees \n");
		$smtp->datasend("Subject: $subject\n");
		$smtp->datasend("Content-Type: text/plain;\n\n");
		$smtp->datasend("\n$body\n");
		$smtp->dataend();
		$smtp->quit;

		$session->OutputDebugString("Returning from $script\n");
		return;
	}

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

push(@page,"<HTML>\n");
push(@page,"<HEAD><TITLE>Some Data</TITLE></HEAD>\n");
push(@page,"<BODY><FONT FACE='Arial' SIZE='-1'>\n");
push(@page,"<TABLE BORDER='1' CELLSPACING='0' CELLPADDING='0'>\n");
push(@page,"<TR><TH>Login</TH><TH>Fullname</TH><TH>Phone</TH>\n");

foreach $login (@logins) {
	...
	push(@page,sprintf("<TR><TD>%s</TD><TD>%s</TD><TD>%s</TD>\n",$login,$fullname,$phone);
}
push(@page,"</TABLE>\n");
push(@page,"</BODY>\n");
push(@page,"</HTML>\n");

$html_file = $ENV{"TEMP"} . "/user_information.html";
open(OUTFILE,"> $html_file");
print OUTFILE @page;
close OUTFILE;

# The sleep is necessary to give the browser time to launch and display
# the temporary file before it gets deleted.
system("$html_file");
sleep 10;
unlink("$html_file");

Table of Contents

	use Win32::OLE qw(in with);
	use Win32::OLE::Const "Microsoft Excel";
	use Win32::OLE::Variant;
	use Win32::OLE::NLS qw(:LOCALE :DATE);

	$Win32::OLE::Warn = 3; # Die on Errors.

	$excelfile = ".\\myfile.xlsx";

	$Excel = Win32::OLE->new('Excel.Application');
	if ( Win32::OLE->LastError ) {
		print "Unable to open an Excel spreadsheet.\n".Win32::OLE->LastError;
		exit 1;
	}
	$Excel->{DisplayAlerts}=0;

	$Book = $Excel->Workbooks->Add();
	if ( Win32::OLE->LastError ) {
		print "Unable to add workbook.\n".Win32::OLE->LastError;
		exit 1;
	}

	$Sheet = $Book->Worksheets("Sheet1");
	$Sheet->Activate();       
	$Sheet->{Name} = "Stale ClearQuest records in CQ";
	if ( Win32::OLE->LastError ) {
		print "Unable to activate a sheet.\n".Win32::OLE->LastError;
		exit 1;
	}

	$Sheet->Range("a1")->{Value} = "My text";   

	$Book->SaveAs($excelfile);
	$Book = $Excel->Workbooks->Close();

	# Create and save a new Word doc.

	use strict;
	use File::Spec;
	use Win32::OLE;

	my $word = CreateObject Win32::OLE("Word.Application");
	#$word->{'Visible'} = 1;   # Use this if you want to display the Word doc.

	my $document	= $word->Documents->Add;
	my $selection	= $word->Selection;

	$selection -> {'Style'} = "Heading 1";
	$selection -> TypeText("Some header");
	$selection -> TypeParagraph;

	$selection ->{"Style"} = "No Spacing";
	$selection -> Font->{Bold} = 1;
	$selection -> TypeText("This is bolded.\n");
	$selection -> Font->{Bold} = 0;

	$selection -> Font->{ColorIndex} = 2;
	$selection -> TypeText("This is blue.\n");
	$selection -> Font->{ColorIndex} = 1;

	$selection -> TypeParagraph;

	my $script	= (split(/\\/,$0))[-1];
	my $path	= File::Spec->rel2abs($0);
	my $script_path;
	($script_path	= $path) =~ s/\\$script//;

	$document->SaveAs("$script_path\\word.doc");

	exit 0;


1 Black 
2 Blue 
3 Turquoise 
4 BrightGreen 
5 Pink 
6 Red 
7 Yellow 
8 White 
9 DarkBlue 
10 Teal 
11 Green 
12 Violet 
13 DarkRed 
14 DarkYellow 
15 Gray50 
16 Gray25

	# Open an existing word doc and flatten it to a text file.
	use Win32::OLE::Const qw(Microsoft.Word);

	$word_o		= CreateObject Win32::OLE("Word.Application");
	$document_o	= $word_o->Documents->Open("$wordfile");
	$word_o->ActiveDocument->SaveAs({FileName => "$wordfile.txt", FileFormat => wdFormatTextLineBreaks});
	$word_o->Quit;

	$return = do("$path\\other_script.pl");

	# Check for a problem calling the other script.
	if ( ! defined($return) ) {

		if ( "$@" ne "" && "$@" !~ /_TK_EXIT_\(0\)/ ) {
			print "There was a problem compiling the child:\n$@\n";
			exit 1;
		}

		if ( "$!" ne "" )	{
			print "There was a problem executing the child:\n$!\n";
			exit 1;
		}
	}

Table of Contents

Table of Contents

	installutil scrubhistory dbset login password db record_type -before date -verbose

	Ex:
	installutil scrubhistory PRODCQ admin 1234 TKTS Error_Log -before 2012-03-31 -verbose

	# If using the default port number.
	installutil registerconnectoptions DB2 "USE_DB2_CLIENT_DRIVER"

	# If your architecture uses custom port number.
	installutil registerconnectoptions DB2 "USE_DB2_CLIENT_DRIVER;PORT=port"

	# Turn off using other ODBC drive and go back to using the bundled one.
	installutil registerconnectoptions DB2 ""

Table of Contents

	# Retrieve the list of views in a db.
	SELECT viewname FROM syscat.views;

	# Inspect the query associated with a view.
	# If running in pdsql, the "text" output will be truncated.
	SELECT text FROM syscat.views WHERE viewname = 'view';

Table of Contents

Table of Contents

  # packageutil installintoschemarepo [-dbset dbset-name] admin-login admin-password package-name package-version

See also Install a package into a record type.

Table of Contents

Table of Contents

Table of Contents

  # packageutil enableediting -dbset "dbset" CQ-admin admin-password -enable CQ-admin

  # packageutil enableediting -dbset "dbset" CQ-admin admin-password -disable CQ-admin

  # packageutil registerpackage package-name package-rev package-path

Ex:
  # packageutil registerpackage CustomPackage 1.1 "C:\Program Files\Rational\ClearQuest\packages\CustomPackage\1.1"

Table of Contents

Hide the Package functionality
If the package was applied a while ago, and there are many schema versions in between the time it was applied and now, it is possible to leave the package intact and just remove the tabs that the package added to the forms. In the future, should you decide you need this package, you could just add the tabs back and the corresponding fields back on the forms.

Roll back the schema revisions
If a package was added by mistake, the only way to remove it would be to delete all schema versions back to before the package was added. However this procedure cannot be done if any databases are using these newer schema revisions. Note: If the only database using the new schema version is a test database, then you can delete the test database. At this point, you can continue with rolling back the schema versions.

Restore from back-up
If the production database has already been upgraded with this package, the databases would need to be deleted. Then the schema where this package was installed could be deleted. Alternatively, the Schema Repository and all associated databases could be restored from a back-up from before the package was applied to the schema.

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

  # bkt_tool -export -user cq-admin -password password -dbset old-schema-repo -dbname old-user-db -storagefile output-file

  # bkt_tool -import -user cq-admin -password password -dbset new-schema-repo -dbname new-user-db -storagefile output-file

Email queries

Copying using the API

#######################
# Log into the source database.
print "$module: Logging into the source database ($src_db) at ($src_dbset) ...\n";
$sessionObj = CQSession::Build;
$sessionObj->UserLogon($src_login,$src_passwd,$src_db,$src_dbset);


#######################
# Retrieve the source qcr.
$workSpaceObj = $sessionObj->GetWorkSpace;
$workSpaceObj->SetUserName($src_login);
$x = 0;
foreach $item_type ("Query","Chart") {

	$get_list_method	= "Get${item_type}DbIdList";
	$get_obj_method		= "Get${item_type}DefByDbId";

	$listRef = $workSpaceObj->$get_list_method(2);
	foreach $dbid (@$listRef) {

		$item_pathRef	= $workSpaceObj->GetWorkspaceItemPathName($dbid,1);
		$item_name	= pop(@$item_pathRef);

		# Build the path.
		$item_path = "";
		foreach $item (@$item_pathRef) {
			if ( "$item_path" ) {
				$item_path .= "/$item";
			} else {
				$item_path = $item;
			}
		}
		print "$module: $item_type\t$item_path/$item_name\n";

		$item_info[$x][0]	= $item_type;
		$item_info[$x][1]	= $workSpaceObj->$get_obj_method($dbid);
		$item_info[$x][2]	= $item_pathRef;
		$item_info[$x][3]	= $item_path;
		$item_info[$x][4]	= $item_name;

		$x++;

	}
}
$nitem = $x;
print "$module: $nitem items\n";

CQSession::Unbuild($sessionObj);


#######################
# Log into the destination database.
print "\n$module: Logging into the destination database ($dest_db) at ($dest_dbset) ...\n";
$sessionObj = CQSession::Build;
$sessionObj->UserLogon($dest_login,$dest_passwd,$dest_db,$dest_dbset);
$workSpaceObj = $sessionObj->GetWorkSpace;
$workSpaceObj->SetUserName($dest_login);


# Build a list of existing queries and charts.
foreach $item_type ("Query","Chart") {
	print "$module: Building a list of existing $item_type definitions ...\n";
	if ( $item_type eq "Query" ) {
		$defRef = $workSpaceObj->GetAllQueriesList;
	} else {
		$defRef = $workSpaceObj->GetChartList(2);
	}
	foreach $def (@$defRef) {
		push(@existing_defs,$def);
	}
}


#######################
# Build the queries, charts, and reports.
for ( $x = 0; $x <= $nitem - 1; $x++ ) {

	$item_type	= $item_info[$x][0];
	$itemObj	= $item_info[$x][1];
	$item_pathRef	= $item_info[$x][2];
	$item_path	= $item_info[$x][3];
	$item_name	= $item_info[$x][4];
	$item_fullpath	= "$item_path/$item_name";

	print "\n$module: $item_type\t\"$item_fullpath\"\n";

	# Build the path.
	$path = "";
	foreach $folder (@$item_pathRef) {

		print "$module: $folder";
		if ( "$path" ) {
			$path	.= "/$folder";
		} else {
			$path	= "$folder";
		}

		# If this is the top of the tree, get the dbid and go to the next folder.
		if ( $folder eq "Personal Queries" ) {
			$dbidRef	= $workSpaceObj->GetWorkspaceItemDbIdList(2,3,0,"");
			$parent_dbid	= @$dbidRef[0];
			print ", root folder";
			goto NEXT_FOLDER;
		}

		# If the folder already exists, get the dbid and go to the next folder.
		# Unfortunately, there's no elegant way to ask if a folder exists,
		# and if it does, there's no elegant way to get the existing folder's dbid.
		$dbidRef = $workSpaceObj->GetWorkspaceItemDbIdList(2,3,$parent_dbid,"");
		foreach $dbid (@$dbidRef) {
			$pathRef	= $workSpaceObj->GetWorkspaceItemPathName($dbid,1);
			$fullpath	= "";
			foreach $pathpart (@$pathRef) {
				if ( "$fullpath" ) {
					$fullpath .= "/$pathpart";
				} else {
					$fullpath = "$pathpart";
				}
				if ( "$path" eq "$fullpath" ) {
					$parent_dbid = $dbid;
					print ", folder already exists";
					goto NEXT_FOLDER;
				}
			}
		}

		# Create the new folder.
		eval {
			print ", create new";
			if ( $preview ) {
				$parent_dbid	= "not created in preview mode";
			} else {
				$new_dbid	= $workSpaceObj->CreateWorkspaceFolder(0,2,$folder,$parent_dbid);
				$parent_dbid	= $new_dbid;
			}
		};
		if ( "$@" ) {
			print "$module: ERROR:\n$@\nExiting early ...";
			goto FINISH;
		}

		NEXT_FOLDER:
		print ", $parent_dbid\n";
	}


	# Does the item already exist;
	foreach $entry (@existing_defs) {
		if ( "$entry" eq "$item_fullpath" ) {
			print "$module: \"$item_name\" $item_type already exists.\n";
			goto NEXT_ITEM;
		}
	}


	# Create the item.
	$insert_method = "InsertNew${item_type}Def";
	if ( $preview ) {
		print "$module: $insert_method(\"$item_name\",$parent_dbid,$itemObj) not performed in preview mode\n";
	} else {
		eval {
			$workSpaceObj->$insert_method("$item_name",$parent_dbid,$itemObj);
		};
		if ( "$@" ) {
			print "$module: ERROR:\n$@\nExiting early ...";
			goto FINISH;
		}
	}

	NEXT_ITEM:

}


FINISH:
CQSession::Unbuild($sessionObj);

Table of Contents

Table of Contents

Once the above steps are carried out successfully, Crystal Reports will display the datetime information according to local time zone and hence will be synchronized with the query result display.

Table of Contents

website/main/?USE_CASE=cq_startup&setting=false

Table of Contents

Table of Contents

Project A
	Release A
		Severity High
			Record 1
			Record 2
			Record 3
			...
			--------------------
			Count of records
			--------------------
		Severity Medium
			Record 1
			...
			--------------------
			Count of records
			--------------------
		Severity Low
			Record 1
			...
			--------------------
			Count of records
			--------------------
	Release B
		Severity High
		...
			And so on. This continues for every combination
of project to release and each severity.

Table of Contents

	use Time::Local;

	($day,$month,$year)	= (localtime)[3..5];
	$year			+= 1900;
	$month			+= 1;
	$month			= "0$month" if ( $month < 10 );
	$day			= "0$day"   if ( $day   < 10 );

	($day,$month,$year)	= (localtime(timelocal("0","0","0",$day,$month - 1,$year) - 86400))[3..5];
	$year			+= 1900;
	$month			+= 1;
	$month			= "0$month" if ( $month < 10 );
	$day			= "0$day"   if ( $day   < 10 );
	$yesterday		= "$month/$day/$year";

	...

	$AND_operator->BuildFilter("Date_field",$CQPerlExt::CQ_COMP_OP_EQ,["$yesterday"]);

	$queryFieldDefsObj = $queryDefObj->GetQueryFieldDefs;

	$idfield = $queryFieldDefsObj->ItemByName("id");
	$idfield->SetSortType($CQPerlExt::CQ_SORT_DESC);
	$idfield->SetSortOrder(1);

	$ownerfield = $queryFieldDefsObj->ItemByName("Owner");
	$ownerfield->SetSortType($CQPerlExt::CQ_SORT_ASC);
	$ownerfield->SetSortOrder(2);

	my $dbid = $entity->GetFieldStringValue("dbid");

Table of Contents

Table of Contents

	$workspace_o = $session_o->GetWorkSpace;
	$listRef = $workspace_o->GetQueryList(3);
	foreach $path (@$listRef) {
		$querydef_o = $workspace_o->GetQueryDef($path);
		$sql = $querydef_o->GetSQL();
		if ( "$sql" =~ /$string1/ ) {
			$sql =~ s/$string1/$string2/g;
			$querydef_o->SetSQL($sql);
			print "$path\n";
		}
	}
  

Table of Contents

Save to an external (binary) query file.  Whatever the file is named
is what the query will be named when it's imported.
	$queryDefObj->Save("C:\\temp\\My Query.qry");

Save as a clickable internal query.  The "1" means to overwrite, if existing.
	$workspace = $session->GetWorkSpace();
	$workspace->SaveQueryDef("My Query","Personal Queries\\folder",$queryDefObj,1);

Table of Contents

	$workSpaceObj	= $session->GetWorkSpace;
	$queryDefObj	= $workSpaceObj->GetQueryDef("Public Queries/Admin/MyQuery");

Table of Contents

	# Before
	select distinct T1.dbid,T1.id,T4.action_timestamp from scr T1,history T4 where T1.dbid = T4.entity_dbid  and 16777433 = T4.entitydef_id  and (T1.dbid <> 0)

	# After
	select distinct T1.dbid,T1.id,max(T4.action_timestamp) from scr T1,history T4 where T1.dbid = T4.entity_dbid  and 16777433 = T4.entitydef_id  and (T1.dbid <> 0) GROUP BY T1.dbid,T1.id

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

DISREGARD: This doesn't work correctly :-(.

Table of Contents

Table of Contents

Table of Contents

Table of Contents

	eval {
		$return = $session_o->DeleteEntity($entity_o,"Delete");
	};
	if ( "$@" ne "" || "$return" ne "" ) {
		...

Table of Contents

  # importutil exportlist [-dbset dbset_name] db_login db_password db_name list_name output_text_file

  # importutil importlist [-dbset dbset_name] db_login db_password db_name list_name input_text_file

Table of Contents

Table of Contents

  # CQ-home\mailreader.exe

record-type  action  record-ID

fieldname:value

Defect Submit

Headline: inventory report is not running correctly
Severity: 1-Critical
Project: ClassicProject
Priority: 2-Give High Attention
{Description: When running an inventory report, application crashes if
more than 50 items are included in the report.
}

Defect SAMPL00000017

{Today we posted a patch for this problem on the company intranet.
Please download the patch to solve your customer’s problem.
}

$username    = "ejo";
$password    = "";
$connection  = "2003.06.00";
$db          = "mydb";
$record_type = "Defect";
$id          = "mydb00000005";

use Win32::OLE;

$CQ      = Win32::OLE->new('ClearQuest.Application2') || die('cant get app, ' . Win32::OLE->LastError() . "\n");
$Session = $CQ->GetSession() || die('cant get session, ' . Win32::OLE->LastError() . "\n");
$Session->Logon($username,$password,$db,$connection);
$Form    = $Session->CreateForm($record_type, , ,$id);
$Form->StartForm();

exit 0;

# Get the stateless record's unique key.
# In this case, it's based on the name of the project.
  $key = $entity->GetFieldValue("Project")->GetValue;
# Set a short-cut to the current session.
  $session = $entity->GetSession;
# Get the correct IDCounter entity based on the unique key.
  $IDEntity = $session->GetEntity("IDCounter","$key");
# Read the current value for LastID.
  $LastID = $IDEntity->GetFieldValue("LastID")->GetValue;
# Open the IDEntity for modification.
  $session->EditEntity("$IDEntity","Modify");
# Increment the counter.
  $newcount = $LastID + 1;
  $IDEntity->SetFieldValue("LastID","$newcount");
# Check the validity of the change.
  $IDEntity->Validate;
# Commit the new value to the database.
  $IDEntity->Commit;   
# Set the new value in the current entity.
  $entity->SetFieldValue("ConsecutiveID","$newcount");

	# This routine will give a submitted record a log number that
	# looks like YYYY-nnnn, where YYYY is the current 4-digit year
	# and nnnn is a sequential number that is reset each year.
	# Example:  2004-0012
	# It's purpose is to ensure records have serial numbers without
	# gaps.  If the CQ id is relied upon, the numbers can have gaps
	# because the id is assigned to a record before the record is
	# committed to the database.  If the user cancels the submission
	# before committing it, the CQ id sequence will have a gap.

	my $log_number;

	# Get the correct IDCounter entity based on the unique key.
	# It is assumed that there exists an IDCounter stateless record
	# entity named for each record type.  Open the IDCounter record
	# for edit.
	my $session       = $entity->GetSession;
	my $entitydefname = $entity->GetEntityDefName;
  	my $IDEntity      = $session->GetEntity("IDCounter",$entitydefname);
	if ( ! "$IDEntity" ) {
		$result = "There is no IDCounter record whose Unique Key is ($entitydefname).\n";
		goto LOG_NUMBER_END;
	}
  	$session->EditEntity($IDEntity,"Modify");

	# Get the stored and current years.
	my $stored_year = $IDEntity->GetFieldValue("Current_Year")->GetValue;
	my $this_year   = (split(/\-/,GetCurrentDate))[0];

	# This is the same year.
	if ( "$stored_year" eq "$this_year" ) {

		# Get the stored last number and increment it.
		my $numeral = $IDEntity->GetFieldValue("Last_Numeral")->GetValue;
		$numeral++;

		# Create a padded 4-digit number out of the numeral.	
		$numeral = "0$numeral" if ( $numeral < 1000 );
		$numeral = "0$numeral" if ( $numeral < 100  );
		$numeral = "0$numeral" if ( $numeral < 10   );

		# Set the new numeral in the IDCounter.
		$IDEntity->SetFieldValue("Last_Numeral",$numeral);

		$log_number = "${this_year}-$numeral";

	# This is a new year.
	} else {

		# Reset the year and numeral in the IDCounter.
		$IDEntity->SetFieldValue("Current_Year",$this_year);
		$IDEntity->SetFieldValue("Last_Numeral","1");

		$log_number = "${this_year}-0001";
	}

	# Check the validity of the IDCounter record and commit the change.
  	$IDEntity->Validate;
  	$IDEntity->Commit;

	# Set the new value in the current entity.
  	$entity->SetFieldValue("Log_Number",$log_number);

	LOG_NUMBER_END:

}

Table of Contents

Table of Contents

Table of Contents

Table of Contents

	installutil scrubhistory dbset user password userDB recordtype
 (-all | { -action  | -modify-only | -before date } ... ) [-verbose] [-show]

	installutil scrubhistory DEV admin adm123 BUGS Defect -before 2014-01-01 -verbose

Table of Contents

Table of Contents

# Get the dbid of the record type.
SELECT id FROM entitydef WHERE name = 'record-type-name';
Ex: SELECT id FROM entitydef WHERE name = 'Defect';

# Get the dbid of the new state.
SELECT id FROM statedef WHERE entitydef_id = record-type-dbid and name = 'state-name';
Ex: SELECT id FROM statedef WHERE entitydef_id = 16777224 and name = 'Cancelled';

# Change the state.
UPDATE record-type-table-name SET state = state-dbid WHERE id = 'record-id';
Ex: UPDATE defect SET state = 16777349 WHERE id = 'SAMPL00000014';
  

Table of Contents

Table of Contents

Table of Contents

...
PACKAGE_USAGE ( "Enterprise", 1 , "Notes", "4.0", "", "")
...
ADD master_schemarevs  ( "Enterprise", 3 , "", UNRESTRICTED_SCHEMA , 24 )
...
etc...

Table of Contents

  C:\ cqload importschema -dbset schema-repo login password schemafile.txt

  C:\ cqload importintegration -dbset schema-repo login password schema_name record_type integ_name integ_version import_file form_name

Table of Contents

  C:\ cqload exportschema -dbset schema-repo login password schema_name schema_name.txt

  C:\ cqload exportintegration -dbset schema-repo login password schema_name begin_rev end_rev record_type schema_name.txt

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

	' ''''''''''''''''''''''''''
	' Run the global script to build an array of user data.
	GatherUserData()

Any field's Choice List hook can run code similar to the following to populate its pulldown list.

	' '''''''''''''''''''''''''''
	' Present a list of user fullnames.
	dim x
	userData = GetSession.NameValue("UserData")
	for x = 0 to ubound(userData) - 1
		fullname = userData(x,2)
		choices.AddItem(fullname)
	next

	' Add a blank so that the field can be cleared.
	choices.AddItem(" ")

The code below is a VBScript example of placing user information into a session variable.

sub GatherUserData

	' ''''''''''''''''''''''''''''''''''
	' This routine will query for Active User records
	' and place information into a session variable
	' called UserData.  Display fields can be added to the query,
	' but their order or removal cannot be done without changing
	' all hook scripts that retrieve the data.  Those scripts expect a certain
	' piece of datum to be at a certain indice.
	' While gathering the information, turn the list of groups (which are presented
	' on separate lines in the result set) into a comma-separated list.
	' This will also set a element 7 to indicate whether or not the user is a
	' an "admin" group member.
	' 0:	is_active
	' 1:	login_name
	' 2:	fullname
	' 3:	phone
	' 4:	email
	' 5:	comma-separated list of groups
	' 6:	1 = TRM, 0 = non-TRM
	set sessionObj = GetSession

	record_count = 1
	if sessionObj.HasValue("UserData") then
		countArray = sessionObj.NameValue("UserData")
		record_count = ubound(countArray)
	end if

	if not sessionObj.HasValue("UserData") or record_count = 0 then

		dim dataArray(), x, y, previous_login, group_list, group

		set querydef = sessionObj.BuildQuery("users")
		querydef.BuildField("is_active")
		querydef.BuildField("login_name")
		querydef.BuildField("fullname")
		querydef.BuildField("phone")
		querydef.BuildField("email")
		querydef.BuildField("groups")
		set operator = querydef.BuildFilterOperator(AD_BOOL_OP_AND)
		operator.BuildFilter "is_active", AD_COMP_OP_EQ, "1"
		set resultset = sessionObj.BuildResultSet(querydef)
		resultset.EnableRecordCount
		resultset.Execute
		redim dataArray(ResultSet.RecordCount,6)
		x = 0
		previous_login = ""
		while (resultset.MoveNext = AD_SUCCESS)
			if previous_login = resultset.GetColumnValue(2) then
				group = resultset.GetColumnValue(6)
				if group = "ETM" or group = "TERM" then
					dataArray(x - 1, 6) = 1
				end if
				dataArray(x - 1, 5) = dataArray(x - 1, 5) & "," & group
			else
				for y = 0 to 5
					dataArray(x, y) = resultset.GetColumnValue(y + 1)
				next
				group = resultset.GetColumnValue(6)
				if group = "admin" then
					dataArray(x, 6) = 1
				else
					dataArray(x, 6) = 0
				end if
				previous_login = resultset.GetColumnValue(2)
				x = x + 1
			end if
		wend

		' Create the session variable.
		sessionObj.NameValue "UserData", dataArray

	end if
end sub

	' '''''''''''''''''''''''''''''
	' This is just a record script front end for the global script.
	GetSession.NameValue "ApplicationData", array("")
	GatherApplicationData()

Table of Contents

# This PERL script will export the designated schema versions from the designated
# source schema repo (dbset) and import them into the designated destination schema repo.

# You must log in as a superuser in both the source and destination schema repos.

# The destination schema repo cannot be "Defect_Tracking".

# It assumes the schema name is the same in both dbsets.

# Eric J. Ostrander
# Updated: 06-06-06


#######################
# Initialize some stuff.
use CQPerlExt;
use Getopt::Long;
$script		= (split(/\\/,$0))[-1];


$usage = "cqperl $script
\t--sl\t<source-login>
\t--sp\t<source-passwd>
\t--sdbs\t<source-dbset>
\t--sch\t<schema-name>
\t--bv\t<begin-schema-version>
\t--ev\t<end-schema-version>
\t--dl\t<destination-login>
\t--dp\t<destination-passwd>
\t--ddbs\t<destination-dbset>
\t[--preview]";

if ( scalar(@ARGV) < 16 ) {
	print STDERR "\nUsage error:\n$usage\n\n";
	exit 1;
}
$preview	= 0;
GetOptions(	"sl=s"		=>	\$src_login,
		"sp=s"		=>	\$src_passwd,
		"sdbs=s"	=>	\$src_dbset,
		"sch=s"		=>	\$schema_name,
		"bv=i"		=>	\$begin_ver,
		"ev=i"		=>	\$end_ver,
		"dl=s"		=>	\$dest_login,
		"dp=s"		=>	\$dest_passwd,
		"ddbs=s"	=>	\$dest_dbset,
		"preview"	=>	\$preview ) || die "\n$usage";

if ( "$src_dbset" eq "$dest_dbset" ) {
	print STDERR "\nThe source and destination dbsets cannot be the same!\n\n";
	exit 1;
}

if ( $preview ) {
	print "Preview mode is ON.\n";
} else {
	print "\nWARNING: preview mode is NOT on!\n\n";
}

# The destination dbset cannot be "Defect_Tracking".
if ( "$dest_dbset" eq "Defect_Tracking" ) {
	print STDERR "\nThe destination dbset cannot be \"Defect_Tracking\"!\n\n";
	exit 1;
}


#######################
print "\nDetermining if destination schema ($schema_name) even needs to be upgraded ...\n";
$adminSession = CQAdminSession::Build;
$adminSession->Logon($dest_login,$dest_passwd,$dest_dbset);
$schemasObj = $adminSession->GetSchemas;
for ( $x = 0; $x < $schemasObj->Count; $x++ ) {
	$schemaObj	= $schemasObj->Item($x);
	$schemaName	= $schemaObj->GetName;
	if ( $schemaName eq $schema_name ) {
		$schemaRevsObj	= $schemaObj->GetSchemaRevs;
		$schemaRevObj	= $schemaRevsObj->Item($schemaRevsObj->Count - 1);
		$schemaRev	= $schemaRevObj->GetRevID;
		last;
	}
}
if ( $schemaRev >= $end_ver ) {
	print "($schema_name) schema version in ($dest_dbset) is already ($schemaRev), so doesn't need to be upgraded.\n";
	goto FINISH;
} else {
	print "($schema_name) schema will be upgraded from ($schemaRev) to ($end_ver).\n";
}


#######################
# Loop through the versions to be exported and imported.
for ( $ver = $begin_ver; $ver <= $end_ver; $ver++ ) {


	$temp_file = "${schema_name}_$ver.txt";
	if ( -f "$temp_file" ) {
		system("del $temp_file");
	}


	#######################
	# Export the version.
	$command = "cqload exportintegration -dbset $src_dbset $src_login $src_passwd $schema_name $ver $ver \"\" $temp_file";
	eval {
		print "\n$command\n";
		if ( ! $preview ) {
			$output = `$command`;
		}
	};
	print "$output\n";
	if ( $@ || "$output" =~ /ERROR: exportintegration FAILED/ ) {
		exit 1;
	}


	#######################
	# Import the version.	
	$command = "cqload importintegration -dbset $dest_dbset $dest_login $dest_passwd $schema_name \"\" \"\" $ver $temp_file \"\"";
	eval {
		print "\n$command\n";
		if ( ! $preview ) {
			$output = `$command`;
		}
	};
	print "$output\n";
	if ( $@ || "$output" =~ /ERROR: importintegration FAILED/ ) {
		exit 1;
	}


	if ( ! $preview ) {
		system("del $temp_file");
	}

}


FINISH:
exit 0;
	

Table of Contents

	update master_schemas set checked_out_login = 'login' where name = 'schema-name'

Table of Contents

	> select schema_name, entitdef_id, package_dbid from packagerev_usage where schema_name = 'schema-name' and entitydef_id = entitydefid;
	> delete from packagerev_usage where schema_name = 'schema-name' and entitydef_id = entitydefid;
	> quit;

Table of Contents

	$adminSession = CQAdminSession::Build;
	$adminSession->Logon($login,$passwd,$dbset);
	CQAdminSession::Unbuild($adminSession);

Table of Contents

Table of Contents

Table of Contents

use Win32::Registry;

$key = "SOFTWARE\\Rational Software\\ClearQuest";
$::HKEY_LOCAL_MACHINE->Open($key,$parameters_o);
if ( "$parameters_o" eq "" ) {
	print "ERROR: Unable to open \"HKEY_LOCAL_MACHINE\\$key\" using Win32::Registry.\n";
	exit 1;
}
$parameters_o->QueryValueEx("CurrentVersion",$type,$current_cq_version);
if ( "$current_cq_version" eq "" ) {
	print "ERROR: Unable to determine the current ClearQuest version.\n";
	exit 1;
}
$parameters_o->Close;
print "Current CQ version: $current_cq_version\n";

$key = "SOFTWARE\\Rational Software\\ClearQuest\\$current_cq_version\\Core\\Databases";
$::HKEY_LOCAL_MACHINE->Open($key,$keys_o);
if ( "$keys_o" eq "" ) {
	print "ERROR: Unable to open \"HKEY_LOCAL_MACHINE\\$key\" using Win32::Registry.\n";
	exit  1;
}
$keys_o->GetKeys(\@repo_keys);
if ( ! scalar(@repo_keys) ) {
	print "ERROR: Unable to get the list of CQ repos.\n";
	exit 1;
}
$keys_o->Close;
$cq_repos = join(",",@repo_keys);
print "CQ schema repos: $cq_repos\n";

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

	crmregister add -database user-database -connection dbset -user cq-username -password cq-password
	crmregister list

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

7.0 and later:
http://web_server/cqweb/main?command=GenerateMainFrame&service=CQ&username=login&password=password&schema=schema-repo&contextid=user-db
Note: Don't enclose the password in quotes even if the password is null, or it will fail to log in.

2003.06.13:
http://web_server/cqweb/main?USE_CASE=GO&service=CQ&schema=schema-repo&contextid=user-db&username=login&password="password"

2003.06.12 and earlier:
http://web_server/cqweb/logon/default.asp?DbSetName=schema-repo&DatabaseName=user-db&user=login&password="password"

Table of Contents

Table of Contents

• It cannot be applied to system record types, such as "users".
• The signature can be required for any state or action.
• The actions and states where the signature is required are defined on a new record type called "eSig_Config".
• Access control to the eSig_Config record can be controlled.
• If the signature is required, the user must enter their password.
• The signature login and password must match the current user's login and password.
• By default, any user can sign the record, but permissions can be customized.
• If the record is modified after the record was signed, the signature is marked as "False", which indicates that the signature is no longer valid.
• By default, the signature fields appear on a new tab called "eSignature.
• You can customize the format of the signature log.

Table of Contents

Function IsREADONLY

	' ''''''''''''''''''''''''''
	' Users in the "READONLY" CQ group can neither submit nor modify any record.
	userGroups = GetSession.GetUserGroups
	IsREADONLY = FALSE
	if IsArray(usergroups) then
		for each group in userGroups
			if group = "READONLY" then
				IsREADONLY = TRUE
				exit function
			end if
		next
	end if

End Function

	' ''''''''''''''''''''''''''''''''''
	' Users in the "READONLY" CQ group can neither submit nor modify any record.
	if IsREADONLY = FALSE then
		Defect_AccessControl = TRUE
	else
		Defect_AccessControl = FALSE
	end if

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

	# Tickets cannot be modified when Closed or Duplicate.
	$state = $entity->LookupStateName();
	if ( "$state" =~ /^Closed$|^Duplicate$/ ) {
		$result = 0;
	} else {
		$result = 1;
	}

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

Table of Contents

USER vobadm
    password        = mdabov
    is_active       = FALSE
    email           =
    fullname        = vobadm
    phone           =
    misc_info       = Exported from DDTS
    is_superuser    = FALSE
    is_appbuilder   = FALSE
    is_user_maint   = FALSE
    databases       =

USER ejo
...

GROUP Test_Managers
    is_active       = TRUE
    is_subscribed_to_all_dbs = TRUE
    members         = user1 eostrand
    subgroups       = 
    databases       = 

...

Table of Contents

Table of Contents

Table of Contents

Table of Contents

$userGroups = $sessionObj->GetUserGroups;
if ( ! @$userGroups ) {
	print "The current user does not belong to any groups.\n";
} else {
	foreach $group (@$userGroups) {
		print "$group\n";
	}
}

Table of Contents

# Usage:
#   $group_name = "Team1";
#   @members    = GetActiveGroupMembers($group_name);
sub GetActiveGroupMembers {
	my @group   = $_[0];
	my @members;
	my @active_state = 1;
	my $session = $entity->GetSession;

	# Start building a query of the users.
	my $queryDefObj = $session->BuildQuery("users");

	# Have the query return the desired field for the user object(s).
	$queryDefObj->BuildField("login_name");

	# Filter for active members of $group.
	my $filterOp = $queryDefObj->BuildFilterOperator($CQPerlExt::CQ_BOOL_OP_AND);
	$filterOp->BuildFilter("groups.name",$CQPerlExt::CQ_COMP_OP_EQ,\@group);
	$filterOp->BuildFilter("is_active",  $CQPerlExt::CQ_COMP_OP_EQ,\@active_state);

	# Run the query.
	my $resultSetObj = $session->BuildResultSet($queryDefObj);
	$resultSetObj->Execute;

	# Add each value in the returned column to the choices array.
	while ($resultSetObj->MoveNext == $CQPerlExt::CQ_SUCCESS) {
		push(@members,$resultSetObj->GetColumnValue(1));
	}
	return @members;
}

my $adminSessionObj = CQPerlExt::CQAdminSession_Build();
$adminSessionObj->Logon("admin","boeing","");
my $groupsObj  = $adminSessionObj->GetGroups;
my $CMgroupObj = $groupsObj->ItemByName("CM");
my $usersObj   = $CMgroupObj->GetUsers;
my $nusers     = $usersObj->Count;
my $x;
my $userName;
my $userObj;
for ($x = 0; $x < $nusers; $x++) {
    $userObj  = $usersObj->Item($x);
    $userName = $userObj->GetName();
    push(@choices,$userName);
}
CQAdminSession::Unbuild($adminSessionObj);
return @choices;

	$adminSession = CQAdminSession::Build;
	$adminSession->Logon($login,$password,$dbset);

	$userObj = $adminSession->CreateUser($lan_id);
	$userObj->SetLDAPAuthentication($lan_id);
	$userObj->SetActive("1");
	$userObj->SetSubscribedToAllDatabases("1");
	$userObj->SetFullName("$fullname");
	$userObj->SetPhone("$phone");
	$userObj->SetEmail("$email");
	$userObj->SetMiscInfo("$misc_info");

	$groupObj = $adminSession->GetGroup($group);
	$groupObj->AddUser($userObj);

	$dblist = $userObj->GetSubscribedDatabases();
	for ( $x = 0; $x < $dblist->Count; $x++ ) {
		$db	= $dblist->Item($x);
		$dbObj	= $adminSession->GetDatabase($db);
		$dbObj->UpgradeMasterUserInfo();
	}

	CQAdminSession::Unbuild($adminSession);

######################
# Retrieve the contents of the userinfo file.
open(INFILE,"$infile") || die "$script: Unable to open \"$infile\" for read.\n";
@indata = <INFILE>;
close(INFILE);

open(OUTFILE,"> missing_userinfo.txt") || die "$script: Unable to open \"missing_userinfo.txt\" for write.\n";


######################
print "Logging into th $dbset schema repo ...\n";
eval {
	$adminSession = CQAdminSession::Build;
	$adminSession->Logon($login,$passwd,$dbset);
};
if ( $@ ) {
	print STDERR "\nUnable to log into $dbset.\n$@\n";
	exit 1;
}


######################
# Build a list of users and groups in the destination schema repo.
$usersObj	= $adminSession->GetUsers();
$n_users	= $usersObj->Count();
for ( $u = 0; $u < $n_users; $u++ ) {
	$userObj = $usersObj->Item($u);
	push(@existing_logins,$userObj->GetName());
}

$groupsObj	= $adminSession->GetGroups();
$n_groups	= $groupsObj->Count();
for ( $u = 0; $u < $n_groups; $u++ ) {
	$groupObj = $groupsObj->Item($u);
	push(@existing_groups,$groupObj->GetName());
}


######################
# Loop through the input contents and generate the output file.
foreach $row (@indata) {

	chomp($row);

	# Skip commented lines.
	if ( "$row" =~ /^#/ ) {
		next;
	}

	if ( "$row" =~ /^USER / ) {
		($login = $row) =~ s/USER //;
		if ( grep(/^$login$/,@existing_logins) ) {
			$printing = 0;
		} else {
			$printing = 1;
			print OUTFILE "\n$row\n";
		}
		next;
	}

	if ( "$row" =~ /^GROUP / ) {
		($group = $row) =~ s/GROUP //;
		$create_it = 1;
		foreach $existing_group (@existing_groups) {
			if ( "$group" eq "$existing_group" ) {
				$create_it = 0;
				last;
			}
		}
		if ( $create_it ) {
			$printing = 1;
			print OUTFILE "\n$row\n";
		} else {
			$printing = 0;
		}
		next;
	}

	if ( $printing ) {
		print OUTFILE "$row\n";
	}
}

Table of Contents

	if ( $user_o->SiteHasMastership() ) {
		...

	$user_o = $adminSession_o->GetUser("login_name");
	$mode	= $user_o->GetAuthenticationMode();
	if ( $mode == $CQPerlExt::CQ_LDAP_AUTHENTICATION ) {
		print "LDAP Authenticated";
	}
	if ( $mode == $CQPerlExt::CQ_CQ_AUTHENTICATION ) {
		print "CQ Authenticated"; }
	}

Table of Contents

Table of Contents

Table of Contents

Table of Contents

REGEDIT4 

[HKEY_USERS\.DEFAULT\Software\Rational Software\ClearQuest\Diagnostic] 
"Trace"="API=2;EMAIL;EDIT;SQL;JNIREG=1;LICENSE;HOOKS;PERL;VBASIC=1;THROW;DB_CONNECT=2;TIMER;SESSION;" 
"Report"="MESSAGE_INFO=0X409" 
"Output"="C:\\\\temp\\\\cqtrace.txt"

This is a list of all the valid trace keys:

API 
CHARTS 
CODEPAGE 
DB_CONNECT 
DBDESC 
EDIT 
EMAIL 
EMAIL_VB 
HOOKS 
JNIREG 
LICENSE 
MAINS 
METADATA_INIT 
MULTISITE 
ODS 
PACKAGES 
PERL 
RESULTSET 
SESSION 
SYSTEM_UPGRADE 
THREAD 
THROW 
TIMER 
USER_ADMIN 
VBASIC 

Steps for Applying the key:

Table of Contents

Table of Contents

//web-server/server-status

Table of Contents

Table of Contents

Table of Contents

server/cqweb/login?test=1

Table of Contents

Table of Contents