#! /usr/bin/perl

# Perl script to take the backup of critical clearcase data

@vob_lst=system("/usr/atria/bin/cleartool lsvob -s");

foreach $a (@vob_lst)
{
 &lock($a);
}

 sub lock()
{
 print "Locking VOB $a\n";
 `/usr/atria/bin/cleartool lock:$a`;
 if($?){print "Locking of VOB $a failed\n";}
 else{print "Locking of VOB $a done\n";
 }
}