#!/usr/bin/perl -w

$padlen=7;
$oggenc='oggenc -q -1';

$bMode=0;   # 0: looking for quote, 1: found quote number
$quotenumber =0;
$quote ="";
while(<>) {
    if($bMode==0) {
        if(/Quote number (\d+):/){
            $quotenumber = $1;
            $bMode=1;
        }
    } elsif($bMode==1) {
        if(/^$/) {
#            $qn=$quotenumber;
            $quotenumber = sprintf("%0${padlen}d", $quotenumber);
#            print "QUOTE: $quotenumber\n";
#            print "Quote number $qn:\n";
#            print $quote;
#            print "\n";
#$x++;
            $exe="|text2wave|$oggenc -t \"Quote $quotenumber\" -a \"bash.org\" -o \"bash-$quotenumber.ogg\" -";
#            $exe="|text2wave -o $x.wav"; 
            open RECORD, $exe;
#            print RECORD "Quote number $qn:\n";
            print RECORD $quote;
            close RECORD;

            $file = "bash-$quotenumber.ogg";
            if(system "scp $file hume:/home/share/audio/bash/oggs/") {
                # Error
            } else {
                unlink $file;
            }

            $bMode=0;
            $quote = "";
        } else {
            $quote = $quote . $_;
        }
    }
}