use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Globals qw(ipinfo);
use Dbase::Help qw(DoFn isotime);
use Fehler qw(problem);
use Loader qw(line_printer);

# idi = ipkunde.id = mess_stelle.snmp_host
sub list_messsystem($) {
    my ( $idi ) = @_;
    line_printer;

    my ( $ipk, $timestamp, $info )
      = DoFn <<_
SELECT ipkunde.id, ipkunde.timestamp, ipkunde.infotext
  FROM ipkunde
 WHERE ipkunde.id = $idi
_
      or return problem "Messsystem #$idi nicht gefunden.";

    my $oids = DoFn "SELECT count(*) FROM mess_stelle WHERE snmp_host = $idi";
    my $mts  = DoFn <<_;
SELECT count(typ)
  FROM ( 
    SELECT DISTINCT typ FROM mess_stelle WHERE snmp_host = $idi
  ) as dt
_

    print $Db::pr_fh "ID           : $idi\n";
    print $Db::pr_fh 'Timestamp    : ' . isotime($timestamp) . "\n";
    print $Db::pr_fh 'FQDN         : ' . ipinfo($ipk). "\n";
    print $Db::pr_fh "OID's        : $oids\n";
    print $Db::pr_fh "Messtypen    : $mts\n";
    print $Db::pr_fh "Info         : $info\n" if $info;

}

1;
