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

sub list_messtyp($) {
    my ( $idi ) = @_;
    line_printer;

    my ( $timestamp, $name, $einheit, $intervall, $col_typ, $rrd_typ, $rrd_min, $rrd_max, $rrd_faktor,
         $snmp_faktor, $oid, $dienst, $wertart, $status, $info )
      = DoFn <<_
SELECT mess_typ.timestamp,
       mess_typ.name,
       mess_typ.einheit,
       mess_typ.collectd_intervall,
       mess_typ.collectd_typ,
       mess_typ.rrd_typ,
       mess_typ.rrd_min,
       mess_typ.rrd_max,
       mess_typ.rrd_faktor,
       mess_typ.snmp_faktor,
       mess_typ.oid_praefix,
       mess_typ.dienst,
       mess_typ.wertart,
       mess_typ.status,
       mess_typ.info
  FROM mess_typ
 WHERE mess_typ.id = $idi
_
      or return problem "MessTyp #$idi nicht gefunden.";

    $dienst = name_dienst( $dienst ) if defined $dienst;
    $status = get_descr( 'status', $status ) if defined $status;

    print $Db::pr_fh "ID           : $idi\n";
    print $Db::pr_fh 'Timestamp    : ' . isotime($timestamp) . "\n";
    print $Db::pr_fh "Name         : $name\n";
    print $Db::pr_fh 'Einheit      : ' . get_descr( "einheit", $einheit ) . "\n";
    print $Db::pr_fh "Intervall    : $intervall\n";
    print $Db::pr_fh "Collectd-Typ : $col_typ\n";
    print $Db::pr_fh 'RRD-Typ      : ' . get_descr( "rrd_typ", $rrd_typ ) . "\n";
    print $Db::pr_fh "RRD-Min      : $rrd_min\n" if $rrd_min;
    print $Db::pr_fh "RRD-Max      : $rrd_max\n" if $rrd_max;
    print $Db::pr_fh "RRD-Faktor   : $rrd_faktor\n";
    print $Db::pr_fh "SNMP-Faktor  : $snmp_faktor\n";
    print $Db::pr_fh "OID-Ast      : $oid\n" if $oid;
    print $Db::pr_fh "Dienst       : $dienst\n" if $dienst;
    print $Db::pr_fh "Wertart      : $wertart\n" if $wertart;
    print $Db::pr_fh "Status       : $status\n" if $status;
    print $Db::pr_fh "Info         : $info\n" if $info;

}

1;
