#!/usr/bin/perl
# uptime display script for launchbar
# by dave linnenbank
# work@davelinnenbank.com

@units = qw(second minute hour day year);
@divs = (60,60,24,356);

$startTime = `sysctl kern.boottime`;
$startTime =~ /sec = (\d*),/gi;
$upTime = `date +%s` - $1;
$orig = $upTime/60;

for ($i=1;$orig;$i++) {
	$remainder = $orig % @divs[$i];
	if ($remainder) {
		$temp = $remainder . " " . @units[$i];
		if ($remainder != 1) {
			$temp .= "s";
		}
		if ($output) {
			$temp .= ", ";
		}
		$output = $temp . $output;
	}
	$orig = int($orig/$divs[$i]);
}

print $output;