Added SWAT i18n feature:

  TO enable configure with --with-i18n-swat
  to support this gettext is integrated
  and a new directories name "po" and "intl" are created.

  now these languages are supported:

  en - English (default)
  ja - Japanese
  po - Polish
  tr - Turkish

  To add your language,
  to create ${your_language}.po by translating source/po/en.po
  into your language is needed.

  some of html and image files of various language version are not
  included yet, though message catalogue files are installed.
  you need to copy files manually under
  ${swatdir}/lang/$ln/{help,images,included,using_samba}


And also added a option to intall manual pages:
of various lang version
  To enable configure with --with-manlangs
  but manual pages themself are not included yet.
(This used to be commit 486b79a6fc4ba20a751aab544bd0f7ccff2b3d19)

1 files changed, 378 insertions, 0 deletions

diff --git a/source3/web/neg_lang.c b/source3/web/neg_lang.c
new file mode 100644
index 0000000000..8cb41a34ec
--- /dev/null
+++ b/source3/web/neg_lang.c
@@ -0,0 +1,378 @@
+/*
+   Unix SMB/Netbios implementation.
+   Version 1.9.
+   Samba Web Administration Tool
+   
+   This program is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 2 of the License, or
+   (at your option) any later version.
+   
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+   
+   You should have received a copy of the GNU General Public License
+   along with this program; if not, write to the Free Software
+   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+   Created by Ryo Kawahara <rkawa@lbe.co.jp> 
+*/
+
+#include "includes.h"
+/* #include "config.h" */
+#include "webintl.h"
+
+#if I18N_SWAT
+/* constants. */
+/* it is ok to make them bigger.*/
+#define LN_PREFLANG_MAX 10
+#define LN_LNAME_LENGTH 8+1+8
+
+#define LN_DEFAULT_LANG I18N_DEFAULT_LANG
+#define LN_LANGDESC_DEFAULT -1
+#define LN_NO_AVAILABLE_LANG -1
+
+/* ******************************************************************
+ * macros for debugging.
+ ***************************************************************** */
+#ifdef LN_R_NODEBUG
+
+#else
+/*
+ *#define LN_DEBUG_LOG "/tmp/lndebug.log"
+ *void ln_debug_error(const char *info, int nLine)
+ *{
+ *	FILE* fp;
+ *	fp = sys_fopen(LN_DEBUG_LOG, "a");
+ *	fprintf(fp, "%s at %d.\n", info, nLine);
+ *	fclose(fp);
+ *}
+ *void rassert_help(BOOL b, int l)
+ *{
+ *	if(!b)
+ *	{
+ *		ln_debug_error("language negotiation error.", l);
+ *		exit(1);
+ *	}
+ *}
+ */
+#endif /* LN_R_NODEBUG */
+
+/* ****************************************************************
+ LNNegotiator struct. It contains...
+ [aPrefLang]
+  the array of strings. each string is the name of
+  languages ("ja", "ko"...), given by web browser.
+ [nPrefLang]
+  the number of the languages in aPrefLang.
+ [lOriginalLang]
+  == "en": indicates what language the  default(original) files
+  are written with.
+**************************************************************** */
+typedef char lnstring[LN_LNAME_LENGTH + 1];
+#define lnstrcpy(d,s) safe_strcpy((d),(s),sizeof(lnstring)-1)
+
+typedef struct tagLNNegotiator
+{
+	lnstring aPrefLang[LN_PREFLANG_MAX];
+	int nPrefLang;
+	lnstring lOriginalLang;
+}LNNegotiator;
+
+/* **************************************************************
+ * some access functions & macros for LNNegotiator struct.
+ * ************************************************************ */
+#define ln_getPreflangCount(pLn) ((pLn)->nPrefLang)
+#define ln_getOriginalLang(pLn) ((pLn)->lOriginalLang)
+#define ln_getDefaultPrefLang(pLn) ((pLn)->lDefaultPrefLang)
+
+/* make it inline-expanded (or macro) to get better performance */
+static const char* ln_getPreflang(LNNegotiator* pLn, int i)
+{
+	rassert(i == LN_LANGDESC_DEFAULT
+	       || (0 <= i && i < ln_getPreflangCount(pLn)));
+
+	if(i == LN_LANGDESC_DEFAULT)
+		return NULL;
+	if(0 <= i && i < ln_getPreflangCount(pLn))
+		return pLn->aPrefLang[i];
+	return NULL;
+}
+/* initialize structures */
+static void ln_resetln(LNNegotiator* pLn)
+{
+	pLn->nPrefLang = 0;
+	/* using fixed memory.*/
+}
+static BOOL ln_addPreflang(LNNegotiator* pLn, const char* pLang)
+{
+	int nPref = ln_getPreflangCount(pLn);
+
+	if(nPref >= LN_PREFLANG_MAX)
+		return False;
+
+	lnstrcpy(pLn->aPrefLang[nPref], pLang);
+	(pLn->nPrefLang)++;
+	return True;
+}
+static void ln_initln_help(LNNegotiator* pLn)
+{
+	ln_resetln(pLn);
+	lnstrcpy(pLn->lOriginalLang, I18N_ORIGINAL_LANG);
+	/* I18N_ORIGINAL_LANG = "en" is hardcoded in
+	   webintl.h. */
+	if (I18N_DEFAULT_PREF_LANG[0] != '\0')
+	      ln_addPreflang(pLn, I18N_DEFAULT_PREF_LANG);
+
+	/* this entry is used only when web browser didn't send
+	   ACCEPT-LANGUAGE header. */
+}
+/* ****************************************************************
+ * store acceptable languages into LNNegotiator object.
+ * [pstrLangarray] The arguments of "accept-language" http header, 
+ * which is like "en-GB, es;q=0.5, ja". "q=0.5" is called quality value,
+ * but it is ignored now. wiled card "*" is also ignored. 
+ ***************************************************************** */
+static BOOL ln_negotiate_language_help( LNNegotiator* pLn, const char* pstrLangarray )
+{
+	char* pToken;
+	const char* pDelim = " \n\r\t,;";
+	pstring strBuffer;
+
+	rassert(pstrLangarray);
+	rassert(pLn);
+
+	ln_resetln(pLn);
+	pstrcpy(strBuffer, pstrLangarray);
+	pToken = strtok(strBuffer, pDelim);
+	while(pToken != NULL)
+	{
+		if(strncmp(pToken, "q=", strlen("q=")) == 0)
+		{
+			pToken = strtok(NULL, pDelim);
+			continue;
+		}
+		if(!ln_addPreflang(pLn, pToken))
+			break;
+		pToken = strtok(NULL, pDelim);
+	}
+	rassert(ln_getPreflangCount(pLn) != 0);
+	return (ln_getPreflangCount(pLn) != 0);
+}
+/* parse catalog file header and get encoding information.*/
+static BOOL parse_po_header(const char* pheader, pstring pencoding_name)
+{
+	const char *ap_i_v = "Project-Id-Version:";
+	const char *acharset = "charset=";
+	char* penc;
+	int nenc;
+
+	if(pencoding_name == NULL) return False;
+	if(pheader == NULL || *pheader == '\0')
+	{
+		/* error or catalog is not available. */
+		pstrcpy(pencoding_name,"");
+		return False;
+	}
+	penc = strstr(pheader, acharset);
+	if(strncmp(pheader, ap_i_v, strlen(ap_i_v)) != 0 || penc == NULL)
+	{
+		/* catalog file exists, but header is not good.*/
+		pstrcpy(pencoding_name, "");
+		return True;
+	}
+	nenc = strcspn(penc + strlen(acharset), "\n");
+	strncpy(pencoding_name,
+		 penc + strlen(acharset), nenc);
+	return True;
+}
+/* ad-hoc mime charset -> samba encoding name converter.
+   character conversion is done when internal samba data,
+   such as paramters, open files, share names, are going to be displayed.
+   it is only valid for japanese encodings because samba-2.0.7 only has
+   these three character convertors.
+   so other .po file(catalog file) should be encoded with one which
+   samba can deal with (i.e same as DOS codepage).
+
+   display-time conversion is deleted on this version because
+   all catalog files are encoded with samba internal encoding (DOS codepage).
+
+  THIS FUNCTION is ALREADY obsolated and maybe removed soon, -- monyo
+*/
+#define LN_SAMBA_ENCODINGS 3
+static const char* get_samba_enc(const char* penc)
+{
+	int i;
+	static const fstring fdefault = "";
+	static const fstring fmimeenc[LN_SAMBA_ENCODINGS] =
+	{
+		"EUC-JP", "Shift_JIS", "ISO-2022-JP"
+	};
+	static const fstring fsambaenc[LN_SAMBA_ENCODINGS] =
+	{
+		"euc",    "sjis",      "jis"
+	};
+	for(i = 0; i < LN_SAMBA_ENCODINGS; i++)
+	{
+		if(strcasecmp(penc, fmimeenc[i]) == 0)
+			return fsambaenc[i];
+	}
+	return fdefault;
+}
+/* ************************************************************
+ find a better language.
+ if the language specified by web browser matches to a language
+ which is supported by the swat server, this function returns it.
+ *********************************************************** */
+static void set_a_language(const char* planguage)
+{
+	/* included gettext source is affected by
+	   these env.variables without locale settings.
+	*/
+	/*
+	   putenv(env) will not duplicate env argument
+	   but smbw_setenv() does this.
+	*/
+        FILE *file;
+	smbw_setenv("LANGUAGE", planguage);
+	smbw_setenv("LANG", planguage);
+	bindtextdomain(I18N_PACKAGE, I18N_LOCALEDIR);
+	textdomain(I18N_PACKAGE);
+}
+static int ln_set_pref_language(LNNegotiator* pLn)
+{
+	int j;
+	pstring enc_name;
+
+	for(j = 0; j < ln_getPreflangCount(pLn); j++)
+	{
+		set_a_language(ln_getPreflang(pLn, j));
+		/* then check for _("") special entry which has
+		   a lot of information about .po file. */
+		if(parse_po_header(_(""), enc_name))
+		{
+			/* the catalog file must exist and may have
+			   encoding information .*/
+			/*
+			  but in this version, catalog files must be
+			  written with samba-internal encoding (i.e.
+			  dos encoding, dos codepage)
+			  so there is no need to convert.
+			  //ln_init_swat_encoding(get_samba_enc(enc_name));
+			  ln_init_swat_encoding(enc_name);
+			*/
+			return j;
+		}
+	}
+	return LN_NO_AVAILABLE_LANG;
+	/* no available or return the default? */
+}
+/* **************************************************************
+ initialize gettext. Before this, cgi_setup() should be done. 
+ cgi_setup() calls ln_negotiate_language() if the user specifies
+ languages in web browser. Then, ln_set_pref_language() will work.
+ ************************************************************* */
+static BOOL ln_init_lang_env_help(LNNegotiator* pLn)
+{
+#if I18N_GETTEXT
+	int nLang;
+
+	nLang = ln_set_pref_language(pLn);
+	rstrace(getenv("LANGUAGE"));
+#endif /* I18N_GETTEXT */
+	return True;
+}
+/* *****************************************************************
+ * This function searches for the "PrefLang" version of pFile.
+ * if not available, returns pFile.
+ * [pFile] the filename.
+ * [pst] the address of a struct. it will be filled with the information
+ *  of the file.
+ * [pLangDesc] The address of an integer. a value which indicates the
+ * language of the returned value is written to the address. the value
+ * is used in ln_get_lang().
+ * [return value] address of the name of the language version of the file.
+ * It is static object so it will be destroyed at the time ln_get_pref_file()
+ * is called.
+ **************************************************************** */
+static void ln_make_filename( pstring afname, const char* pFile, const char* pAdd )
+{
+#if LANG_PREFIX
+  /* LANG_PREFIX is already undefined, maybe removed soon */
+	/* maybe, foo.html.ja */
+	pstrcpy(afname, pFile);
+	pstrcat(afname, ".");
+	pstrcat(afname, pAdd);
+#else
+	/* maybe, lang/ja/foo.html */
+	pstrcpy(afname, "lang/");
+	pstrcat(afname, pAdd);
+	pstrcat(afname, "/");
+	pstrcat(afname, pFile);
+#endif
+}
+static const char* ln_get_pref_file_help(
+	LNNegotiator* pLn, const char* pFile,
+	 SMB_STRUCT_STAT* pst, int* pLangDesc)
+{
+	static pstring afname;
+	int i;
+
+	for(i = 0; i < ln_getPreflangCount(pLn); i++)
+	{
+		if(strcmp(ln_getPreflang(pLn, i), ln_getOriginalLang(pLn))
+			  == 0)
+			break;
+		ln_make_filename(afname, pFile, ln_getPreflang(pLn, i));
+		if(file_exist(afname, pst))
+		{
+			*pLangDesc = i;
+			return afname;
+		}
+	}
+	pstrcpy(afname, pFile);
+	file_exist(afname, pst);
+	*pLangDesc = LN_LANGDESC_DEFAULT;
+	return afname;
+}
+/* *******************************************************************
+ * file scope variables. this variable is not locked.
+ * (not multithread-safe)
+ ******************************************************************** */
+static LNNegotiator lnLanguagenegotiator;
+
+/* *******************************************************************
+ * interfaces to the outside of this file.
+ ******************************************************************** */
+void ln_initln(void)
+{
+	ln_initln_help(&lnLanguagenegotiator);
+}
+BOOL ln_init_lang_env(void)
+{
+	return ln_init_lang_env_help(&lnLanguagenegotiator);
+}
+const char* ln_get_lang(int nLangDesc)
+{
+	return ln_getPreflang(&lnLanguagenegotiator, nLangDesc);
+}
+const char* ln_get_pref_file(const char* pFile,
+			  SMB_STRUCT_STAT* pst, int* pLangDesc)
+{
+	return ln_get_pref_file_help(
+		&lnLanguagenegotiator, pFile, pst, pLangDesc);
+}
+BOOL ln_negotiate_language(const char* pstrLangarray)
+{
+	return ln_negotiate_language_help(
+		&lnLanguagenegotiator, pstrLangarray);
+}
+const char* ln_get_pref_file_n_o(const char* pFile)
+{
+	SMB_STRUCT_STAT st;
+	int nLangDesc;
+	return ln_get_pref_file(pFile, &st, &nLangDesc);
+}
+#endif /* I18N_SWAT */