#!/usr/bin/perl -w

# (C) 2005 The Honeynet Project.  All rights reserved.
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA
#
#----- Authors: Scott Buchan <sbuchan@hush.com>

use strict;
use warnings;
use Template;

use CGI qw/:standard/;
use CGI::Carp 'fatalsToBrowser';
use File::stat;
use IO::Dir;

use Walleye::AdminUtils;


	my $status;
	my $dir;
	my $file;
	my $logdir = get_log_dir();
	my $title = "Clean out Honeywall directories";
	my $msg = "Honeywall directory cleanup successful.";
	my @directories = ("pcap", "snort", "snort_inline", "argus");
	my @files = ("sebekd", "p0f", "iptables");

	my $cmd_stop = "/etc/init.d/hwdaemons log_cleanout_stop";
	$status = system("sudo $cmd_stop");
	error("Could not run process: $cmd_stop $?") unless $status == 0;

	foreach $dir (@directories) {
		my $cmd = "sudo rm -rf $logdir/$dir/*";
		$status = system("$cmd");
		error("Could not run process: $cmd $?") unless $status == 0;
	}

	foreach $file (@files) {
		my $path = "$logdir/$file";
		my $cmd = "sudo rm -f $path";
		$status = system("$cmd");
		error("Could not run process: $cmd $?") unless $status == 0;

		my $cmd2 = "sudo /bin/touch $path";
		$status = system("$cmd2");
		error("Could not run command: $cmd2 $?") unless $status == 0;
	}


	my $cmd_start = "/etc/init.d/hwdaemons log_cleanout_start";
	$status = system("sudo $cmd_start");
	error("Could not run process: $cmd_start $?") unless $status == 0;

	display_admin_msg($title, $msg);