+sub SetupAttributeTypes() {
+ my @CC_CMI_Types = qw(CONTEXT TASK PROVIDERS);
+
+ my $status = SetView($test_intview);
+
+ return $status if $status;
+
+ for (@CC_CMI_Types) {
+ my $cmd = "mkattype -nc -vtype string CC_CMI_$_";
+
+ my ($rc, @output) = $Clearcase::CC->execute($cmd);
+
+ $status += $rc;
+
+ $log->log($_) for @output;
+ } # for
+
+ return $status;
+} # SetupAttributeTypes
+
+sub CRMRegister() {
+ my $cmd = "crmregister add -database $opts{database} -connection RDE "
+ . "-url $opts{weburl} -username $opts{username} "
+ . "-password $opts{password}";
+
+ my ($status, @output) = Execute $cmd;
+
+ $log->log($_) for @output;
+
+ return $status;
+} # CRMRegister
+
+sub MakeCMProvider() {
+ my $cmd = 'mkcmprovider -vob ' . $test_pvob->tag
+ . '-type cmcq -version V1_0 -description '
+ . '"RDE CMI CQ Provider" '
+ . '-connection baseurl:' . $opts{weburl} . " $opts{provider}";
+
+ my ($status, @output) = $Clearcase::CC->execute($cmd);
+
+ $log->log($_) for @output;
+
+ return $status;
+} # MakeCMProvider
+