#!/usr/local/apps/perl-5.005_03/bin/perl

# ccase-cpio.pl

# this wee scripty-thing allegedly backs up a ClearCase VOB.
# it pretends to be GNU tar, but ignores most of the command-line
# options and spits out a cpio archive, not a tarball.

# the argument for --directory should be the -tag, not
# the vob storage area.

# two things to note:

# -- this does not do incrementals.  Incrementals are bad, m'kay?
# -- you should turn indexing off for any dumps done using this
#    thing -- Amanda doesn't know how to cope with cpio archives.

# written by Matt McLeod <matt@boggle.org>, see http://boggle.org/software/
# for license details.

# last modified 20000115

use File::Spec;
use CCaseUtils;

# configuration

$ct = "/usr/atria/bin/cleartool";
$find = "/bin/find";
$grep = "/bin/grep";
$tempfile = "/tmp/voblist.$$";
$esttempfile = "/tmp/estimate.$$";
$cpio = "/bin/cpio";

# Usage info

if ($ARGV[0] eq undef) {
	print STDERR <<EOText;
wibble!  wibble wibble wibble!

(In a saner world, some sort of usage information
 would go here.  For now, Use the Source, Luke)

EOText
	exit;
}

# read in the list of available vobbie-wobbies

%vobs=();
read_vobs(*vobs);

# parse the command-line options.  We only care about
# --directory (which tells us what we're backing up) and
# --file (which, if set to /dev/null, means we're only
# doing an estimate).

$estimate = 0;

while ($n = shift) {
	if ($n =~ /--directory/) {
		$source_vob=shift;
	} elsif ($n =~ /--file/) {
		$fname = shift;
		if ($fname =~ /.dev.null/) {
			$estimate = 1;
		};
	};
};

# make sure that the source vob exists

if ($vobs{$source_vob} eq undef) {
	# well who's a stupid bastard, then?

	print STDERR "$source_vob is not a vob.  sod off.\n";
	exit;
}

# produce an estimate, if we need one.  The output is in the
# same format as gnu tar with "--totals".  If we're doing
# this, we're not doing an actual dump, so exit at the end.

# note that the estimate is not exact -- cpio reports the dump size
# in 512-byte blocks, so the figure we give to Amanda is rounded up
# to the nearest 512-byte boundary.  Which is close enough.

if ($estimate) {
        system("$find $vobs{$source_vob} -print | $grep -v $vobs{$source_vob}/d/ | $grep -v $vobs{$source_vob}/c/ > $tempfile");
        system("$cpio -om < $tempfile 2> $esttempfile > /dev/null");
	open(TEMPFILE,"<$esttempfile");
	$size = -1;
	while (<TEMPFILE>) {
		($tempsize, $junk) = split(" ", $_);
		$size += $tempsize;
	};
	close(TEMPFILE);
	$size = $size * 512;
	print STDERR "Total bytes written: $size\n";
	unlink $esttempfile;
	unlink $tempfile;
	exit;
};
	
# you go for the arms, I'll grab the legs...

if (system("$ct lock vob:$source_vob > /dev/null 2> /dev/null") eq 0)
{
	$pre_locked = 0;
} else {
	$pre_locked = 1;
}

# our chosen victim is now defenceless.  Ruthlessly
# copy it's contents to stdout.

system("$find $vobs{$source_vob} -print | $grep -v $vobs{$source_vob}/d/ | $grep -v $vobs{$source_vob}/c/ > $tempfile");

system("$cpio -om < $tempfile 2> $esttempfile");

# release it back into the wild.

if (! $pre_locked) {
	system("$ct unlock vob:$source_vob > /dev/null");
};

open(TEMPFILE,"<$esttempfile");
$size = -1;
while (<TEMPFILE>) {
        ($tempsize, $junk) = split(" ", $_);
        $size += $tempsize;
};
close(TEMPFILE);
$size = $size * 512;
print STDERR "Total bytes written: $size\n";

# mop the blood up.

unlink $tempfile;
unlink $esttempfile;

# run away!