#!/usr/bin/perl
#H# Playes a random file using xplay kind of like rxplay but then asks if you
#H# want to keep the file or not.  If you say no the file is deleted.
#H# I wrote this to help filter my downloads dir.

# print out help info if requested
if ($ARGV[0] ne "") {
  open (SELF, $0);
  while (<SELF>) {
    if ($_ =~ /^#H# /) {
      $_ =~ s/^#H# //;
      print $_;
    }
  }
  exit;
}

@Files=();
open (FILELIST, "/bin/ls -S |");
while (<FILELIST>) {
  push (@Files, $_);
}
close (FILELIST);

$NumFiles=$#Files;
$NumFiles++;

foreach $File (@Files) {
  chomp $File;
  print "Playing $File...\n";
  system (qq[xtermcontrol --title="Playing $File with $NumFiles left"]);
  $Answer="need a real answer";
  while ($Answer ne "done") {
    system (qq[vplay "$File"]);
    print "That was $File...\n";
    $FileInfo=`ls -l "$File"`;
    print "Do you want to keep this file? (y/n): ";
    $Answer=<>;
    chomp $Answer;
    if ($Answer eq "n") {
      system (qq[rm -fv "$File"]);
      $Answer="done";
    }
    if ($Answer eq "y") {
      $Answer="done";
    }
  }
  $NumFiles=$NumFiles-1;
}
system ("xtf");