#!/usr/bin/perl
use lib "../lib";
use Bucky;
my $bucky = new Bucky;
my $today = time - 86400;
my $lastlog = $bucky->db->select("user", "lastseen > $today order by lastseen desc");
foreach my $user (@$lastlog)
	{
	my $name = $user->{'username'};
	my $age = get_age($user->{'lastseen'});
	print "$name => $age\n";
	}
sub get_age
	{
	my ($time) = @_;
	my $age = time - $time;
	if ($age < 60)
		{
		return int($age)."s";
		}
	$age /= 60;
	if ($age < 60)
		{
		return int($age)."m";
		}
	$age /= 60;
	if ($age < 60)
		{
		return int($age)."h";
		}
	$age /= 24;
	return int($age)."d";
	}