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

sub list_rechstep($;$) {
	my($id,$kn) = @_;
	line_printer;

	DoSelect {
	    my($timestamp,$dienst,$step,$kunde,$flags,$info) = @_;
		my $einb = DoFn("select count(*) from recheinheit where rechstep = $id and typ='b'");
		my $einp = DoFn("select count(*) from recheinheit where rechstep = $id and typ='p'");
		print $Db::pr_fh "ID       : $id\n";
		print $Db::pr_fh "Timestamp: ".isotime($timestamp)."\n";
		print $Db::pr_fh "Dienst   : ".name_dienst($dienst)."\n";
		print $Db::pr_fh "Schritt  : $step\n";
		print $Db::pr_fh "Flags    : ".flag_names($flags,"acctflag")."\n";
		print $Db::pr_fh "Kunde    : #$kunde:".name_kunde($kunde)."\n" if $kunde;
		print $Db::pr_fh "Info     : $info\n" if defined $info;
		print $Db::pr_fh "Einheiten: $einb (Bytes)\n";
		print $Db::pr_fh "Einheiten: $einp (Pakete)\n";
	} "select timestamp,dienst,step,kunde,flags,info from rechstep where id = $id"
		or problem "Schritt '$id' unbekannt";
}
1;
