webcit/gettext.c

   1 /*
   2  * $Id$
   3  */
   4
   5 #include "webcit.h"
   6 #include "webserver.h"
   7
   8 #ifdef ENABLE_NLS
   9 /* actual supported locales */
  10 const char *AvailLang[NUM_LANGS] = {
  11         "C",
  12         "en_US",
  13         "de_DE",
  14         "it_IT",
  15         "es_ES",
  16         "en_GB",
  17         "da_DK",
  18         "fr_FR",
  19         "nl_NL",
  20         "pt_BR"
  21         "hu_HU"
  22 };
  23
  24 const char *AvailLangLoaded[NUM_LANGS];
  25 long nLocalesLoaded = 0;
  26
  27 #ifdef HAVE_USELOCALE
  28 locale_t wc_locales[NUM_LANGS]; /**< here we keep the parsed stuff */
  29 #endif
  30
  31 /** Keep information about one locale */
  32 typedef struct _lang_pref{
  33         char lang[16];          /**< the language locale string */
  34         char region[16];        /**< the region locale string */
  35         long priority;          /**< which priority does it have */
  36         int availability;       /**< do we know it? */
  37         int selectedlang;       /**< is this the selected language? */
  38 } LangStruct;
  39
  40 /* \brief parse browser locale header
  41  * seems as most browsers just do a one after coma value even if more than 10 locales are available. Sample strings:
  42  * opera:
  43  * Accept-Language: sq;q=1.0,de;q=0.9,as;q=0.8,ar;q=0.7,bn;q=0.6,zh-cn;q=0.5,kn;q=0.4,ch;q=0.3,fo;q=0.2,gn;q=0.1,ce;q=0.1,ie;q=0.1
  44  * Firefox
  45  * Accept-Language: 'de-de,en-us;q=0.7,en;q=0.3'
  46  * Accept-Language: de,en-ph;q=0.8,en-us;q=0.5,de-at;q=0.3
  47  * Accept-Language: de,en-us;q=0.9,it;q=0.9,de-de;q=0.8,en-ph;q=0.7,de-at;q=0.7,zh-cn;q=0.6,cy;q=0.5,ar-om;q=0.5,en-tt;q=0.4,xh;q=0.3,nl-be;q=0.3,cs;q=0.2,sv;q=0.1,tk;q=0.1
  48  * \param LocaleString the string from the browser http headers
  49  */
  50
  51 void httplang_to_locale(StrBuf *LocaleString, wcsession *sess)
  52 {
  53         LangStruct wanted_locales[SEARCH_LANG];
  54         LangStruct *ls;
  55
  56         int i = 0;
  57         int j = 0;
  58         /* size_t len = strlen(LocaleString); */
  59         long prio;
  60         int av;
  61         int nBest;
  62         int nParts;
  63         StrBuf *Buf = NULL;
  64         StrBuf *SBuf = NULL;
  65
  66         nParts=StrBufNum_tokens(LocaleString,',');
  67         for (i=0; ((i<nParts)&&(i<SEARCH_LANG)); i++)
  68         {
  69                 char lbuf[16];
  70                 int blen;
  71
  72                 if (Buf == NULL) {
  73                         Buf = NewStrBuf();
  74                         SBuf = NewStrBuf();
  75                 }
  76                 else {
  77                         FlushStrBuf(Buf);
  78                         FlushStrBuf(SBuf);
  79                 }
  80
  81                 ls=&wanted_locales[i];
  82
  83                 StrBufExtract_token(Buf,LocaleString, i,',');
  84                 /** we are searching, if this list item has something like ;q=n*/
  85                 if (StrBufNum_tokens(Buf,'=')>1) {
  86                         int sbuflen, k;
  87                         StrBufExtract_token(SBuf,Buf, 1,'=');
  88                         sbuflen=StrLength(SBuf);
  89                         for (k=0; k<sbuflen; k++)
  90                                 if (ChrPtr(SBuf)[k]=='.')
  91                                         StrBufPeek(SBuf, NULL, k, '0');
  92                         ls->priority=StrTol(SBuf);
  93                 }
  94                 else {
  95                         ls->priority=1000;
  96                 }
  97                 /** get the locale part */
  98                 StrBufExtract_token(SBuf ,Buf, 0, ';');
  99                 /** get the lang part, which should be allways there */
 100                 extract_token(&ls->lang[0], ChrPtr(SBuf), 0, '-', 16);
 101                 /** get the area code if any. */
 102                 if (StrBufNum_tokens(SBuf,'-') > 1) {
 103                         extract_token(&ls->region[0],ChrPtr(SBuf),1,'-',16);
 104                 }
 105                 else { /** no ara code? use lang code */
 106                         blen=strlen(&ls->lang[0]);
 107                         memcpy(&ls->region[0], ls->lang,blen);
 108                         ls->region[blen]='\0';
 109                 } /** area codes are uppercase */
 110                 blen=strlen(&ls->region[0]);
 111                 for (j=0; j<blen; j++)
 112                 {
 113                         int chars=toupper(ls->region[j]);
 114                         ls->region[j]=(char)chars;/** \todo ?! */
 115                 }
 116                 sprintf(&lbuf[0],"%s_%s",&ls->lang[0],&ls->region[0]);
 117
 118                 /** check if we have this lang */
 119                 ls->availability=1;
 120                 ls->selectedlang=-1;
 121                 for (j=0; j<nLocalesLoaded; j++) {
 122                         int result;
 123                         /** match against the LANG part */
 124                         result=strcasecmp(&ls->lang[0], AvailLangLoaded[j]);
 125                         if ((result<0)&&(result<ls->availability)){
 126                                 ls->availability=result;
 127                                 ls->selectedlang=j;
 128                         }
 129                         /** match against lang and locale */
 130                         if (0==strcasecmp(&lbuf[0], AvailLangLoaded[j])){
 131                                 ls->availability=0;
 132                                 ls->selectedlang=j;
 133                                 j=nLocalesLoaded;
 134                         }
 135                 }
 136         }
 137
 138         prio=0;
 139         av=-1000;
 140         nBest=-1;
 141         for (i=0; ((i<nParts)&&(i<SEARCH_LANG)); i++) {
 142                 ls=&wanted_locales[i];
 143                 if ((ls->availability<=0)&&
 144                    (av<ls->availability)&&
 145                    (prio<ls->priority)&&
 146                    (ls->selectedlang!=-1)) {
 147                         nBest=ls->selectedlang;
 148                         av=ls->availability;
 149                         prio=ls->priority;
 150                 }
 151         }
 152         if (nBest == -1) {
 153                 /** fall back to C */
 154                 nBest=0;
 155         }
 156         sess->selected_language=nBest;
 157         lprintf(9, "language found: %s\n", AvailLangLoaded[WC->selected_language]);
 158         FreeStrBuf(&Buf);
 159         FreeStrBuf(&SBuf);
 160 }
 161
 162 /**
 163  * \brief show the language chooser on the login dialog
 164  * depending on the browser locale change the sequence of the
 165  * language chooser.
 166  */
 167 void tmplput_offer_languages(StrBuf *Target, WCTemplputParams *TP)
 168 {
 169         int i;
 170 #ifndef HAVE_USELOCALE
 171         char *Lang = getenv("LANG");
 172
 173         if (Lang == NULL)
 174                 Lang = "C";
 175 #endif
 176
 177
 178         if (nLocalesLoaded == 1) {
 179                 wprintf("<p>%s</p>", AvailLangLoaded[0]);
 180                 return;
 181         }
 182
 183         wprintf("<select name=\"language\" id=\"lname\" size=\"1\">\n");
 184
 185         for (i=0; i < nLocalesLoaded; ++i) {
 186 #ifndef HAVE_USELOCALE
 187                 if (strcmp(AvailLangLoaded[i], Lang) == 0)
 188 #endif
 189                 wprintf("<option %s value=%s>%s</option>\n",
 190                         ((WC->selected_language == i) ? "selected" : ""),
 191                         AvailLangLoaded[i],
 192                         AvailLangLoaded[i]
 193                 );
 194         }
 195
 196         wprintf("</select>\n");
 197 }
 198
 199 /**
 200  * \brief Set the selected language for this session.
 201  * \param lang the locale to set.
 202  */
 203 void set_selected_language(const char *lang) {
 204 #ifdef HAVE_USELOCALE
 205         int i;
 206         for (i=0; i<nLocalesLoaded; ++i) {
 207                 if (!strcasecmp(lang, AvailLangLoaded[i])) {
 208                         WC->selected_language = i;
 209                 }
 210         }
 211 #endif
 212 }
 213
 214 /**
 215  * \brief Activate the selected language for this session.
 216  */
 217 void go_selected_language(void) {
 218 #ifdef HAVE_USELOCALE
 219         wcsession *WCC = WC;
 220         if (WCC->selected_language < 0) return;
 221         uselocale(wc_locales[WCC->selected_language]);  /** switch locales */
 222         textdomain(textdomain(NULL));                   /** clear the cache */
 223 #else
 224         char *language;
 225
 226         language = getenv("LANG");
 227         setlocale(LC_MESSAGES, language);
 228 #endif
 229 }
 230
 231 /**
 232  * \brief Deactivate the selected language for this session.
 233  */
 234 void stop_selected_language(void) {
 235 #ifdef HAVE_USELOCALE
 236         uselocale(LC_GLOBAL_LOCALE);                    /** switch locales */
 237         textdomain(textdomain(NULL));                   /** clear the cache */
 238 #endif
 239 }
 240
 241 #ifdef HAVE_USELOCALE
 242         locale_t Empty_Locale;
 243 #endif
 244
 245 /**
 246  * \brief Create a locale_t for each available language
 247  */
 248 void initialize_locales(void) {
 249         int i;
 250         char buf[32];
 251         char *language = NULL;
 252
 253         language = getenv("WEBCIT_LANG");
 254         if ((language) && (!IsEmptyStr(language)) && (strcmp(language, "UNLIMITED") != 0)) {
 255                 lprintf(9, "Nailing locale to %s\n", language);
 256         }
 257         else language = NULL;
 258
 259 #ifdef HAVE_USELOCALE
 260         /* create default locale */
 261         Empty_Locale = newlocale(LC_ALL_MASK, NULL, NULL);
 262 #endif
 263
 264
 265
 266
 267         for (i = 0; i < NUM_LANGS; ++i) {
 268                 if ((language != NULL) && (strcmp(AvailLang[i], language) != 0))
 269                         continue;
 270                 if (i == 0) {
 271                         sprintf(buf, "%s", AvailLang[i]);       /* locale 0 (C) is ascii, not utf-8 */
 272                 }
 273                 else {
 274                         sprintf(buf, "%s.UTF8", AvailLang[i]);
 275                 }
 276 #ifdef HAVE_USELOCALE
 277                 wc_locales[nLocalesLoaded] = newlocale(
 278                         (LC_MESSAGES_MASK|LC_TIME_MASK),
 279                         buf,
 280                         (((i > 0) && (wc_locales[0] != NULL)) ? wc_locales[0] : Empty_Locale)
 281                 );
 282                 if (wc_locales[nLocalesLoaded] == NULL) {
 283                         lprintf(1, "Error configuring locale for %s: %s\n",
 284                                 buf,
 285                                 strerror(errno)
 286                         );
 287                 }
 288                 else {
 289                         lprintf(3, "Configured available locale: %s\n", buf);
 290                         AvailLangLoaded[nLocalesLoaded] = AvailLang[i];
 291                         nLocalesLoaded++;
 292                 }
 293 #else
 294                 if (language != NULL) {
 295                         setenv("LANG", buf, 1);
 296                         AvailLangLoaded[nLocalesLoaded] = AvailLang[i];
 297                         nLocalesLoaded++;
 298                 }
 299                 else if (nLocalesLoaded == 0) {
 300                         setenv("LANG", buf, 1);
 301                         AvailLangLoaded[nLocalesLoaded] = AvailLang[i];
 302                         nLocalesLoaded++;
 303                 }
 304 #endif
 305         }
 306         if ((language != NULL) && (nLocalesLoaded == 0)) {
 307                 lprintf(1, "Your selected locale [%s] isn't available on your system. falling back to C\n", language);
 308 #ifdef HAVE_USELOCALE
 309                 wc_locales[0] = newlocale(
 310                         (LC_MESSAGES_MASK|LC_TIME_MASK),
 311                         AvailLang[0],
 312                         Empty_Locale);
 313 #else
 314                 setlocale(LC_MESSAGES, AvailLang[0]);
 315                 setenv("LANG", AvailLang[0], 1);
 316 #endif
 317                 AvailLangLoaded[0] = AvailLang[0];
 318                 nLocalesLoaded = 1;
 319         }
 320 #ifndef HAVE_USELOCALE
 321
 322
 323 #endif
 324
 325 }
 326
 327
 328 void ShutdownLocale(void)
 329 {
 330 #ifdef HAVE_USELOCALE
 331         int i;
 332         for (i = 0; i < nLocalesLoaded; ++i) {
 333                 if (Empty_Locale != wc_locales[i])
 334                         freelocale(wc_locales[i]);
 335         }
 336 #endif
 337 }
 338
 339 #else   /* ENABLE_NLS */
 340 const char *AvailLang[NUM_LANGS] = {
 341         "C"};
 342
 343 /** \brief dummy for non NLS enabled systems */
 344 void tmplput_offer_languages(StrBuf *Target, WCTemplputParams *TP)
 345 {
 346         wprintf("English (US)");
 347 }
 348
 349 /** \brief dummy for non NLS enabled systems */
 350 void set_selected_language(char *lang) {
 351 }
 352
 353 /** \brief dummy for non NLS enabled systems */
 354 void go_selected_language(void) {
 355 }
 356
 357 /** \brief dummy for non NLS enabled systems */
 358 void stop_selected_language(void) {
 359 }
 360
 361 #endif  /* ENABLE_NLS */
 362
 363
 364 void TmplGettext(StrBuf *Target, WCTemplputParams *TP)
 365 {
 366         StrBufAppendBufPlain(Target, _(TP->Tokens->Params[0]->Start), -1, 0);
 367 }
 368
 369
 370 /*
 371  * Returns the language currently in use.
 372  * This function returns a static string, so don't do anything stupid please.
 373  */
 374 const char *get_selected_language(void) {
 375 #ifdef ENABLE_NLS
 376 #ifdef HAVE_USELOCALE
 377         return AvailLang[WC->selected_language];
 378 #else
 379         return "en";
 380 #endif
 381 #else
 382         return "en";
 383 #endif
 384 }
 385
 386 void
 387 InitModule_GETTEXT
 388 (void)
 389 {
 390         RegisterNamespace("LANG:SELECT", 0, 0, tmplput_offer_languages, CTX_NONE);
 391 }
 392
 393
 394 void
 395 SessionNewModule_GETTEXT
 396 (wcsession *sess)
 397 {
 398 #ifdef ENABLE_NLS
 399         OneHttpHeader *vLine = NULL;
 400
 401         if (    (sess->Hdr->HTTPHeaders != NULL)
 402                 && GetHash(sess->Hdr->HTTPHeaders, HKEY("ACCEPT-LANGUAGE"), (void *)&vLine)
 403                 && (vLine != NULL)
 404                 && (vLine->Val != NULL)
 405         ) {
 406                 StrBuf *accept_language = vLine->Val;
 407                 httplang_to_locale(accept_language, sess);
 408         }
 409 #endif
 410 }
 411
 412 void
 413 SessionAttachModule_GETTEXT
 414 (wcsession *sess)
 415 {
 416 #ifdef ENABLE_NLS
 417         go_selected_language();                                 /* set locale */
 418 #endif
 419 }
 420
 421 void
 422 SessionDestroyModule_GETTEXT
 423 (wcsession *sess)
 424 {
 425 #ifdef ENABLE_NLS
 426         stop_selected_language();                               /* unset locale */
 427 #endif
 428 }