bucky2

1 files changed, 33 insertions, 0 deletions

diff --git a/bucky2/t/lastlog.pl b/bucky2/t/lastlog.pl
new file mode 100755
index 0000000..5defaf3
--- /dev/null
+++ b/bucky2/t/lastlog.pl
@@ -0,0 +1,33 @@
+#!/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";
+	}