#! /usr/bin/perl -w

# Copyright (c) 2005 Tudor Hulubei.
# Distributed under the GNU GPL.

use strict;
use Getopt::Long;

$| = 1;

my $g_program = `basename "${0}"`;
chop $g_program;
my $g_help;
my $g_version;
my $g_quiet;
my $g_no_conversion;
my $g_info_site="http://m-w.com/cgi-bin/dictionary?book=Dictionary&x=0&y=0&va=";
my $g_data_site = "http://cougar.eb.com/sound";
my $g_repository = "$ENV{HOME}/downloads/English";
my $g_tmp = "$ENV{TMPDIR}/tmp-$$.html";

chdir("${g_repository}");

GetOptions("help" =>\${g_help},
           "version" => \${g_version},
           "quiet" => \${g_quiet},
           "no-conversion" => \${g_no_conversion}) or die;

!${g_help} or (print "usage: $g_program [options] words
    --help             print this help message
    --version          print the version of this program
    --quiet            download file but don't play the sound
    --no-conversion    don't convert WAV files to MP3
" and exit(0));

!${g_version} or (print "Pronounce version 0.3
Copyright (c) 2005 Tudor Hulubei.
All rights reserved.\n" and exit(0));

for my $word (@ARGV)
{
    # Check that the word only contains letters.
    if (${word} !~ /^[a-zA-Z]+$/)
    {
        printf "${g_program}: word '${word}' not made up of letters only\n";
        next;
    }

    $word = lc("${word}");
    my $x = substr("${word}", 0, 1);
    my $file;

    if (-f "${x}/${word}.mp3" or -f "${x}/${word}.wav")
    {
        if (! ${g_quiet})
        {
            printf "${g_program}: Pronouncing word '${word}'...";
            my $sound = (-s "${x}/${word}.mp3") ? "${x}/${word}.mp3" : "${x}/${word}.wav";
            `mplayer ${sound} >/dev/null 2>&1`;
            printf " done\n";
        }
        next;
    }

    printf "${g_program}: Downloading info for word '${word}'...";
    system("wget", "${g_info_site}${word}", "-O", "${g_tmp}", "-q");
    if (-s "${g_tmp}") { printf " done\n"; } else { printf " networking error\n"; }

    my $count = 0;
    local *FD;
    open(FD, "<${g_tmp}") or die "open";
    while (defined(my $line = <FD>))
    {
        while ($line =~ /audio\.pl/ && $line =~ /.wav/)
        {
            $count++;
            $line =~ s/\/cgi-bin\/audio.pl\?(.*?)=(.*?)'\)//;
            $file = "${1}";
            $word = "${2}";
	    $x = substr("${word}", 0, 1);
	    mkdir("${x}", 0755);

            if (! -f "${x}/${word}.wav" and ! -f "${x}/${word}.mp3")
            {
		my $first = substr("${file}", 0, 1);
                printf "${g_program}: Downloading WAV file for word '${word}'...";
                my $url = "${g_data_site}/${first}/${file}";
                system("wget", "${url}", "-O", "${x}/${word}.wav", "-q");
                if (-s "${x}/${word}.wav") { printf " done\n"; }
                else
		{
		    system("rm", "-f", "${x}/${word}.wav");
		    printf " error\n";
		}
            }

            if (!${g_no_conversion})
            {
                if (! -f "${x}/${word}.mp3")
                {
                    printf "${g_program}: Converting WAV file for word '${word}' to MP3...";
                    `lame --preset voice ${x}/${word}.wav ${x}/${word}.mp3 >/dev/null 2>&1`;
                    printf " done\n";
                }
            }

            if (! ${g_quiet})
            {
                printf "${g_program}: Pronouncing word '${word}'...";
                my $sound = (-s "${x}/${word}.mp3") ? "${x}/${word}.mp3" : "${x}/${word}.wav";
                `mplayer ${sound} >/dev/null 2>&1`;
                printf " done\n";
            }

            system("rm", "-f", "${x}/${word}.wav") unless ${g_no_conversion};
        }
    }

    if ($count == 0)
    {
        printf "${g_program}: No sound file found for '${word}'\n";
    }

    system("rm", "-f", "${g_tmp}");
}