#!/bin/sh

logsavedir=/var/log/installer

header () {
	echo
	echo "=============================================="
	echo "$@"
	echo "=============================================="
}

gettext=$(which gettext 2>/dev/null) || true
_ () {
	if [ -n "$gettext" ]; then
		gettext "$@"
	else
		printf "$@"
	fi
}

if [ ! -e "$logsavedir/hardware-summary" ]; then
	_ "Cannot find installation logs in $logsavedir"
	echo
	while [ ! -e "$logsavedir/hardware-summary" ]; do
		yesno "$(_ "Use installation logs from another location? [Y/n] ") " yep
		if [ "$REPLY" = yep ]; then
			_ "Enter location of installation logs:"
			printf " "
			read logsavedir
			if [ ! -e "$logsavedir/hardware-summary" ]; then
				_ "$logsavedir/hardware-summary does not exist"
				echo
			fi
		else
			exit 0
		fi
	done
fi

getlog () {
	log="$1"

	if [ -e "$logsavedir/$log" ]; then
		_ "Including installer $log in report.."
		echo
		header "Installer $log:" >&3
		if [ -r "$logsavedir/$log" ]; then
			cat "$logsavedir/$log" 2>&1 >&3
		else
			_ "Only root can read $logsavedir/$log .."
			echo
			su root -c "cat $logsavedir/$log" >&3
		fi
	fi
}

getlog lsb-release
if [ -e "$logsavedir/hardware-summary" ]; then
	getlog hardware-summary
else
	_ "Running report-hw to summarise hardware for report."
	echo
	header "Hardware information for running system:" >&3
	report-hw 2>&1 >&3
fi

if [ -e "$logsavedir/firmware-summary" ]; then
	getlog firmware-summary
fi

# Commented out as this takes up relatively much space and is used
# only rarely. Also, the syslog now lists which udebs are actually
# installed by anna, including versions.
#getlog status

# Commented out as inclusion of these files causes installation reports to
# not reach the debian-boot list (#403346)
#if [ -e "$logsavedir/messages" ] || [ -e "$logsavedir/syslog" ] || \
#   [ -e "$logsavedir/partman" ]; then
#	_ "
#Additional installer log files can be included in the report.
#This is generally only necessary for debugging if there was a problem with
#the install."
#	echo
#	yesno "$(_ "Include additional log files in report? [y/N] ") " nop
#	if [ "$REPLY" = yep ]; then
#		getlog syslog
#		getlog messages
#		getlog partman
#	fi
#fi