<?
#here there be bugs.

function hms($s){
	#print "\n<! $s !>\n";
	$days=intval($s/86400);
	$hours=intval(($s-$days*86400)/3600);
	$minutes=intval(($s%3600)/60);
	$secs=$s%60;
	if ($days)
		$r=$r.$days.'D, ';
	#if ($hours)
		$r=$r.$hours.':';
	if (strlen($minutes)==1) 
		$minutes='0'.$minutes;
		$r=$r.$minutes;
	if (strlen($secs)==1)
		$secs='0'.$secs;
	$r=$r.':'.$secs;
	
	return $r;
}

function hhms($s){
	$hours=intval($s/3600);
	$minutes= intval(($s%3600)/60);
	if ($hours==1)
		$r="1 hour";
	if ($hours > 1)
		$r="$hours hours ";
	if ($hours && $minutes)
		$r.=", ";
	if ($minutes);
		$r.= $minutes."m";
	return $r;
}

function bkmg($b){

	if ($b == 0){
		$r='';
	}elseif ($b<1000){
		$r = $b."b";
	}elseif($b<1000000){
		$r=intval($b/1000)."k";	
	}elseif($b<100000000){
		$r = (intval($b/100000)/10)."M";
	}else{
		$r = (intval($b/1000000))."M";
	}	
	return $r;
}

?>