Clearcase

 view release on metacpan or  search on metacpan

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

=for html </blockquote>

=cut

  $comment = Clearcase::setComment $comment;

  return $Clearcase::CC->execute ("checkin $comment $self->{pname}");
}    # checkout

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

  # Get all information that can be gotten using -fmt
  my $fmt =
      'Attributes:%aEndAttributes:'
    . 'Comment:%cEndComment:'
    . 'Create_date:%dEndCreate_date:'
    . 'Group:%[group]pEndGroup:'
    . 'Labels:%NlEndLabels:'
    . 'Pred:%PSnEndPred:'

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

=for html </blockquote>

=cut

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

  return $self->{processHashTableSize};
}    # processHashTableSize

sub updateServerInfo($) {
  my ($self, $host) = @_;

  my ($status, @output) =
    $Clearcase::CC->execute ("hostinfo -long -properties -full $host");

  for (@output) {
    if (/Product: ClearCase (.*)/) {
      $self->{ccVer} = $1;
    } elsif (/Operating system: (.*)/) {
      $self->{osVer} = $1;

lib/Clearcase/UCM/Activity.pm  view on Meta::CPAN

=over

=item nothing

=back

=for html </blockquote>

=cut

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

  # Get all information that can be gotten using -fmt
  my $fmt .= '%[crm_record_id]p==';
  $fmt    .= '%[crm_record_type]p==';
  $fmt    .= '%[crm_state]p==';
  $fmt    .= '%[headline]p==';
  $fmt    .= '%[name_resolver_view]p==';
  $fmt    .= '%[stream]Xp==';
  $fmt    .= '%[view]p';

lib/Clearcase/UCM/Folder.pm  view on Meta::CPAN

=back

=for html </blockquote>

=cut

  return $Clearcase::CC->execute (
    'rmfolder -f ' . $self->{name} . "\@" . $self->{pvob}->tag);
}    # rmfolder

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

  my ($status, @output) = $Clearcase::CC->execute (
    "lsfolder -long $self->{name}" . '@' . $self->{pvob}->tag);

  return if $status;

  for (@output) {
    if (/owner: (.*)/) {
      $self->{owner} = $1;

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

=over

=item nothing

=back

=for html </blockquote>

=cut

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

  my $region_opt = $self->{region} ? "-region $self->{region}" : "";

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

  return if $status;

  # Assuming this view is an empty shell of an object that the user may possibly

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

=for html </blockquote>

=cut

  $self->updateViewSpace unless ($self->{viewSpacePct});

  return $self->{viewSpacePct};
}    # viewSpacePct

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

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

  $self->{viewPrivateStorage}    = 0.0;
  $self->{viewPrivateStoragePct} = '0%';
  $self->{viewAdmin}             = 0.0;
  $self->{viewAdminPct}          = '0%';
  $self->{viewDatabase}          = 0.0;

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

=back

=for html </blockquote>

=cut

  $self->updateViewInfo if !defined $self->{web};
  return $self->{web};
}    # web

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

  my ($dynamic, $web, $ucm, $snapshot) = (0, 0, 0, 0);

  foreach ($self->views) {
    my ($status, @lsview_out) =
      $Clearcase::CC->execute ("lsview -properties -full $_");

    next
      if $status;

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

=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: (.*)/) {