-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
-