#!/usr/bin/perl
 
use Time::Local;
 
open(file1,"/var/oalogs/oainstall.linux.log") || die("File not found");
 
@data=<file1>;
 
close(file1);
 
@component = (HPOvXpl,HPOvSecCo,HPOvBbc,HPOvSecCC,HPOvCtrl,HPOvDepl,HPOvConf,HPOvPacc,HPOvPerfMI,HPOvGlanc,HPOvPerfAgt,HPOvPerlA,HPOvAgtLc,HPOvEaAgt,HPOvOpsAgt);


 sub install
  {
      @cmpstartinstall= grep{/Installing the $component[0] package/}@data;
        
      @startime = map {/^\[(.+?)\]/;$1;} @cmpstartinstall;
     
      #print "@startime\n";
     
      if($startime[0] =~ /^([\d]+)\/(\d+)\/(\d+)\s+(\d+):(\d+):(\d+)/)
  {
        $mon = $1;
        $mon--;
        $mday = $2;
        $year = $3;
        $hour = $4;
        $min = $5;
        $sec = $6;
        if($year =~ /^\d{2}$/)
        {
                $year = "20" . $year;
        }
        $cmpstart = timelocal($sec,$min,$hour,$mday,$mon,$year);#
       
        #print "$cmpstart\n";
  }
     
      @cmpendinstall = grep {/The component package $component[0] installed successfully/}@data;
     
      @endtime = map {/^\[(.+?)\]/;$1;} @cmpendinstall;
     
       if($endtime[0] =~ /^([\d]+)\/(\d+)\/(\d+)\s+(\d+):(\d+):(\d+)/)
  {
        $mon = $1;
        $mon--;
        $mday = $2;
        $year = $3;
        $hour = $4;
        $min = $5;
        $sec = $6;
        if($year =~ /^\d{2}$/)
        {
                $year = "20" . $year;
        }
        $cmpend = timelocal($sec,$min,$hour,$mday,$mon,$year);#
       
       
  }
     
      $diff=$cmpend-$cmpstart;
 
      print "$diff\n";
      #print "@cmpendinstall\n"
 }
 
 install();