view release on metacpan or  search on metacpan

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

    } elsif (/Registry host: (.*)/) {
      $self->{registryHost} = $1;
    } elsif (/Registry region: (.*)/) {
      $self->{registryRegion} = $1;
    } elsif (/Blocks per directory: (.*)/) {
      $self->{mvfsBlocksPerDirectory} = $1;
    } elsif (/Free mnodes for cleartext: (.*)/) {
      $self->{mvfsFreeMnodesCleartext} = $1;
    } elsif (/Directory names: (.*)/) {
      $self->{mvfsDirectoryNames} = $1;
    } elsif (/File names: (.*)/) {
      $self->{mvfsFileNames} = $1;
    } elsif (/Free mnodes: (.*)/) {
      $self->{mvfsFreeMnodes} = $1;
    } elsif (/Initial mnode table size: (.*)/) {
      $self->{mvfsInitialMnodeTableSize} = $1;
    } elsif (/Minimum free mnodes for cleartext: (.*)/) {
      $self->{mvfsMinCleartextMnodes} = $1;
    } elsif (/Mimimum free mnodes: (.*)/) {
      $self->{mvfsMinFreeMnodes} = $1;
    } elsif (/Names not found: (.*)/) {
      $self->{mvfsNamesNotFound} = $1;
    } elsif (/RPC handles: (.*)/) {
      $self->{mvfsRPCHandles} = $1;
    } elsif (/Scaling\ factor\ to\ initialize\ MVFS\ cache\ sizes:\ (.*)/x) {
      $self->{scalingFactor} = $1;
    } elsif (/Cleartext idle lifetime: (.*)/) {
      $self->{cleartextIdleLifetime} = $1;
    } elsif (/VOB hash table size: (.*)/) {
      $self->{vobHashTableSize} = $1;
    } elsif (/Cleartext hash table size: (.*)/) {
      $self->{cleartextHashTableSize} = $1;
    } elsif (/Thread hash table size: (.*)/) {
      $self->{threadHashTableSize} = $1;
    } elsif (/DNC hash table size: (.*)/) {
      $self->{dncHashTableSize} = $1;
    } elsif (/Process hash table size: (.*)/) {
      $self->{processHashTableSize} = $1;
    }    # if
  }    # for

  return;
}    # updateServerInfo

1;

=pod

=head2 Modules

=over

=item L<Clearcase|Clearcase>

=back

=head2 INCOMPATABILITIES

None

=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

Copyright (C) 2020 by Andrew@DeFaria.com

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.38.0 or,
at your option, any later version of Perl 5 you may have available.

=cut