#!/usr/local/bin/perl

use CGI;

$query = new CGI;

print $query->header;
print $query->start_html( -title=>"French Letter", -author=>"mongoose\@yoyo.cc.monash.edu.au" );

%english = ( 'A', "dog", 'B', "buffalo", 'C', "pig", 'D', "frog" );
%french = ( 'A', "un chien", 'B', "un buffle", 'C', "un porc", 'D', "une grenouille" );

%etitle = ( 'A', "Mr.", 'B', "Ms. (girl)", 'C', "Ms. (woman)" );
%ftitle = ( 'A', "Monsieur", 'B', "Mademoiselle", 'C', "Madame" );
%gender2= ( 'A', " ", 'B', "le ", 'C', "le ");
%gender3= ( 'A', "", 'B', "e", 'C', "e");

%english1 = ( 'A', "insincerely", 'B', "indifferently", 'C', "insultingly" );
%french1 = ( 'A', "hypocrites", 'B', "indifferents", 'C', "injurieuses" );

%english2 = ( 'A', "fool", 'B', "clown", 'C', "barbarian", 'D', "frog");
%french2 = ( 'A', "imbecile", 'B', "clown", 'C', "barbare", 'D', "grenouille");

%english3 = ( 'A', "a cat", 'B', "a coward", 'C', "Judas", 'D', "a frog");
%french3 = ( 'A', "'un chat", 'B', "'un lache", 'C', "e Judas", 'D', "'une grenouille");

%english4 = ( 'A', "interesting", 'B', "revolting", 'C', "ambiguous", 'D', "repulsive");
%french4 = ( 'A', "fascine", 'B', "revolte", 'C', "confond", 'D', "repousse");

%english5 = ( 'A', "head", 'B', "nose", 'C', "body", 'D', "neck");
%french5 = ( 'A', "tête", 'B', "nez", 'C', "corps", 'D', "cou");
%gender = ( 'A', "e", 'B', "", 'C', "", 'D', "");

%english6 = ( 'A', "small", 'B', "thin", 'C', "misshapen", 'D', "hairy", 'E', "ugly", 'F', "dirty");
%french6 = ( 'A', "petit", 'B', "etroit", 'C', difformi, 'D', "poilu", 'E', "laid", 'F', "crotte");

%english7 = ( 'A', "eyes", 'B', "hair", 'C', "legs", 'D', "ears");
%french7 = ( 'A', "yeux", 'B', "cheveux", 'C', "jambes", 'D', "oreilles");
%gender1 = ( 'A', "s", 'B', "s", 'C', "es", 'D', "es");

%english9 = ( 'A', "stupid", 'B', "ugly", 'C', "inferior", 'D', "ignorant");
%french9 = ( 'A', "stupid", 'B', "laid", 'C', "inferieur", 'D', "ignorant");

%english10 = ( 'A', "Neanderthals", 'B', "children", 'C', "cretins", 'D', "Americans");
%french10 = ( 'A', "les Neandertaliens", 'B', "les enfants", 'C', "les cretins", 'D', "les americains");

%english11 = ( 'A', "don't speak English", 'B', "are always abused in that language", 'C', "are a buffoon" );
%french11 = ( 'A', "vous ne parlez pas cette langue", 'B', "on vous insulte regulierement dans cette langue", 'C', "vous êtes un bouffon");

%english12 = ( 'A', "Moliere", 'B', "the superior", 'C', "the obnoxious", 'D', "the frog");
%french12 = ( 'A', " Moliere", 'B', " la superiorite", 'C', "s personnages odieux", 'D', " la grenouille");

%english13 = ( 'A', "being paid by you", 'B', "imaginary", 'C', "social outcasts", 'D', "mentally impared", 'E', "sick of you");
%french13 = ( 'A', "des rapaces a votre solde", 'B', "imaginaires",  'C', "des marginaux", 'D', "des defficients mentaux", 'E', "degoutes de vous");

%english14 = ( 'A', "disappear", 'B', "disown them", 'C', "go away", 'D', "try to mate with an alligator");
%french14 = ( 'A', "disparaissiez", 'B', "les reniez", 'C', "vous en alliez", 'D', "tentiez de vous reproduire avec un alligator");

%english15 = ( 'A', "waste of space", 'B', "blight on humanity", 'C', "embarassment", 'D', "tragic figure");
%french15 = ( 'A', "un gaspillage d'espace", 'B', "un affront a l'humanité", 'C', "une gene", 'D', "un personnage tragique");

%english16 = ( 'A', "kill yourself", 'B', "go back to the swamp you came from", 'C', "catch herpes", 'D', "gouge your eyes out");
%french16 = ( 'A', "suicidez-vous", 'B', "retournez dans votre marécage natal", 'C', "attrapez une MTS", 'D', "arrachez vos yeux");

