use utf8;
use warnings; no warnings "redefine";
use strict;
use Cf qw($SYS);
use Dbase::Help qw(DoFn DoTransSuspend);
use Fehler qw(problem);

sub get_hardware_console($;$) {
	my ($idi) = @_;
	return problem "\$ENV{USER} ist nicht gesetzt.\n" unless defined $ENV{USER};
	my ($console) = DoFn "SELECT console FROM hardware WHERE id=$idi"
	  or return problem "Hardware #$idi nicht gefunden!?\n";
	return problem "Es ist keine Console definiert.\n" unless defined $console;
	DoTransSuspend {
		system $console =~ /\s/ ? $console : ( ssh => "$SYS:$console" );
	};
}

1;
