#!/usr/bin/perl -w

$uptimefile = "../../../data/uptimedata/uptime_03012004_04202004.txt";

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

$startUTC = 3160973000;
$endUTC = 3164348000;
$goodUTC = 9999999999;
$badUTC = 0;
$ok = 0;
$prevok = 0;
$total = 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 ) {
	
	if ( $badUTC gt $endUTC && $goodUTC lt $endUTC) {
	    $interval = $endUTC - $goodUTC;
	}elsif ( $badUTC gt $endUTC && $goodUTC gt $endUTC) {
	    $interval = "0";
	}else{
	    $interval = $badUTC - $goodUTC;
	}

	$total = $total + $interval;

	print "$total ";

    }
}