#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - scripts/cleanbyteslogs                 Copyright(c) 2014 cPanel, Inc.
#                                                           All rights reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited

use strict;

use Cpanel::ConfigFiles::Apache ();

my $apacheconf = Cpanel::ConfigFiles::Apache->new();

# Clean up useless cPanel Service Auth bytes logs
# These will no longer be created following 11.24.x revision 31202
if ( opendir my $dom_dir, $apacheconf->dir_domlogs() ) {
    while ( my $file = readdir $dom_dir ) {
        if ( $file =~ m/^__cpanel__service__auth__/ ) {
            unlink $apacheconf->dir_domlogs() . "/$file";
        }
    }
    closedir $dom_dir;
}