CTar::getFileInfo

function getFileInfo($f)
{
	$f = str_replace('\', '/', $f);
	$path = substr($f, strlen($this->path) + 1);

	$ar = array();

	if (is_dir($f))
	{
		$ar['type'] = 5;
		$path .= '/';
	}
	else
		$ar['type'] = 0;

	if (!$info = stat($f))
		return $this->Error('Can't get file info: '.$f);

	if ($info['size'] < 0)
		return $this->Error('File is too large: '.$f);

	$ar['mode'] = 0777 & $info['mode'];
	$ar['uid'] = $info['uid'];
	$ar['gid'] = $info['gid'];
	$ar['size'] = $ar['type']==5 ? 0 : $info['size'];
	$ar['mtime'] = $info['mtime'];
	$ar['filename'] = $this->prefix.$path;

	return $ar;
}