#!/usr/bin/perl -w

$uptimefile = "uptime_03012004_05212004.txt";
$showerfile = "showers.txt";
$outputfile = "goodshowersmay21.txt";

open UPTIMES, "<$uptimefile" or die "Could not open $uptimefile.\n$!\n";
open SHOWERLIST, ">$outputfile" or die "Could not open $outputfile. \n$!\n";

$goodUTC = 9999999999;
$badUTC = 0;
$ok = 0;
$prevok = 0;

while (<UPTIMES>) {
    
    unless ( /^316/ ) {
	next;
    }

    @showerbits = split /\s/;
    $bits = $showerbits[1];
   
    $prevok = $ok;

    if ( $bits eq "111111111111" ) {
	$ok = 1; $goodUTC = $showerbits[0];
    }else{
	$ok = 0; $badUTC = $showerbits[0];
    }

    if ( !$ok && $prevok ) {
	
	&checkshowers;
	
    }
}

sub checkshowers {

    open SHOWERS, "<$showerfile" or die "Could not open $showerfile.\n$!\n";

    while(<SHOWERS>) {
	
	@showerID = split /\s/;
	$showerUTC = $showerID[4];
	$showerNS = $showerID[6];
	
	if ( ($showerUTC ge $goodUTC) && ($showerUTC le $badUTC) ) {
	    
#	    print "$goodUTC $badUTC $showerUTC\n";
	    
	    print SHOWERLIST "UTC: $showerUTC ns: $showerNS\n";
	    
	}
    }
}