#!/usr/bin/perl

use strict;
use warnings;
require PgCommitFest::Request;

my $db = PgCommitFest::Request->db();
$db->do(<<EOM);
DELETE FROM session WHERE login_time < now() - '10 days'::interval;
EOM
$db->commit;