X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=lib%2FClearcase%2FUCM%2FProject.pm;h=7b58a1009d5bc8461d1b84a17bfcb27ba239d79f;hb=42bd9d8ce9f61e7d723efcb64a90fb499b8b9626;hp=8db0f865eb03fd7e799b9449ce0207e8c0f8ad68;hpb=1140ca8d56832ae529db0f353112ac192cdf9432;p=clearscm.git diff --git a/lib/Clearcase/UCM/Project.pm b/lib/Clearcase/UCM/Project.pm index 8db0f86..7b58a10 100644 --- a/lib/Clearcase/UCM/Project.pm +++ b/lib/Clearcase/UCM/Project.pm @@ -102,7 +102,7 @@ Returns: return $class; } # new - + sub name () { my ($self) = @_; @@ -178,7 +178,7 @@ Returns: return $self->{pvob}; } # pvob - + sub create (;$) { my ($self, $opts) = @_; @@ -270,8 +270,55 @@ Ouput from cleartool =cut return $Clearcase::CC->execute - ('rmproject -f ' . $self->{name} . "\@" . $self->{pvob}->name); -} # rmProject + ('rmproject -f ' . $self->{name} . "\@" . $self->{pvob}->tag); +} # remove + +sub change($) { + my ($self, $opts) = @_; + +=pod + +=head2 change + +Changes UCM Project + +Parameters: + +=for html
+ +=over + +=item opts + +Options + +=for html+ +Returns: + +=for html
+ +=over + +=item $status + +Status from cleartool + +=item @output + +Ouput from cleartool + +=back + +=for html+ +=cut + + $opts ||= ''; + + return $Clearcase::CC->execute + ("chproject $opts " . $self->{name} . "\@" . $self->{pvob}->name); +} # change sub exists() { my ($self) = @_;