Merge branch 'release/ANUBIS_1_14' of ssh://gitlab.calexium.com:33022/calexium/c…

…alexium_lib into release/ANUBIS_1_14

Merge branch 'release/ANUBIS_1_14' of ssh://gitlab.calexium.com:33022/calexium/c…
…alexium_lib into release/ANUBIS_1_14
Julien Verneuil
2 parents 90bc4287 c5c6fea1
Showing 5 changed files with 73 additions and 28 deletions Show diff stats
database/vtm/view_table_renderer.anubis
web/CXM_jquery.anubis
web/CXM_making_a_web_site.anubis
web/CXM_multihost_http_server.anubis
web/jQuery/ui-addon/datetimepicker.anubis
@@ -25,7 +25,8 @@ read calexium_lib/web/CXM_making_a_web_site.anubis
 read calexium_lib/web/CXM_multihost_http_server.anubis
 read calexium_lib/web/jQuery/CXM_jquery_datatable.anubis
 read calexium_lib/web/jQuery/CXM_jquery_datatable_types.anubis
-read calexium_lib/web/jQuery/CXM_jquery_dialog.anubis
+read calexium_lib/web/jQuery/CXM_jquery_dialog.anubis      
+read calexium_lib/web/jQuery/CXM_jquery_button.anubis
 read calexium_lib/web/jQuery/ui-addon/datetimepicker.anubis
 read calexium_lib/web/CXM_form.anubis
 read calexium_lib/web/widgets/css_helper.anubis
