Changeset 204
- Timestamp:
- 06/06/08 14:30:47
- Files:
-
- scout/trunk/cdl_0master.pl (modified) (1 diff)
- scout/trunk/cdl_fixed_point.pl (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
scout/trunk/cdl_0master.pl
r203 r204 684 684 .sprintf("%02d",$base_second); 685 685 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" ); 686 693 } 687 694 scout/trunk/cdl_fixed_point.pl
r203 r204 437 437 .sprintf("%02d",$base_minute).':' 438 438 .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" ); 440 448 } 441 449
