use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Help qw(DoFn);
use Fehler qw(problem);
use Loader qw(list_hardware);

sub list_leitung_hardware($$) {
	my ( $endpunkt, $id ) = @_;

	return problem qq(Ich kenne nur A- und B-, keine "$endpunkt"-Endpunkte.)
	  if $endpunkt !~ /^[AB]\z/i;

	return problem qq("$id" ist nicht numerisch.) if $id =~ /\D/;

	my ($hardware) =
	  DoFn("SELECT \l${endpunkt}_hardware FROM leitung WHERE id = $id")
	  or return "Leitung #$id nicht in der Datenbank gefunden.";

	return problem("Hier ist keine \u$endpunkt-Hardware eingetragen.")
	  unless $hardware;

	list_hardware($hardware);
}

1;