if ($query->param("choice"))
{
  print $ftitle{ $query->param("title") }, " ", $query->param('adressee');
  print ",<p>Mes sentiments pour vous sont inchanges depuis le premier instant ou je vous ai vu et ai pens&eacute; quel", $gender2{ $query->param("title") }, $french2{ $query->param("choice2") };
  print ". Aujourd'hui je comprends que vous ayez l'hygi&egrave;ne d'", $french{ $query->param("choice") }, "\n";
  print " et la loyaut&eacute; d", $french3{ $query->param("choice3") }, ".";
  print "<p>Votre physionomie me ", $french4{ $query->param("choice4") };
  print ". Votre ", $french5{ $query->param("choice5") };
  print " est trop ", $french6{ $query->param("choice6") }, $gender{ $query->param("choice5") };
  print " et vos ", $french7{ $query->param("choice7") };
  print " sont trop ", $french6{ $query->param("choice8") }, $gender1{ $query->param("choice7") };
  print ". Vous &ecirc;tes si ", $french9{ $query->param("choice9") }, $gender3{ $query->param("title") };
  print " que m&ecirc;me ", $french10{ $query->param("choice10") };
  print " se moquent de vous. Vos amis sont tous ", $french13{ $query->param(choice13) };
  print " et souhaiteraient que vous ", $french14{ $query->param(choice14) };
  print ". Rendez-vous donc compte que vous &ecirc;tes ", $french15{ $query->param(choice15) };
  print " et ", $french16{ $query->param(choice16) };
  print " le plus t&ocirc;t sera le mieux.<p>Je savais que vous n'apprecieriez pas une lettre en anglais car ", $french11{ $query->param("choice11") };
  print ". Je vous vous ai donc &eacute;crit en fran&ccedil;ais, la langue de", $french12{ $query->param("choice12") };

  print ".<p>Agr&eacute;ez, ", $ftitle{ $query->param("title") };
  print ", mes salutations ", $french1{ $query->param("choice1") }, ",\n";
  print "<br>", $query->param("adresser");
}
else
{
  # no parameters
  print $query->start_form;
  print "<h1>Write an Obnoxious Letter in French</h1>Use the pop-up menus to create the letter you want.";
  print "<p>Dear\n";
  print $query->popup_menu( -name=>"title",
    -values=>[ 'A', 'B',  'C' ],
    -labels=> \%etitle );
  print " ", $query->textfield('adressee');
  print ", (name of person you are adressing this to)<p>My feeling for you are unchanged since the first time I looked at you and thought what a ";

  print $query->popup_menu( -name=>"choice2",
    -values=>[ 'A', 'B', 'C', 'D' ],
    -labels=> \%english2 );
  print ". Upon getting to know you I realised that you have the hygiene of a ";
  print $query->popup_menu( -name=>"choice",
    -values=>[ 'A', 'B', 'C', 'D' ],
    -labels=> \%english );
  print " and the loyalty of ";
  print $query->popup_menu( -name=>"choice3",
    -values=>[ 'A', 'B', 'C', 'D' ],
    -labels=> \%english3 );
  print ".<p>I find your appearance ";
  print $query->popup_menu( -name=>"choice4",
    -values=>[ 'A', 'B', 'C', 'D' ],
    -labels=> \%english4 );
  print ". Your ";
  print $query->popup_menu( -name=>"choice5",
    -values=>[ 'A', 'B', 'C', 'D' ],
    -labels=> \%english5 );
  print " is too ";
  print $query->popup_menu( -name=>"choice6",
    -values=>[ 'A', 'B', 'C', 'D', 'E', 'F' ],
    -labels=> \%english6 );
  print " and your ";
  print $query->popup_menu( -name=>"choice7",
    -values=>[ 'A', 'B', 'C', 'D' ],
    -labels=> \%english7 );
  print "is/are too ";
  print $query->popup_menu( -name=>"choice8",
    -values=>[ 'F', 'E', 'A', 'B', 'C', 'D' ],
    -labels=> \%english6 );
  print ". You are so ";
  print $query->popup_menu( -name=>"choice9",
    -values=>[ 'A', 'B', 'C', 'D' ],
    -labels=> \%english9 );
  print " that even ";
  print $query->popup_menu( -name=>"choice10",
    -values=>[ 'A', 'B', 'C', 'D' ],
    -labels=> \%english10 );
  print " laugh at you. Your friends are all ";
  print $query->popup_menu( -name=>"choice13",
    -values=>[ 'A', 'B', 'C', 'D', 'E' ],
    -labels=> \%english13 );
  print " and wish you'd ";
  print $query->popup_menu( -name=>"choice14",
    -values=>[ 'A', 'B', 'C', 'D' ],
    -labels=> \%english14 );
  print ". The sooner you realise what a ";
  print $query->popup_menu( -name=>"choice15",
    -values=>[ 'A', 'B', 'C', 'D' ],
    -labels=> \%english15 );
  print " you are and ";
  print $query->popup_menu( -name=>"choice16",
    -values=>[ 'A', 'B', 'C', 'D' ],
    -labels=> \%english16 );
  print " the better.<p>I knew that you would not appreciate a letter in English because you ";
  print $query->popup_menu( -name=>"choice11",
    -values=>[ 'A', 'B', 'C' ],
    -labels=> \%english11 );
  print ". I have therefore decided to write to you in French, the language of ";
  print $query->popup_menu( -name=>"choice12",
    -values=>[ 'A', 'B', 'C', 'D' ],
    -labels=> \%english12 );
  print ".<p>Yours \n";
  print $query->popup_menu( -name=>"choice1",
    -values=>[ 'A', 'B', 'C', ],
    -labels=> \%english1 );
  print ", ", $query->textfield("adresser"), "(your name)";
  print $query->submit( -name=>"Translate into French" );
  print $query->end_form;
}

print $query->end_html;