#!/usr/bin/perl -wT
# $Id: bradm-cron 49 2013-12-19 12:15:53Z sanders $
#
# Dit moet es in een netter 'bradm' scriptje worden getiept
# en komt uit svn://bit-report/
#
BEGIN { $ENV{PATH} = "/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin"; }
use strict;
use DBI;
use Data::Dumper;
$|++;

my $cnf = {
    'dsn' => 'DBI:mysql:database=bit-report;host=mysql.dmz.bit.nl',
    'dbu' => 'bit-report',
    'dbp' => 'haic0ohS',

    'staleperiod' => 2635200, # 30.5 days
};

my $dbh = DBI->connect($$cnf{dsn}, $$cnf{dbu}, $$cnf{dbp}) or die "Can't connect: $!\n";
$dbh->do("DELETE FROM servers WHERE UNIX_TIMESTAMP(insert_time) < (UNIX_TIMESTAMP(NOW()) - ?)", undef, $$cnf{staleperiod}) or die "Can't delete: $DBI::errstr ($!)\n";
