#!/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 "") {
  if ($ARGV[0] ne "-r") {
    open (SELF, $0);
    while (<SELF>) {
      if ($_ =~ /^#H# /) {
        $_ =~ s/^#H# //;
        print $_;
      }
    }
    exit;
  }
}

if ($ENV{DISPLAY} eq ":0.1") {
  $Player="tplay"
} else {
  $Player="oplay";
}

@Files=();
if ($ARGV[0] eq "-r") {
  open (FILELIST, "/bin/ls -Sr |");
} else {
  open (FILELIST, "/bin/ls -S |");
}

while (<FILELIST>) {
  $FileName=$_;
  chomp ($FileName);
  if ($FileName !~ /.part/) {
    if ($FileName !~ /.md5/) {
      if ($FileName !~ /.torrent/) {
        if ( -f "$FileName") {
          push (@Files, $FileName);
	}
      }
    }
  }
}
close (FILELIST);

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

foreach $File (@Files) {
  print "Playing $File...\n";
  #system (qq[xtermcontrol --title="Playing $File with $NumFiles left"]);
  $Answer="need a real answer";
  while ($Answer ne "done") {
    system (qq[$Player "$File" > /dev/null]);
    print "That was $File ($NumFiles left)...\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");