#!/usr/bin/perl
$count = 0;
$count_skip = 0;


$hostname = `hostname`;
chomp($hostname);
($servername, $domain, $extension) = (split /\./, $hostname);


system( "ls -lah --full-time ./ > ./zero-erase.txt" );

open( ZERO_LIST,"./zero-erase.txt") || die("Unable to open ZERO_LIST file!\n");

while($line = <ZERO_LIST>) {
	chomp($line);

  if ($servername eq "pluto") {
    (
        $rights,
        $prop,
        $uid,
        $gid,
        $size,
        $day,
        $month,
        $date,
        $time,
        $year,
        $file_name

    ) = split(" ", $line);
  } else {
    (
        # Sat
        $rights,
        $prop,
        $uid,
        $gid,
        $size,
        $date,
        $time,
        $time_zone,
        $file_name
    ) = split(" ", $line);

  }


# Remove User Files w/0 size

next if $file_name eq " ";
next if $file_name eq "";
next if $file_name eq "..";
next if $file_name eq ".";

$count_skip++ if $size != "0";
next if $size != "0";
next if $file_name eq "zero-erase.txt";

$count++;
#print   "rm -rf " . $file_name . "\t\t" . $size ."\n";

print   "rm -rf " . $file_name ."\n";
system( "rm -rf " . $file_name ."\n");

}


$total = $count_skip + $count;
print "\n\nTotal Removed: " . $count . "\n";
print "Total Skipped: " . $count_skip . "\n";
print "------------------\n";
print "  Total Files: " . $total . "\n";

close (ZERO_LIST);
system("rm -rf ./zero-erase.txt");


exit;