view release on metacpan or  search on metacpan

lib/Clearcase/Vob.pm  view on Meta::CPAN

=for html <blockquote>

=over

=item $vob

The vob object/tag to update info for

=back

=for html </blockquote>

Returns:

=for html <blockquote>

=over

=item nothing

=back

=for html </blockquote>

=cut

=pod

=head2 updateVobInfo ($vob)

Updates the VOB info from cleartool lsvob

Parameters:

=for html <blockquote>

=over

=item $vob

The vob object/tag to update info for

=back

=for html </blockquote>

Returns:

=for html <blockquote>

=over

=item nothing

=back

=for html </blockquote>

=cut

sub updateVobInfo ($$) {
  my ($self) = @_;

  my ($status, @output) = $Clearcase::CC->execute ("lsvob -long $self->{tag}");

  # Assuming this vob is an empty shell of an object that the user may possibly
  # use the create method on, return our blessings...
  return if $status != 0;

  for (@output) {
    if (/Global path: (.*)/) {
      $self->{gpath} = $1;
    } elsif (/Server host: (.*)/) {
      $self->{shost} = $1;
    } elsif (/Access: (.*)/) {
      $self->{access} = $1;
    } elsif (/Mount options: (.*)/) {
      $self->{mopts} = $1;
    } elsif (/Region: (.*)/) {
      $self->{region} = $1;
    } elsif (/Active: (.*)/) {
      $self->{active} = $1;
    } elsif (/Vob tag replica uuid: (.*)/) {
      $self->{replica_uuid} = $1;
    } elsif (/Vob on host: (.*)/) {
      $self->{host} = $1;
    } elsif (/Vob server access path: (.*)/) {
      $self->{access_path} = $1;
    } elsif (/Vob family uuid:  (.*)/) {
      $self->{family_uuid} = $1;
    } elsif (/Vob registry attributes: (.*)/) {
      $self->{vob_registry_attributes} = $1;
    }    # if
  }    # for

  return;
}    # getVobInfo

1;

=pod

=head2 DEPENDENCIES

=head2 Modules

=over

=item L<Clearcase|Clearcase>

=item L<OSdep|OSdep>

=back

=head2 BUGS AND LIMITATIONS

There are no known bugs in this module

Please report problems to Andrew DeFaria <Andrew@DeFaria.com>.

=head1 COPYRIGHT AND LICENSE