#!/usr/bin/perl

($machine, $soundroot, $pattern) = @ARGV;
open(PIPE, "ssh $machine \"find $soundroot -type f | grep '$pattern' \" 2&>1 | ");
while(<PIPE>) {
  chomp;
  s/$soundroot//g;
  push @rawlist, $_;
}
@playlist = sort { $a <> $b || $a cmp $b } @rawlist;
close(PIPE);

foreach $track (@playlist) {
  print "playing $track\n";
  $DoNotExit = 1;
  while($DoNotExit) {
    open(PIPE, "ssh $machine \"cat $soundroot/$track \" | mpg123 - | ") unless <PIPE>;
    undef $DoNotExit unless <PIPE>;
  }
  close(PIPE);
}