use utf8;
use strict;
use warnings;
use Cf qw($WDESCR);

sub acct_ftp {
	my $acct = do_start(want=>"kunde,pers,uucp,domain,ip,ip_de",dienst=>"ftp",quelle=>$WDESCR,logdir=>"ftp",do_reverse=>0);
	return "Kein Accounting" unless ref $acct;

	my $line;

	while(defined($line = get_line($acct))) {
		my(undef,undef,undef,undef,undef,undef,$remadr,$volpack,$dir,undef,undef,undef,undef,$cust)=split(/\s+/,$line,15);
		$remadr =~ s/.*\@//;

		next if $volpack == 0;

		$cust = $acct->{'hash_uucp'}{$cust};
		next unless $cust;
		
		my $remagg;
		if($remadr =~ /^\d+\.\d+\.\d+\.\d+$/) {
			($remagg) = $acct->who_ip($remadr);
		} else {
			($remagg) = $acct->who_dom($remadr);
		}

		$acct->acct($cust,undef, $remagg,undef, 1,$volpack);
	}
	do_end($acct);
}
1;
