#!/usr/local/bin/perl

use DBI;
use Digest::MD5 qw(md5_hex);
use Sys::Hostname;
use Sys::Syslog;

my $configdir="/usr/local/bastion/mailgrey/etc";

our $dsn1;
our $dsn1_user;
our $dsn1_password;
our $dsn2;
our $dsn2_user;
our $dsn2_password;
require  $configdir."/dsn.".hostname();

$failure=0;

openlog("mailgrey-periodic","","local0");

$dbh1=DBI->connect($dsn1,$dsn1_user,$dsn1_password,{
                          RaiseError => 0,
                          AutoCommit => 1,
                          PrintError => 0
                        });
if ($dbh1)
{
  $sth1  =$dbh1->prepare("DELETE FROM T_grey WHERE (t1=0) AND (t0<?)");
  $sth1_1=$dbh1->prepare("DELETE FROM T_grey WHERE (t1!=0) AND (t1<?)");
}

my $timestamp=time();

my $rate_inactive=$timestamp-(2*86400);
my $rate_active  =$timestamp-(90*86400);
my $nr1=0;
my $nr2=0;

if ($sth1)
{
  $sth1->bind_param(1,$rate_inactive);
  $sth1->execute();
  $nr1=$sth1->rows;

  $sth1_1->bind_param(1,$rate_active);
  $sth1_1->execute();
  $nr2=$sth1_1->rows;
}

my $timestring=localtime();
my $log=sprintf("Inactive deleted: %8s Active deleted: %8s",$nr1,$nr2);
syslog("info",$log);
closelog();