sub json_key_list {
	use JSON;
	my($json_text) = @_;
	return("") unless ($json_text);
	my($json_obj) = decode_json($json_text);
	return(join(':', keys(%$json_obj)));
}
