#!/usr/bin/perl

########################################################################################## 
#  Perl Script To Calculate Replication Time           
#  Author: Ritu Sati                             
#  eMail : sritu@novell.com                      
#  Version : 1.0                                  
##########################################################################################


$admincontext="cn=admin,o=test";
$passwd="test";
$ip="10.10.10.10";
$port=389;
$count =1;
$userscount="10000";
chomp ($userscount);

system ("rm -fr test");
print "Objects syncronization started in $ip server \n ";
$starttime= `date +%s`;

print ("\n startTime = $starttime ");  

while ( $count > 0 )
{
system ("ldapsearch -D $admcontext -w $passwd -h $ip -p $port  -b ou=campus1,o=university  -s base subordinatecount | grep -i subordinatecount: >>test ");

sleep 60; 
$count= (system (" grep  $userscount test" ));
}


print "\n Sync completed";
$endtime=`date +%s`;
print (" \n Endtime = $endtime ");


my $elapsed_seconds = $endtime -$starttime ;

print ("\n Time taken for synchronization in seconds $elapsed_seconds");
print ("\n");