Anubis / xlib_src

Browse Code »

Commit 20cfbacf25997d0660ee98988c8cc58c148b8a30

Authored by David RENÉ 2020-04-18 15:36:46 +0900

1 parent fd32b38b

add L3 web controller

Showing 6 changed files with 194 additions and 1 deletions Show diff stats

Inline Side-by-side

.gitignore 0 → 100644

Show/Hide comments View file @20cfbac

+ds_files/types/generated/

xlib @ 068d794002e

-Subproject commit e4322160bc99742f8283441ca12a823993ab8793

+Subproject commit 068d794002eebc966981493bc3a54dd6b4ab48d6

xlib_web_controllers.aproj 0 → 100644

Show/Hide comments View file @20cfbac

		1	+<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
		2	+ <PropertyGroup>
		3	+ <ProjectGuid>{7FD79E96-A0AA-4BE4-97D5-151C56A47059}</ProjectGuid>
		4	+ <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
		5	+ <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
		6	+ <OutputType>Exe</OutputType>
		7	+ <RootNamespace>xlib_web_controllers</RootNamespace>
		8	+ <AssemblyName>xlib_web_controllers</AssemblyName>
		9	+ <StartupObject>xlib_web_controllers\language\controller.anubis</StartupObject>
		10	+ <IncludePaths>./</IncludePaths>
		11	+ </PropertyGroup>
		12	+ <PropertyGroup Condition=" '$(Configuration)' == 'Debug' ">
		13	+ <OutputPath>bin\Debug\</OutputPath>
		14	+ <DebugSymbols>True</DebugSymbols>
		15	+ <DebugType>Full</DebugType>
		16	+ <Optimize>False</Optimize>
		17	+ </PropertyGroup>
		18	+ <PropertyGroup Condition=" '$(Configuration)' == 'Release' ">
		19	+ <OutputPath>bin\Release\</OutputPath>
		20	+ <DebugSymbols>False</DebugSymbols>
		21	+ <DebugType>None</DebugType>
		22	+ <Optimize>True</Optimize>
		23	+ </PropertyGroup>
		24	+ <Import Project="$(AnubisBinPath)\Anubis.Build.targets" />
		25	+ <ItemGroup>
		26	+ <Folder Include="xlib" />
		27	+ <Folder Include="xlib\web_controllers" />
		28	+ <Folder Include="xlib\web_controllers\language" />
		29	+ <Folder Include="xlib_web_controllers" />
		30	+ <Folder Include="xlib_web_controllers\language" />
		31	+ <Compile Include="xlib\web_controllers\language\language_management.anubis" />
		32	+ <Compile Include="xlib_web_controllers\language\controller.anubis" />
		33	+ <Compile Include="xlib_web_controllers\language\language_web_action_name.anubis" />
		34	+ </ItemGroup>
		35	+</Project>
0	\ No newline at end of file	36	\ No newline at end of file

xlib_web_controllers.ide 0 → 100644

Show/Hide comments View file @20cfbac

		1	+
		2	+Microsoft Visual Studio Solution File, Format Version 9.00
		3	+# Visual Studio 2005
		4	+# SharpDevelop 1.0.12.108
		5	+Project("{B6712916-30DE-4a3e-A54C-2A79AC984AEE}") = "xlib_web_controllers", "xlib_web_controllers.aproj", "{7FD79E96-A0AA-4BE4-97D5-151C56A47059}"
		6	+EndProject
		7	+Global
		8	+ GlobalSection(SolutionConfigurationPlatforms) = preSolution
		9	+ Debug\|Any CPU = Debug\|Any CPU
		10	+ Release\|Any CPU = Release\|Any CPU
		11	+ EndGlobalSection
		12	+ GlobalSection(ProjectConfigurationPlatforms) = postSolution
		13	+ {7FD79E96-A0AA-4BE4-97D5-151C56A47059}.Debug\|Any CPU.Build.0 = Debug\|Any CPU
		14	+ {7FD79E96-A0AA-4BE4-97D5-151C56A47059}.Debug\|Any CPU.ActiveCfg = Debug\|Any CPU
		15	+ {7FD79E96-A0AA-4BE4-97D5-151C56A47059}.Release\|Any CPU.Build.0 = Release\|Any CPU
		16	+ {7FD79E96-A0AA-4BE4-97D5-151C56A47059}.Release\|Any CPU.ActiveCfg = Release\|Any CPU
		17	+ EndGlobalSection
		18	+EndGlobal

xlib_web_controllers/language/controller.anubis 0 → 100644

