# 02-Aug-92 Noah Friedman <friedman@prep.ai.mit.edu>
# Public domain.

# Args: user-id (or username), &optional logfile
# Returns (time, tty, rhost)
sub lastlog
{
  local ($uid, $logfile) = @_;
  local ($ll_template, @ll_fodder, $ll_size, $ll_info);
  local ($dummy, @lastlog_entry);

  if ($uid !~ /[0-9][0-9]*/)
    {
      ($dummy, $dummy, $uid) = getpwnam ($uid);
    }

  if ("$logfile" eq "")
    {
      $logfile = "/usr/adm/lastlog";
    }

  if (open (FILE, "< $logfile"))
    {
      $ll_template = "LA8A16";
      @ll_fodder = (0, 0 x 8, 0 x 16);
      $ll_size = length (pack ($ll_template, @ll_fodder));
      seek (FILE, $ll_size * $uid, 0);
    
      read (FILE, $ll_info, $ll_size);
      close (FILE);

      @lastlog_entry = unpack ($ll_template, $ll_info);

      return @lastlog_entry;
    }
}