Skip to main content

Ocsigen form select

The goal

How to make a Select input with Ocsigen

The solution

 open Lwt open XHTML.M open Eliom_services open Eliom_parameters open Eliom_sessions open Eliom_predefmod.Xhtml  open Mysql open Postgresql  let coucou_handler _ selection () =   Lwt.return     (html        (head (title (pcdata "Results")) [])        (body [p [ pcdata ("You sent: " ^ selection)]]))   let coucou_service =   Eliom_predefmod.Xhtml.register_new_service      ~path: ["coucou"]     ~get_params: (Eliom_parameters.string "selection")     coucou_handler  let coucou_form enter_selection =   [XHTML.M.fieldset       [Eliom_predefmod.Xhtml.string_select ~name:enter_selection          (Eliom_predefmod.Xhtml.Option ([], "one",   Some (pcdata "um"),   false))          [Eliom_predefmod.Xhtml.Option ([], "two",   Some (pcdata "dois"), false);           Eliom_predefmod.Xhtml.Option ([], "three", Some (pcdata "três"), true)];        Eliom_predefmod.Xhtml.string_input ~input_type:`Text ~value:"un email seulement" ();        Eliom_predefmod.Xhtml.string_input ~input_type:`Submit ~value:"Send" ()]]  let main_handler sp () () =   let myform = Eliom_predefmod.Xhtml.get_form coucou_service sp coucou_form in     Lwt.return       (html          (head (title (pcdata "")) [])          (body [p [pcdata "Form for coucou:"]; myform]))   let main_service =   Eliom_predefmod.Xhtml.register_new_service     ~path: [""]     ~get_params: Eliom_parameters.unit     main_handler 

Comments

Popular posts from this blog

vmware libz libfontconfig libexpat

Archlinux - Kernel 4.11 - VMWare workstation 12.5.7 With this combination, when I launch "vmware", despite the fact I already "export VMWARE_USE_SHIPPED_LIBS=force", I get those lines:

Unable to load libfontconfig.so.1. /usr/lib/vmware/lib/libz.so.1/libz.so.1: version `ZLIB_1.2.9' not found (required by /usr/lib/libpng16.so.16) Unable to load libfontconfig.so.1 from /usr/lib/vmware/lib/libfontconfig.so.1/libfontconfig.so.1: libexpat.so.0: cannot open shared object file: No such file or directory Unable to load dependencies for /usr/lib/vmware/lib/libvmware-modconfig.so/libvmware-modconfig.so
In order to workaround, I decided to get the things to the maximum: Add all shipped libraries in the LD_LIBRARY_PATH.

So I created my custom launcher of "vmware" and this is the content:

#!/bin/bash
export VMWARE_USE_SHIPPED_LIBS=force
LD_LIBRARY_PATH=""
LD_LIBRARY_PATH=$( find /usr/lib/vmware/lib/ -maxdepth 1 -mindepth 1 -type d | awk 'BEGIN{p=&quo…

vmware net_device trans_start

VMWare Workstation 12 and Kernel 4.7 When recompiling vmware kernel modules on a kernel 4.7, I get this error:

/tmp/modconfig-xrrZGZ/vmnet-only/netif.c:468:7: error: ‘struct net_device’ has no member named ‘trans_start’; did you mean ‘mem_start’?     dev->trans_start = jiffies;
This seems to be an already encountered problem: http://rglinuxtech.com/?p=1746http://ferenc.homelinux.com/?p=356 I choosed to replace the line, instead of deleting it.

- dev->trans_start = jiffies; + netif_trans_update(dev); I also noted that I had to re-tar the modified sources instead of leaving them untared, because the compilation process only takes the archives. 
On precedent editions of these files, I just left the modified folders "vmnet-only/" and "vmmon-only/" expanded without the need to re-tar them.


Jira workflow for new projects

Associated workflow creation I'm a Jira Cloud user and begining from some version 6, I noticed that when I create a project, it automatically creates a Workflow and Issue Scheme that is prepended by the project key and which is a copy of the default scheme.
I always had to make a cleanup after creating a project. Default workflow for new projects I also miss a feature that would allow me to make a custom workflow (and globally custom project setting) the default for new projects I create.
Solution: Create with shared configuration While searching, I noticed that with Jira Cloud which is version 7.1.0 at the time I write, there is a link at the bottom of the "Create project" wizard:
"Create with shared configuration" will allow me to select the project I want the new one to share configuration with.

The new created project will use the same configuration as the project I selectThere will be no creation of Workflow and Issue Scheme that I need to cleanup

This fea…