Show/Hide comments View file @20cfbac

		1	+/*
		2	+ * Created by PyramIDE.
		3	+ * User: フランスのトトロ aka (David RENÉ)
		4	+ * Date: 18/04/2020
		5	+ * Time: 00:50
		6	+ * © David RENÉ
		7	+ */
		8	+
		9	+read system/logger.anubis
		10	+read language_web_action_name.anubis
		11	+read hayamiki_lib/model/types/hk_database.anubis
		12	+read hayamiki_lib/view/view_table_manager_types.anubis
		13	+read xlib/web/controllers_web_site.anubis
		14	+read xlib/web_controllers/language/language_management.anubis
		15	+read xlib/web/plugin/plugin.anubis
		16	+
		17	+define WEB_Action
		18	+ do_change_language
		19	+ =
		20	+ web_action(
		21	+ do_change_language,
		22	+ http_https,
		23	+ (WEB_Session _session) \|-> true,
		24	+ (WEB_Session _session) \|->
		25	+
		26	+ //
		27	+ since _session is web_session(id, _old_lang, fields, current, previous, draw),
		28	+ //increment 1 to message TTL
		29	+ with step = get_Int(fields, "AWS_SESSION_STEP",0),
		30	+ replace_Int(fields, "PAGE_MESSAGE_TTL", step+1);
		31	+
		32	+ if web_arg_value(*current.lwa, "language_code") is
		33	+ {
		34	+ not_found then redirect_to_previous, //http_answer(web_session(id, _old_lang, fields, previous, previous), plain_text(http_no_content, "")) //
		35	+ found(language_code) then //http_answer(web_session(id, language_code, fields, previous, previous), plain_text(http_no_content, ""))
		36	+ with new_web_session = web_session(id, language_code, fields, draw, previous, draw),
		37	+// println("------- language change. New web session ---------");
		38	+// println(dump(new_web_session));
		39	+// println("--------------------------------------------------");
		40	+
		41	+ redirect(new_web_session)
		42	+ }
		43	+ )
		44	+.
		45	+public define HTTP_Answer
		46	+ ajax_translate_to_json
		47	+ (
		48	+ WEB_Session _session,
		49	+ String symbolic_names //list of symbolic names to translate separated by comma i.e. "JAN,FEB"
		50	+ ) =
		51	+ with _T = make_translate_function(_session),
		52	+
		53	+ //construct a list of json_member with "symbolic_name: translated value"
		54	+ with translated_list = map((String symbolic) \|-> json_member(symbolic, json_string(_T(symbolic))), split_by_token(symbolic_names,',')),
		55	+ json(http_ok, json_object(translated_list))
		56	+.
		57	+
		58	+define WEB_Action
		59	+ ajax_translate_json
		60	+ =
		61	+ web_action(
		62	+ ajax_translate_json,
		63	+ https,
		64	+ (WEB_Session _session) \|-> true,
		65	+ (WEB_Session _session) \|->
		66	+ //here the function really call for creating domain name
		67	+ since _session is web_session(id, lang, _, web_request, _, _draw),
		68	+ if web_arg_value(*web_request.lwa, "to_translate") is
		69	+ {
		70	+ not_found then redirect_to_previous
		71	+ found(symbolic_names) then ajax(ajax_translate_to_json(_session, symbolic_names))
		72	+ }
		73	+ )
		74	+.
		75	+
		76	+public define List(WEB_Action)
		77	+ make_language_actions =
		78	+ [
		79	+ //action lors de la demande de création d'un user dans un domaine
		80	+ do_change_language,
		81	+ ajax_translate_json
		82	+ ].
		83	+
		84	+public define WEB_Controller
		85	+ get_lang_controller
		86	+ =
		87	+ web_controller("language", var(make_language_actions))
		88	+.
		89	+
		90	+public define List(WEB_Controller)
		91	+ plugin_get_controller
		92	+ (
		93	+ SQLite3DataBase db,
		94	+ HK_Database hk_db,
		95	+ VTM _vtm,
		96	+ (LogLevel, String) -> One logger
		97	+ ) =
		98	+ [get_lang_controller]
		99	+.
		100	+
		101	+
		102	+define Maybe(HTML_Partial_Content)
		103	+ plugin_get_typed_content
		104	+ (
		105	+ SQLite3DataBase db,
		106	+ WEB_Session _session,
		107	+ String type
		108	+ )=
		109	+ println("plugin_get_typed_content for L3 type "+type);
		110	+ if type = "LEFT_MENU" then failure
		111	+ else if type = "TOOLBAR" then failure
		112	+ else if type = "CONTROL_PANEL" then failure
		113	+ else
		114	+ failure
		115	+.
		116	+
		117	+global define WEB_Plugin
		118	+ l3_lib
		119	+ =
		120	+ web_plugin(
		121	+ "L3",
		122	+ "BASE",
		123	+ plugin_get_controller,
		124	+ plugin_get_typed_content
		125	+ )
		126	+.

xlib_web_controllers/language/language_web_action_name.anubis 0 → 100644

Show/Hide comments View file @20cfbac

		1	+/*
		2	+ * Created by PyramIDE.
		3	+ * User: フランスのトトロ aka (David RENÉ)
		4	+ * Date: 18/04/2020
		5	+ * Time: 15:18
		6	+ * © David RENÉ
		7	+ */
		8	+
		9	+
		10	+read xlib/web/controllers_web_site.anubis
		11	+
		12	+public define WEB_Action_Name do_change_language = controller_action("language", "do_change_language").
		13	+public define WEB_Action_Name ajax_translate_json = controller_action("language", "ajax_translate_json").