#!/usr/bin/perl

use DBI;

######################################################################
# --CONFIGURATION

# DB access
$db_name='DBI:mysql:sendmailwrapper:localhost:3306';
$db_uid='smwrapper';
$db_pwd='yourPassword';

# --end CONFIGURATION
######################################################################


my $dbh = DBI->connect($db_name, $db_uid, $db_pwd);
if (!defined $dbh) { die 'Connection to database failed.'; }

$update = $dbh->prepare("UPDATE throttle SET count_cur = 0, reported = 0");
$update->execute;