VCS::LibCVS::Admin - The CVS sandbox administrative directory.

  $admin_dir = VCS::LibCVS::Admin->new("/home/alex/wrk/libcvs/Perl");
  $entries = $admin->get_Entries;
  $tag = $admin->get_Tag;

  VCS::LibCVS::Datum

#
# Copyright (c) 2003,2004,2005 Alexander Taler (dissent@0--0.org)
#
# All rights reserved. This program is free software; you can redistribute it
# and/or modify it under the same terms as Perl itself.
#

package VCS::LibCVS::Admin;

use strict;
use Carp;

use FileHandle;

use VCS::LibCVS::Datum;

###############################################################################
# Class constants
###############################################################################

use constant REVISION => '$Header: /cvsroot/libcvs-perl/libcvs-perl/VCS/LibCVS/Admin.pm,v 1.18 2005/10/10 12:52:11 dissent Exp $ ';

###############################################################################
# Class variables
###############################################################################

###############################################################################
# Private variables
###############################################################################

# $self->{AdminDirName}   The filesystem name of the directory containing
#                         the administrative files eg /home/alex/wrk/mod1/CVS
# $self->{DirName}        The filesystem name of the directory containing
#                         the CVS managed files eg /home/alex/wrk/mod1

###############################################################################
# Class routines
###############################################################################

sub new {
  my ($class, $dir) = @_;

  my $admin_dir = File::Spec->catpath('', $dir, $VCS::LibCVS::Admin_Dir_Name);
  confess "No CVS admin directory: $admin_dir" unless -d $admin_dir;

  my $that = bless {}, $class;
  $that->{DirName} = $dir;
  $that->{AdminDirName} = $admin_dir;

  return $that;
}

###############################################################################
# Instance routines
###############################################################################

sub get_dir_name {
  my $self = shift;
  return $self->{DirName};
}

sub get_Entries {
  my $self = shift;

  # A line with just a D, means that subdirectories have not been recorded.
  # Remember if it's found, and look for them manually.
  my $sub_dirs_not_included = 0;

  my $filename = File::Spec->catpath('', $self->{AdminDirName}, "Entries");
  my $fh = FileHandle->new($filename);
  confess "Couldn't open $filename" unless defined $fh;
  my $entries = {};
  foreach my $entry_line ($fh->getlines()) {
    if ($entry_line =~ /^D$/) {
      $sub_dirs_not_included = 1;
      next;
    }
    my $entry = VCS::LibCVS::Datum::Entry->new($entry_line);
    $entries->{$entry->name} = $entry;
  }

  # Do the manual check for directories if necessary.
  if ($sub_dirs_not_included) {
    # Get the name of the parent directory.
    my @splitdirs = File::Spec->splitdir($self->{AdminDirName});
    pop @splitdirs;
    my $parent = File::Spec->catdir(@splitdirs);

    # Traverse all of its directory entries.
    my $parent_dir = IO::Dir->new($parent) || confess("Can't opendir $parent");
    foreach my $subdir ($parent_dir->read()) {
      next if $subdir =~ /\.\.?/;
      next if $subdir eq $VCS::LibCVS::Admin_Dir_Name;
      # Skip it if it was already found in the Entries file.
      next if defined $entries->{$subdir};
      # Skip it unless it has a subdirectory called CVS.
      next unless
        -d File::Spec->catdir(($parent, $subdir, $VCS::LibCVS::Admin_Dir_Name));

      # Create a new entry for it.
      $entries->{$subdir} = VCS::LibCVS::Datum::Entry->new("D/$subdir////");
    }
  }

  return $entries;
}

sub get_Root {
  my $self = shift;

  my $filename = $self->{AdminDirName} . "/Root";
  my $fh = FileHandle->new($filename);
  return VCS::LibCVS::Datum::Root->new($fh->getline);
}

sub get_Repository {
  my $self = shift;

  my $filename = $self->{AdminDirName} . "/Repository";
  my $fh = FileHandle->new($filename);
  my $repodir = $fh->getline();
  my $root = $self->get_Root()->as_string();
  $repodir =~ s#^$root/(.*)#$1#;
  return VCS::LibCVS::Datum::DirectoryName->new($repodir);
}

sub get_Tag {
  my $self = shift;

  my $filename = $self->{AdminDirName} . "/Tag";
  return undef unless -e $filename;
  my $fh = FileHandle->new($filename);
  return VCS::LibCVS::Datum::TagSpec->new($fh->getline);
}

###############################################################################
# Private routines
###############################################################################

1;