@@ -204,9 +205,14 @@ public define HTML_Partial_Content
   partial_content(
       div( [/*class("tableau")*/],
           sequence(
-           [  actioner(same,same, link([class("my_button")],_T("NEW")),"edit_table",[("table_name", rows.table_name)]),
+<<<<<<< HEAD
+           [ 
+              partial(jquery_button(jQuery_button(button, "edit_table_"+rows.table_name, "", _T("NEW"), jQuery_actioner(same, jqlink, "edit_table&table_name="+rows.table_name)))),
+=======
+           [  partial(jquery_button(jQuery_button(button, "", _T("NEW"), jQuery_actioner(same, jqlink, "table_name"), jq_icon_none, jq_icon_none)))/*actioner(same,same, link([class("my_button")],_T("NEW")),"edit_table",[("table_name", rows.table_name)])*/,
+>>>>>>> 50b6dd00541faf76383aa5ad807b547c3f882842
               //dialog used by datatable entries
-              partial(jq_dialog_create(dialog_id("edit_table_dlg_ajax"), ajax("?a=ajax_edit_table&table_name="+rows.table_name))),
+              partial(jq_dialog_create(dialog_id(action_name+"_dlg_ajax"), ajax("?a=ajax_edit_table&table_name="+rows.table_name))),
               table([core_attrs([id("table_view"), class("tableau display compact nowrap")])],
                     make_header(_T, rows.header.list, [action_header_cell]),
@@ -126,7 +126,7 @@ define List(HTML_Head_Tag)
    jquery_defaults
    =
    [
-     js(js_file("/js/jquery/jquery-1.11.3.js")),
+     js(js_file("/js/jquery/jquery-1.11.3.min.js")),
      js(js_file("/js/jquery/jquery-ui-1.11.4/jquery-ui.min.js")),
    ].
@@ -2695,12 +2695,14 @@ public define Start_Web_Sites_Result
    with http_server_r  = 
      start_http_server(ip_address,http_port, 
                        map(get_description,web_sites),
-                       load_denial_of_service_info), 
+                       load_denial_of_service_info,
+                       shutdown_required),
    with https_server_r = 
      start_https_server(ip_address,https_port,
                         ssl_certificate_common_name,
                         map(get_description,web_sites),
-                        load_denial_of_service_info), 
+                        load_denial_of_service_info,
+                        shutdown_required), 
    if http_server_r is ok(http_server)
    then
      (
@@ -3168,12 +3168,17 @@ define One
        BufferedConnection           connection,
        Bool                         is_https,
        DenialOfService              dos,
-       SState                       s
+       SState                       s,
+       (One) -> Bool                shutdown_required
      ) =
    //t0 <- (UTime)unow;
   with start_time = (Int)now,
   s.sttm <- start_time;
   //println("Request time: " + format_http_date(start_time));
+  if shutdown_required(unique) then
+    println("shutdown required on http_https_handler");
+    unique
+  else
   if dos is denial_of_service(mc_v,rld_v,hd_v,ad_v,ld_v,ra_v) then
   if remote_IP_address_and_port(connection.conn) is (ip_addr,port) then
   if read_request_line(connection) is
@@ -3210,7 +3215,7 @@ define One
                     ok(body)   then
                       www_url_answer(host_name, desc, connection.conn, ip_addr, rqline2, headers, body, generate_tt);
                       //it's HTTP 1.1 keep-alive is default
-                      http_https_handler(sites, connection, is_https, dos, s)
+                      http_https_handler(sites, connection, is_https, dos, s, shutdown_required)
                   }
                 //MULTIPART_FORM_DATA
                 multipart_form_data then
@@ -3250,7 +3255,7 @@ define One
                                   multipart_form_data_answer(host_name, desc, connection.conn, ip_addr, rqline2, headers, desc.site_directory + tmp_body_file, generate_tt, s);
                                   //it's HTTP 1.1 keep-alive is default
-                                   http_https_handler(sites, connection, is_https, dos, s)
+                                   http_https_handler(sites, connection, is_https, dos, s, shutdown_required)
                                 else
                                   println("Can't copy data from stream to temporary file "),
@@ -3264,7 +3269,7 @@ define One
                                   multipart_form_data_answer(host_name, desc, connection.conn, ip_addr, rqline2, headers, desc.site_directory + tmp_body_file, generate_tt, s);
                                   //it's HTTP 1.1 keep-alive is default
-                                   http_https_handler(sites, connection, is_https, dos, s)
+                                   http_https_handler(sites, connection, is_https, dos, s, shutdown_required)
                                 else
                                   println("Can't copy data from stream to temporary file ")                               
@@ -3300,7 +3305,8 @@ define Server -&gt; ((RWStream) -&gt; One)
    make_http_handler
      (
        List(Web_Site_Description)   sites,
-       DenialOfService              dos
+       DenialOfService              dos,
+       (One) -> Bool    shutdown_required
      ) =
    (Server server) |-> (RWStream conn) |->
      if remote_IP_address_and_port(conn) is (addr,_) then
@@ -3308,31 +3314,33 @@ define Server -&gt; ((RWStream) -&gt; One)
      then print("Rejecting dubious IP address "+ip_addr_to_string(addr)+"\n")
      else
          with connection = buffered_connection(tcp(conn), var(constant_byte_array(0, 0)), var(0), var([])),
-         http_https_handler(sites, connection, false, dos, sstate(var(0),var(0))).
+         http_https_handler(sites, connection, false, dos, sstate(var(0),var(0)), shutdown_required).
 public define One
    http_direct_handler
      (
        List(Web_Site_Description) sites,
        RWStream                   conn,
-       DenialOfService            dos
+       DenialOfService            dos,
+       (One) -> Bool    shutdown_required
      ) =
      if remote_IP_address_and_port(conn) is (addr,_) then
      if is_dubious_IP(addr,dos)
      then print("Rejecting dubious IP address "+ip_addr_to_string(addr)+"\n")
      else
          with connection = buffered_connection(tcp(conn), var(constant_byte_array(0, 0)), var(0), var([])),
-         http_https_handler(sites, connection, false, dos, sstate(var(0),var(0))).
+         http_https_handler(sites, connection, false, dos, sstate(var(0),var(0)), shutdown_required).
 define Server -> (SSL_Connection -> One)
    make_https_handler
      (
        List(Web_Site_Description)   sites,
-       DenialOfService              dos
+       DenialOfService              dos,
+       (One) -> Bool                shutdown_required
      ) =
    (Server server) |-> (SSL_Connection conn) |->
       with connection = buffered_connection(ssl(conn), var(constant_byte_array(0, 0)), var(0), var([])),
-     http_https_handler(sites, connection, true, dos, sstate(var(0),var(0))).
+     http_https_handler(sites, connection, true, dos, sstate(var(0),var(0)), shutdown_required).
@@ -3615,11 +3623,12 @@ public define StartServerResult
        Word32                           ip_address,
        Word32                           port,
        List(Web_Site_Description)       sites,
-       DenialOfService                  dos
+       DenialOfService                  dos,
+       (One) -> Bool                    shutdown_required
      ) =
    create_directories(sites);
    start_http_server(ip_address,port,
-                     make_http_handler(sites, dos),
+                     make_http_handler(sites, dos, shutdown_required),
                      0,
                      dos).
@@ -3663,11 +3672,12 @@ public define StartServerResult
        Word32                         port,
        String                         certificate_common_name, // of SSL server certificate
        List(Web_Site_Description)     sites,
-       DenialOfService                dos
+       DenialOfService                dos,
+       (One) -> Bool                  shutdown_required
      ) =
    create_directories(sites);
    start_https_server(ip_address,port,certificate_common_name,
-                      make_https_handler(sites, dos),
+                      make_https_handler(sites, dos, shutdown_required),
                       0,dos).
@@ -17,9 +17,9 @@ read calexium_lib/web/CXM_jquery.anubis
       css(css_file("/css/jquery/ui/datetimepicker.css")),
       js(js_file("js/jquery/ui/jquery-ui-timepicker-addon.js")),
       js_inline(jquery_ready("// Datepicker\n
-        				                       $('.datepicker').datepicker({inline: true});
-        				                       $('.datetimepicker').datetimepicker({inline: true});
-				                               "))
+                               $('.datepicker').datepicker({inline: true});
+                               $('.datetimepicker').datetimepicker({inline: true});
+                               "))
     ]
   .
@@ -28,16 +28,43 @@ read calexium_lib/web/CXM_jquery.anubis
 public define List(HTML_Head_Tag)
   jq_datetimepicker_init
   (
-    String  lang
+    String  lang,
+    Bool add_icon
   )
   =
     [
       css(css_file("js/jquery/plug-in/datetimepicker/datetimepicker.css")),
       js(js_file("js/jquery/plug-in/datetimepicker/datetimepicker.js")),
       js_inline(jquery_ready("// Datetimepicker\n
-        				                       $('.datepicker').datetimepicker({lang:'"+lang+"',timepicker:false,format:'d/m/Y'});
-        				                       $('.datetimepicker').datetimepicker({lang:'"+lang+"',format:'Y-m-d H:i'});
-        				                       $('.timepicker').datetimepicker({lang:'"+lang+"',datepicker:false,format:'H:i',step:5})
-				                               "))
+                               $('.datepicker').datetimepicker({lang:'"+lang+"',timepicker:false,format:'d/m/Y'});
+                               $('.datetimepicker').datetimepicker({lang:'"+lang+"',format:'Y-m-d H:i'});
+                               $('.timepicker').datetimepicker({lang:'"+lang+"',datepicker:false,format:'H:i',step:5});
+                               " + if add_icon then "
+                                  var items_add_func = function (index) {
+                                      var icon_file = 'icon_calendar.gif';
+                                      var dt_picker = $(this);
+                                      
+                                      if (dt_picker.hasClass('timepicker')) {
+                                        icon_file = 'icon_clock.gif';
+                                      }
+                                      
+                                      var icon = $('<img src=\"icons/16x16/'+icon_file+'\"/>');
+                                      
+                                      icon.click(function () { dt_picker.datetimepicker('show'); });
+                                      icon.hover(function() { $(this).css('cursor','pointer'); });
+                                      dt_picker.after(icon);
+                                    };
+                                  
+                                  $('.datepicker').each(items_add_func);
+                                  $('.datetimepicker').each(items_add_func);
+                                  $('.timepicker').each(items_add_func);
+                                " else ""))
     ]
   .
+
+public define List(HTML_Head_Tag)
+  jq_datetimepicker_init
+  (
+    String  lang
+  )
+  = jq_datetimepicker_init(lang, true).