#!/usr/bin/perl
# cpanel - cleanandmailformmaillog                Copyright(c) 2010 cPanel, Inc.
#                                                           All rights Reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cpanel license. Unauthorized copying is prohibited

BEGIN { unshift @INC, '/usr/local/cpanel'; }

use Cpanel::iContact qw( );
use Cpanel::Hostname ();

my $hostname = Cpanel::Hostname::gethostname();

my $today = localtime( time() );

if ( -z '/var/cpanel/formmail.log' ) {
    open( FML, '<', '/var/cpanel/formmail.log' );
    Cpanel::iContact::icontact(
        'application' => 'formmaillog',
        'level'       => 1,
        'subject'     => qq{Formmail usage log for $today},
        'message'     => \*FML,
        'msgtype'     => 'fd'
    );
    close(FML);
}
open( FML, '>', '/var/cpanel/formmail.log' );
close(FML);