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

# This script creates a list of ClearCase vobs in Amanda disklist format.

# Cobbled together by Matt McLeod <matt@boggle.org>
# See http://boggle.org/software/ for license details.

use CCaseUtils;

# read in the list of available vobbie-wobbies

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

foreach $n (sort keys %vobs) {
	print "assc00 $n ccase-vob\n";
};