I'm working on a really fun mini-project. Right now breaks in the warehouse at work are signaled by a .wav of a train piped over the PA system. The workers have been bitching about that train, and I decided to do something different. I spent a couple of hours yesterday collecting a few dozen .wav files and storing them on one of the web servers. I've written a hideously simple script to just choose one at random and pipe it out.

What I need, though, is to be able to output in mp3 format. The machine connected to the PA is a Windows box, and the sndrec32 program has no idea what a URL is. I wouldn't mind doing it with Winamp, but Winamp wants mp3s from its URLs. So far, I haven't been able to find a module or script that will easily encode mp3s on the fly, either here or on CPAN. Has anyone come across something that'll work?

Here's the script I hacked up (Yes, I actually get paid to do this!):

#!/usr/bin/perl -w
use strict;

open LS, "/bin/ls wav/*.wav |";
@::wavs = <LS>;
close LS;

local $::wav = $::wavs[rand $#::wavs];

spew_wav();
#spew_mp3();
#redir_wav();

sub spew_wav {
    print "Content-type: audio/x-wav \n\n";
    open WAV,"/bin/cat $::wav |";
    print while <WAV>;
    close WAV;
}
sub spew_mp3 {
    print "Content-type: audio/mpeg \n\n";
    open WAV,"/usr/local/bin/bladeenc $::wav |";
    print while <WAV>;
    close WAV;
}
sub redir_wav {
    print "Location: $::wav \n\n";
}
[download]