#!/usr/bin/perl
#
# blastcleanup.pl
# Removes temporary & output files used by the blast server.
#
#################################################################
use strict;

my $deltype = shift @ARGV or '';

my @directories = (
"blastout",
"blasttmp",
"blastdump",
#'test'
);

foreach my $dir (@directories) {
	print "Current Directory: $dir\n";
	#chdir "$dir" or die "Can't change directories";
	my $files = `ls -1f $dir`;
	my @filelist = split /\n/,$files;
	foreach my $filename (@filelist)    {
		next if $filename =~ /^\./;
		my $file = join('/',$dir,$filename);
		if (-M $file > .5)	{
			print "Older file: $file (",-M $file,")\n";
			removeFile($file) unless $deltype eq 'none';
		}
		else {
			print "Newer file: $file (",-M $file,")\n";
			removeFile($file) if $deltype eq 'all';
		}
	}
}

sub removeFile {
	my $file = shift;
	print "\tDelete $file\n";
	`rm -f $file`;
	
}
