#!/usr/bin/perl
# cpanel - cleanbyteslogs                         Copyright(c) 2008 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;

my $domlogs_dir = '/usr/local/apache/domlogs';

# 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, $domlogs_dir ) {
    while ( my $file = readdir $dom_dir ) {
        if ( $file =~ m/^__cpanel__service__auth__/ ) {
            unlink $domlogs_dir . '/' . $file;
        }
    }
    closedir $dom_dir;
}