#!/usr/bin/perl<br>
#<br>
use strict;<br>
use Time::localtime;<br>
$ENV{'PATH'} = '/usr/kerberos/bin:/usr/local/bin:/bin:/usr/bin:/usr/X11R6/bin:/home/oracle/bin';<br>
$ENV('LANG') = 'en_US.UTF-8';<br>
$ENV('USER') = 'oracle';<br>
#<br>
#  Input Variables<br>
#<br>
if ( $#ARGV < 1 ) { die "Usage: sync_check.pl \<interval\> \<log dir\>"; };<br>
my $lag = $ARGV[0];<br>
my $log_dir = $ARGV[1];<br>
$log_dir =~ s/\/$//;  # Get rid of trailing '/' if it's there<br>
#<br>
#  Environment variables<br>
#<br>
my $orahome  = $ENV{"ORACLE_HOME"}; # Gets ORACLE_HOME <br>
my $hostname = `hostname`;          # Runs the OS hostname command.<br>
#<br>
#  Open today's log file.<br>
#<br>
my $log_date = `date +%m%d%y`;      # system date in mmddyy format<br>
my $log = "$log_dir/sync_check.$log_date"; # in prod use "/usr/logs/sync_check.$log_date";<br>
open (LOG,">>$log") || die "Can't open $log on $hostname\n";<br>
#<br>
#  General use variables.<br>
#<br>
my $subject = "AD -> OID sync on $hostname";<br>
my $success = 0;<br>
my $failure = 1;<br>
my $timenow = `date +%H:%M:%S`;<br>
chomp $timenow;<br>
my $mail_text = "WARNING:  ";<br>
#<br>
#  Write a startup message to the log <br>
#<br>
print LOG "***********************************************************\n";<br>
print LOG $timenow . " - Starting checks of " . $subject;<br>
#<br>
# Look for the odisrv process.  Send mail and quit if it's down.<br>
#<br>
my $odiproc = `ps -ef|grep odisrv|wc -l`;<br>
if ( $odiproc == 0 ) <br>
  { $mail_text = $mail_text . " odisrv process NOT running.";<br>
    print LOG "$timenow - $mail_text\n";<br>
    system("echo $mail_text | mail -s \"$subject\" bierman\@firsttrust.com" );<br>
    exit $success;<br>
  };<br>
#<br>
# Get the time from the logs.  It's in yyyymmddhh24miss format.<br>
#<br>
my $odi_logs = $orahome . "/ldap/odi/log";<br>
my $last_user_sync = `grep orclodipLastSuccessfulExecutionTime: $odi_logs/ActiveChgImpUsers.trc | tail -1 `;<br>
chomp $last_user_sync;<br>
$last_user_sync = substr($last_user_sync,37,100);<br>
print LOG "$timenow - Last user sync at $last_user_sync\n";<br>
#<br>
my $last_group_sync = `grep orclodipLastSuccessfulExecutionTime: $odi_logs/ActiveChgImpGroups.trc | tail -1 `;<br>
chomp $last_group_sync;<br>
$last_group_sync = substr($last_group_sync,37,100);<br>
print LOG "$timenow - Last group sync at $last_group_sync\n";<br>
#<br>
# Get the date/time $lag minutes ago yyyymmddhh24miss format.<br>
# time() gets time in seconds since some start point.  <br>
# localtime() breaks the date in seconds into year, month, day, ...<br>
#<br>
my $sec;<br>
my $min;<br>
my $hour;<br>
my $mday;<br>
my $mon;<br>
my $year;<br>
my $wday;<br>
my $yday;<br>
my $isdst;<br>
<br>
( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = <br>
    localtime( time() - $lag * 60 );<br>
$year += 1900; # localtime returns number of years since 1900<br>
$mon  += 1;    # localtime months are Jan = 0 ... Dec = 11<br>
# <br>
# Format date string and lpad with 0 if needed<br>
#<br>
my $start_ymd = sprintf( "%4d%02d%02d%02d%02d%02d", $year, $mon, $mday, $hour, $min, $sec );<br>
#<br>
# Compare the log date to the start date. <br>
# We have problems if it's more than $lag minutes ago<br>
# Write an entry to the log and send email<br>
#<br>
my $send_mail = 0;<br>
if ( $last_user_sync < $start_ymd ) <br>
  { $mail_text = $mail_text . "Last user sync more than $lag minutes ago at $last_user_sync.  ";<br>
    $send_mail = 1;<br>
}<br>
#<br>
if ( $last_group_sync < $start_ymd ) <br>
  { $mail_text = $mail_text . "Last group sync more than $lag minutes ago at $last_group_sync.  ";<br>
    $send_mail = 1;<br>
}<br>
#<br>
if ( $send_mail )<br>
  {<br>
    print LOG "$timenow - $mail_text\n";<br>
#    system("echo $mail_text | mail -s \"$subject\" bierman\@firsttrust.com" );<br>
  }<br>
close (LOG);<br>
exit $success;<br>