#!/usr/athena/bin/perl

$lastoutput = `last`;
print(STDERR "Got last\n");
@lines = split(/\n/, $lastoutput);
print(STDERR "$#lines logins...\n");
foreach $l (@lines)
{
    split(/[ ]+/, $l);
    if($_[2] eq ':0.0')
    {
	if($_[$#_-2] ne 'still')
	{
	    @toff = split(/:/, $_[$#_-1]);
	    @ton  = split(/:/, $_[$#_-3]);
	    $mintl = ($lastonh*60)+$lastonm;
	    $minte = ($toff[0]*60)+$toff[1];
	    if (($_[$#_-4] ne $lastond)&&(int($toff[0])>$lastonh))
	    {
		$minte = $minte + (60*24);
	    }
	    $diff = $mintl - $minte;
	    if($diff>$ARGV[0])
	    {
		print(STDERR "No one was on from $_[$#_-6] $_[$#_-5] $_[$#_-4] $toff[0]:$toff[1] to $lastonh:$lastonm\n");
		foreach $i ($toff[0]..$lastonh)
		{
		    print(STDOUT "$_[$#_-5] $_[$#_-4] $i\n");
		}
	    }

	    $lastonh = int($ton[0]);
	    $lastonm = int($ton[1]);
	    $lastond = $_[$#_-4];
	}
    }
}