#!/usr/bin/perl
# Copyright (c) 2002 by Salvador Eduardo Tropea
# Covered by the GPL license
#
# Genera los dos Ogg (~27 kb/s y ~61 kb/s) a partir del WAV (44.1 KHz, 16
# bits con signo, mono)
# El primer argumento es el .wav
# El segundo argumento es el comentario en el Ogg
$nombre=$ARGV[0];
$coment=$ARGV[1];

$chico="sox $nombre.wav -t wav -r 11025 - | oggenc -o $nombre-27kb.ogg -t \"GNU/Linux: Experiencia y situacion del Software Libre en el Mercosur\" -c \"$coment\" -";
$grande="oggenc -o $nombre-61kb.ogg -t \"GNU/Linux: Experiencia y situacion del Software Libre en el Mercosur\" -c \"$coment\" $nombre.wav";

print "Corriendo $chico\n";
system($chico);
print "Corriendo $grande\n";
system($grande);