use utf8;
use warnings;
no warnings 'redefine';
use strict;

use Dbase::Help qw(DoSelect in_list);
use Fehler qw(warnung);
use Loader qw(lister list_leitungen);

sub warn_leitungshardware($) {
    my ($hardware_id) = @_;
    my @leitungen;
    DoSelect { push @leitungen, shift } <<_;
	SELECT   DISTINCT id
	FROM     leitung
	WHERE    ( ende IS NULL OR ende >= UNIX_TIMESTAMP(NOW()) )
	AND      $hardware_id IN (a_hardware, b_hardware)
	ORDER BY id
_
    return unless @leitungen;

    lister(5);
    list_leitungen( undef, 0, in_list( id => '', @leitungen ) );
    no warnings 'once';
    warnung( 'Diese Hardware hängt angeblich am Ende '
          . (
            @leitungen == 1 ? 'der folgenden Leitung' : 'folgender Leitungen' )
          . ":\n$Db::output" );
    lister(0);

    @leitungen;
}

1;
