cdsautosync #1

#!/usr/bin/perl

#Script to autosync Cadence library clients

#Called from an opus session

#Args: client name, update interval, parent pid

$client=$ARGV[0];
$interval=$ARGV[1];
$ppid=$ARGV[2];

if( (!$client || !$interval)) {
  print "arguments error\n";
  exit(1);
}

while() {

do {
  &checkpid;
  $cmd="p4 -c $client sync >/dev/null 2>&1";
  system($cmd);
  sleep $interval;
  }
}


sub checkpid {
  
  my $cmd;
  $cmd="ps -al | awk '{print $3}' | grep $ppid >/dev/null 2>&1";
  system($cmd);
  # Check exit status
  #print "Status $?\n";
  if($? eq 256) {
    
   # print "Exiting\n";
    exit(0);
  }
}