#!/bin/bash
###############################################################################
#                                                                             #
# Pakfire - The IPFire package management system                              #
# Copyright (C) 2021 Pakfire development team                                 #
#                                                                             #
# This program is free software: you can redistribute it and/or modify        #
# it under the terms of the GNU General Public License as published by        #
# the Free Software Foundation, either version 3 of the License, or           #
# (at your option) any later version.                                         #
#                                                                             #
# This program is distributed in the hope that it will be useful,             #
# but WITHOUT ANY WARRANTY; without even the implied warranty of              #
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the               #
# GNU General Public License for more details.                                #
#                                                                             #
# You should have received a copy of the GNU General Public License           #
# along with this program.  If not, see <http://www.gnu.org/licenses/>.       #
#                                                                             #
###############################################################################

error() {
	echo "$@" >&2
}

main() {
	local buildroot="${1}"
	shift

	# Check if BUILDROOT exists
	if [ ! -d "${buildroot}" ]; then
		error "BUILDROOT does not exist"
		return 1
	fi

	local broken_links=()

	local file
	for file in $(find "${buildroot}" -type l); do
		if [ ! -e "${file}" ]; then
			broken_links+=( "${file}" )
		fi
	done

	if [ "${#broken_links[@]}" -gt 0 ]; then
		error "The following broken symlinks have been found:"

		local link
		for link in ${broken_links[@]}; do
			error "  ${link/${buildroot}/} -> $(readlink "${link}")"
		done

		return 1
	fi

	return 0
}

main "$@" || exit $?
