[fathernitwit]

you should be able to do this entirely in perl...
the best way I can say to do it is this..
make a directory on your server named 'locales' somewhere, let the path be /home/eqemu/locales. Make it writeable by the user running eqemu.

use a perl command like (check this syntax, im winging it):

sub commands_init() {
  command_add("locale", "Set your locale", 0);
}

sub locale {
  my $loc = shift;
  if($loc eq "") {
    $client->Message(13, "You must specify a locale: en or fr");
    return;
  }
  my $name = $client->GetName();
  open(F, ">/home/eqemu/locales/$name");
  print F "$loc";
  close(F);
}

then make a plugin:

sub get_locale {
  my $name = shift;
  open(F, "</home/eqemu/locales/$name");
  my $loc = <F>;
  close(F);
  return($loc);
}

then you can write a quest like:

sub EVENT_SAY {
  my $locale = plugin::get_locale($name);
  if($locale eq 'en') {
    #....
  } else {#.....
  }
}

}
[/code]