#!/usr/bin/perl -w

my $LANG;
my $in_dest = 0;
my $line_clean;
my $dest_name;
my $dest_str;
my $dest_trans;

open (LANG, "$ARGV[0]") || die "couldn't open the file!";

while ($line = <LANG>)
{
    # remove trailing whitespace/newlines
    $line =~ s/\s+$//;

    # remove whitespace
    $line_clean = $line;
    $line_clean =~ s/^\s+//;

    if ($line_clean eq "</dest>")
    {
        $in_dest = 0;
    }

    if ($in_dest == 1)
    {
        ($dest_name, $dest_str) = split(/:/, $line, 2);
        $dest_str =~ s/^\s+//;
        $dest_str =~ s/"//g;

#        print "In Dest: \n";
        print "$dest_name: ";
        print "\"";
#        print "$dest_str";
        $dest_trans = `echo "$dest_str" | $ARGV[1]`;
        $dest_trans =~ s/\s+$//;
        $dest_trans =~ s/\n/ /g;

	print "$dest_trans";
        print "\"\n";
    } else {
        print "$line\n";
    }

    if ($line_clean eq "<dest>")
    {
        $in_dest = 1;
    }
}

close(LANG);