#!/usr/bin/perl

# fh :)_~
# do with as you wish ...
# Just don't blame me if it teaches your computer to smoke!

use strict;
use warnings;

use File::Basename;

my $Prog   = "cmake -E";
my $RmDir  = "remove_directory";
my $RmFile = "remove -f";
my $Cmd;

sub fexist {
my $str = shift;                     # newMeth REMOVE!
#  for (glob qq("$_[0]")) {          # newMeth ADD!
  for (glob qq("$str")) {
    return 3 if -l;
    return 2 if -d _;
    return 1 if -f _;
  }
  return 0;
}

sub main {

  my $dir = dirname(__FILE__);

  open(FILE, "$dir/clean.list") or die("Unable to open file: $dir/clean.list.");
  my @data = <FILE>;
  close(FILE);

  foreach my $line (@data) {

    next if $line =~ /^$/;  # skip blank lines
    next if $line =~ /:/;   # skip lines with a ':' (colon) in them
    chomp $line;

    next if not my $rval = fexist $line;

    $Cmd = join " ", $Prog, ($rval eq 2) ? $RmDir : $RmFile;

    print "Deleting $line";
    system("$Cmd \"$line\"");
    print " ... Deleted!" unless fexist $line;
    print "\n";
  }
}

main();