#!/usr/bin/perl -w

# Source: @RPM_PACKAGE_VERSION@-@RPM_PACKAGE_RELEASE@

BEGIN {
	unshift( @INC, ( $ENV{POPHOME} || '@POPHOME@' ) . '/lib' )
	  unless $ENV{KUNDE_NO_PERLPATH};
}

use utf8;
use strict;
use warnings;

use Cf qw($ACCHOST $ACCUSER $ACCPASS $ACCDB);
use Dbase qw(db_handle);
use Dbase::Getopt qw(GetOptions);
use Dbase::Help qw(isodate date_add_ymd DoTime);

GetOptions( 'keep-months=i' => \my $KeepMonths );

my $db =
  $ENV{TESTING2} || $ACCUSER eq ''
  ? db_handle()
  : Dbase->new(
	DATAHOST   => $ACCHOST,
	DATAHOST2  => $ACCHOST,
	DATAUSER   => $ACCUSER,
	DATAPASS   => $ACCPASS,
	DBDATABASE => $ACCDB
  ) || die 'Die Einzel-Accounting-Datenbank ist futsch.\n';

my ( $y, $m ) = isodate( date_add_ymd( DoTime(), 0, -$KeepMonths ) );
$db->Do( sprintf 'DELETE FROM netflow WHERE datum < %d%02d01', $y, $m );
