# Module CCaseUtils.pm
#
# This is a place to stick useful ClearCase<->Perl integration stuff
#
# Put together by Matt McLeod <matt@boggle.org>
# See http://boggle.org/software/ for license details.
#
# Last modified 991010
 
package CCaseUtils;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(read_vobs);
use File::Spec;

sub read_vobs
{
	local(*VOBS) = @_;

	open(VOBLIST, "/usr/atria/bin/cleartool lsvob |");

	while (<VOBLIST>) {
		chomp($_);
		($first, $second, $third) = split(" ", $_);
		if ($first =~ /^\*/) {
			$tag=$second;
			$dir=$third;
		} else {
			$tag=$first;
			$dir=$second;
		}
		$VOBS{"$tag"}=$dir;
	}

	close (VOBLIST);
}