#!/usr/bin/perl -w
use strict;
#
# Version 1.1
#
# Selects a number of songs and backgrounds xmms
# with those songs in your playlist.
#

# User definable stuff.
my $my_mp3_dir="/mnt/share/mp3s";
my $number_of_songs="25";
my $my_mp3_player="/usr/bin/xmms";

# @mp3=`find /mnt/share/mp3s -name *.mp3`;for (1..25) {print $mp3[int(rand()*@mp3)];}
my $my_songlist="";
my @list_of_files=`find $my_mp3_dir -name *.mp3`;
for (1..$number_of_songs) {
        my $song_number=int(rand()*@list_of_files);
	chomp($list_of_files[$song_number]);
	$_ = $list_of_files[$song_number];
	#filters to handle filenames that include --->   ( ) ! ' & <space>
	s/\(/\\\(/g;s/\)/\\\)/g;s/!/\\!/g;s/'/\\'/g;s/\&/\\\&/g;s/ /\\ /g;
        $my_songlist .= $_;
        $my_songlist .= " ";
}
exec "$my_mp3_player $my_songlist &";