#!/usr/bin/perl

use strict;

use LastLog::File;

LastLog::File::debug( $ENV{lastlog_debug} || 0 );

my ($user, $uid, $host, $time, $line );
my @recs;

my $ap;

my $lobj = new LastLog::File;

if (!@ARGV) {
    while ( $ap = $lobj->ent() ) { 
	## printf "got %s\n", $ap->user();
	push (@recs, $ap);
    }
    for ( sort { $main::a->time() <=> $main::b->time() } @recs ) {
	$ap = $_;
	write; 
    } 

} 

my $arg;
USER: foreach $arg ( @ARGV ) {
    $user = $arg;
    if ($user =~ /^\d+$/) {
	$ap = $lobj->uid($uid)
    } else {
	$ap = $lobj->user($user);
    } 
    write if $ap;
} 

format main::STDOUT_TOP = 
@<<<<<<<  @>>>>> @<<<<<<< @<<<<<<<<<<<<<<<<<< @*
'user',   'uid', 'line',  'host',             'when'
--------  ------ -------- ------------------- -----------------------
.

format main::STDOUT = 
@<<<<<<<  @>>>>> @<<<<<<< @<<<<<<<<<<<<<<<<<< @*
{
$ap->user(),    
	  $ap->uid(),  
		 $ap->line(),   
			  $ap->host(),        
				              $ap->date() 
}
.