Changeset 204

Show
Ignore:
Timestamp:
06/06/08 14:30:47
Author:
dan
Message:

--

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • scout/trunk/cdl_0master.pl

    r203 r204  
    684684      .sprintf("%02d",$base_second); 
    685685 
     686  } 
     687  #DWR v1.1.0.0 
     688  #Do a date range check on the newest entry to see if we are picking up any stations that have been offline for a couple of days and log out the message. 
     689  my $ThreeDaysAgo = `date --d=\"3 days ago\" +%s`;      
     690  if( $time_values[-1] < $ThreeDaysAgo ) 
     691  { 
     692    print( "Time Lag::Last time value older than 3 days Platform: $institution_code_value.$platform_code_value.$package_code_value Last Date: $time_formatted_values[-1] File: $net_cdf_file\n" ); 
    686693  } 
    687694   
  • scout/trunk/cdl_fixed_point.pl

    r203 r204  
    437437      .sprintf("%02d",$base_minute).':' 
    438438      .sprintf("%02d",$base_second); 
    439  
     439       
     440 
     441  } 
     442  #DWR v1.1.0.0 
     443  #Do a date range check on the newest entry to see if we are picking up any stations that have been offline for a couple of days and log out the message. 
     444  my $ThreeDaysAgo = `date --d=\"3 days ago\" +%s`;      
     445  if( $time_values[-1] < $ThreeDaysAgo ) 
     446  { 
     447    print( "Time Lag::Last time value older than 3 days Platform: $institution_code_value.$platform_code_value.$package_code_value Last Date: $time_formatted_values[-1] File: $net_cdf_file\n" ); 
    440448  } 
    441449