# Perl script to check the replicas are in sync

use strict;
use warnings;

my %hash;
my @repl1;
my $key = "pu";
my @repl;
my @foo;
my $CT = "/usr/atria/bin/cleartool";
my $MT = "/usr/atria/bin/multitool";

my @vob_list = `$CT lsvob -s`;
foreach (@vob_list)
{
 @repl = `$CT lsreplica -fmt "%n\n" -invob $_`;
 @foo = grep { /pu_/i } @repl;
$hash{$_} = "for @repl";
delete $hash{$_} for (@foo);
@repl = keys %hash;
print @repl;

#print @foo;
}