#!/usr/bin/perl -w

$uptimefile = "uptime_03012004_05212004.txt";

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

$goodUTC = 9999999999;
$badUTC = 0;
$ok = 0;
$prevok = 0;
$toatl = 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 ) {
	
	$interval = $badUTC - $goodUTC;

	$total = $total + $interval;

	print "$total ";

    }
}