Autoresponder and mailing lists

I am subscribed to much mailing lists, and espacially on holidays, I notice many people set their autoresponders to reply to the mailing list.
It's annoying and whenever possible should be avoided, by checking several headers befor autoreplying.

Headers to check and patterns

Mailing lists have pretty verbose footprints. Unfortunately, There is no standard I know about that, but there is a simple enumeration of what headers and patterns a mailing list has.

Return-Path: and Sender:

List-ID: or X-Mailing-List:

To: or Cc:

"Precedence: Bulk" or "Precedence: List"

Conclusion

We then have a set of criteria to check, have a good time... :-)

Le microcosme Internet est dans une situation ambigüe à Madagascar.

J'ai cherché sur Google comment envoyer des emails à la Jirama, voici les résultats.

Vendre, faire du marketing, c'est montrer qu'on est un professionel. Voici comment certains s'y prennent...

Apprendre à faire un thème Drupal 6 puis Drupal 7.

Ideo Neov est acteur dans le développement autour de Drupal, les éléments du sas de formation doivent passer par l'apprentissage du développement avec Drupal.

Nous vîmes que nous etions dans l'erreur, reprenons du début.

HTML, Javascript, puis jQuery

Apres le HTML, Javascript

Maintenant que nous avons pris le temps d'aborder HTML via un exercice d'intégration HTML, nous pouvons passer à l'étape suivante qui est Javascript

Javascript de base

Avant de manipuler les documents avec les frameworks comme jQuery, Mootools, Prototype,... nous allons dans un premier temps aborder "les bases". De nos jours, peu de gens utilisent Javascript de cette façon mais il est primordial de savoir comment les choses se passent au plus bas niveau avant de manipuler des outils qui font abstraction de ces bases-là.

Qu'avez-vous appris?

En utilisant les commentaires à ce billet, Racontez votre parcours et les choses que vous avez découvert dans le sas de formation que vous êtes actuellement en train de suivre.

Arguing I have a virus on my computer, My facebook account was disabled. I had to log via the "computer version" and attest I ran all the virus check before being able to use Facebook again.

My system

I have a Natty system where I wanted to early install GTK3 ported packages such as Evince, LightDM,...

To do so, I just temporarily enabled Oneiric repositories (without no more pinning configuration, I love my hairs) then installed

Ecountered problems

I got the lightDM login screen without problem. For some obscur reasons, I had to disable splashscreen at boot. That doesn't disturb me, I love seeing lines on my screen, it's an indication that things are going on.

But, after entering my credentials and choosing "Xubuntu Session" or "Xfce Session", I just got a framebuffer screen with a mouse pointer. Not more. I can escape from that state with "Ctrl-Backspace".

I joined the bug huntings:

• Cursor issues in lightdm
• How to Get LightDM To Work

Solution for me

Completely disappointed, I randomly tried to enter a "guest" session on the computer and the Xfce environment launched.

I tried then to move out all my $HOME files and directories and gave a try: It worked!

So, something in my ".config/" or any dotfile prevented Xfce to launch.

If you encouter that bug, try oyrself and tell me!

Use case

I have a SQLite3 database, with Date, Integers and Float fields. I use it to make a poor-man accountig of my ppp0 interface traffic. Data I want to play with are in the format:

$ sqlite3 accouting-copy "SELECT * FROM ifconfig"
1|2011-08-12 09:37:47|0.0       |0.0
2|2011-08-12 09:43:01|18629153.0|8124895.0
3|2011-08-12 09:43:03|18636044.0|8125679.0
4|2011-08-12 09:44:32|18694283.0|8159197.0
5|2011-08-12 09:50:01|19203494.0|8270963.0
6|2011-08-12 09:55:01|19265098.0|8311962.0

• Field #1: integer, incremental
• Field #2: date, SQLite "DATETIME('NOW')"
• Field #3 and #4: Float, "RX" and "TX" counters parsed from "ifconfig ppp0". Sometimes, these counters reset: If the modem hangs and I must perform a "ifdown ppp0; ifup ppp0". That is why I need computation.

I want to account the traffic:

• Between to Dates: To know how much I had for a given month
• From a given Date to Now(): To approximately know my remaining traffic

I am not going to care about to computing logic in this article, but focus on data extraction.

Preparing the toplevel

In order to use these examples, those modules are needed:

#use "topfind";;
#require "calendar";;
#require "sqlite3";;

Auxilliary functions and variables

Some variables:

let db = Sqlite3.db_open "/home/mihamina/accouting-copy";;
let the_query = "SELECT * FROM ifconfig";;

I need a couple of auxilliary functions.

To convert a "String Option" (Some "foo") to a String:

let so_to_strig the_so =
match the_so with
| Some s -> s;
| _ -> "";;

To get a Calendar Date from a an SQLite Date String:

let date_from_sql  = CalendarLib.Printer.Precise_Fcalendar.from_fstring "%F %T" ;;

To print a Date:

let date_to_string = CalendarLib.Printer.Precise_Fcalendar.to_string ;;

To add tso days to a Date (For testing or demonstration prupose):

let add_2_days a_date = CalendarLib.Fcalendar.Precise.add a_date (CalendarLib.Fcalendar.Precise.Period.make 0 0 2 0 0 0.);;

The callback just to print the table content:

let the_print_callback row headers =
(Array.iter (fun s -> Printf.printf "  %-12s"              s)  headers);
(print_endline "");
(Array.iter (fun s -> Printf.printf "  %-12s" (so_to_strig s)) row);
(print_endline "");;

The callback to play with the data, which is the most important for the work:

let the_data_callback row headers=
(* row.(0) row.(1)  row.(2)  row.(3)  *)
(* id      date     rx       tx       *)
(* int     Date     float    float    *)
(* "headers" is no used at the moment *)
let the_id = int_of_string   (so_to_strig (row.(0)))
and the_rx = float_of_string (so_to_strig (row.(2)))
and the_tx = float_of_string (so_to_strig (row.(3)))
and the_date = CalendarLib.Printer.Precise_Fcalendar.from_fstring "%F %T" (so_to_strig (row.(1)))
in
print_string "the_id: "  ; print_int   the_id                    ; print_string "\t\t the_id doubled: "        ; print_int    (the_id * 2)                          ; print_string "\n";
print_string "the_tx: "  ; print_float the_tx                    ; print_string "\t\t the_tx doubled: "        ; print_float  (the_tx *. 2.)                        ; print_string "\n";
print_string "the_rx: "  ; print_float the_rx                    ; print_string "\t\t the_rx doubled: "        ; print_float  (the_rx *. 2.)                        ; print_string "\n";
print_string "the_date: "; print_string (date_to_string the_date); print_string "\t\t twodays after the_date: "; print_string (date_to_string (add_2_days the_date)); print_string "\n";
print_endline "==================================================================================================================";
;;

Launching

To print all the table content:

let result = Sqlite3.exec db ~cb:the_print_callback the_query;;

To make sample operations with the data:

• double the ID and print it
• double the RX and TX and print them
• add 2 days to the Date and print it

let result = Sqlite3.exec db ~cb:the_data_callback the_query;;

Sample Source code

The source code is on my Google Code Repository

OCaml using Calendar

Some acknowledgement

From the toplevel

# #use "topfind";;
# #require "calendar";;
/usr/lib/ocaml/unix.cma: loaded
/usr/lib/ocaml/str.cma: loaded
/usr/lib/ocaml/calendar: added to search path
/usr/lib/ocaml/calendar/calendarLib.cma: loaded

Note that the library is "Calendar", but "calendarLib.cma" is loaded. So, to set a Date from a String:

# let d = CalendarLib.Printer.Precise_Fcalendar.from_fstring "%F %T" "2011-08-16 16:00:01";;
val d : CalendarLib.Printer.Precise_Fcalendar.t = 

# CalendarLib.Printer.Precise_Fcalendar.to_string d;;
- : string = "2011-08-16 16:00:01"
# CalendarLib.Printer.Precise_Fcalendar.sprint "%Y-%m-%d %H" d;;
- : string = "2011-08-16 16"
# CalendarLib.Printer.Precise_Fcalendar.sprint "%Y-%m-%d %H:%M:%S" d;;
- : string = "2011-08-16 16:00:01"

Google plus Android in Madagascar

I wanted to download the Google Plus (google+) client on my Android telephone but could not, because of my country (Madagascar)

Market enabler

Fortunately, there is the Market Enabler App. On the Phone, go to the market and search for "Market Enabler". On the "Set Custom" tab, change the 6 digit number: Mine was 64604 (Telma Mobile SA) , I changed it to "France Telecom".

I'm done!

Using Cameleon RSS Feed Parser

Looking for a way to parse RSS (or ATOM) feeds with OCaml, I performed a Google search on "ocaml rss":

• There was an ocaml-rss software
• It's now in Cameleon

Installing on Ubuntu/Debian

I assume the user has all de basic OCaml installation. Installing the RSS feed parser requires:

    sudo apt-get install libcameleon-ocaml-dev cameleon
  

Getting a sample RSS file

Let's get the RSS2 file of OCamlCore:

    wget http://planet.ocamlcore.org/rss20.xml
  

Using it in the toplevel

The user needs to load several modules:

       Objective Caml version 3.11.2


    #use "topfind"                  ;;
    #require "unix"                 ;;
    #require "cameleon"             ;;
    #require "cameleon.config_file" ;;
    #require "cameleon.configwin"   ;;
    #require "cameleon.ffind"       ;;
    #require "cameleon.gdir"        ;;
    #require "cameleon.gmylist"     ;;
    #require "cameleon.gstuff"      ;;
    #require "cameleon.okey"        ;;
    #require "cameleon.report"      ;;
    #load "/usr/lib/ocaml/cameleon/rss.cma";;
  

    let my_channel = Rss.channel_of_file "rss20.xml";;
  

    let items = my_channel.Rss.ch_items);;
  

    List.hd items;;
  

    (List.hd items).Rss.item_title;;
  

Note

Please note that it is a quick and dirty way to do it, the reader is encouraged to suggest cleaner ways by commenting this post.

Randomly found

Randomly browsing for several things, I ran into some Ocaml users blogs and found 2 tips:

• Using .ocamlinit
• Old (2010) tip on installing Batteries on MacOS

Installing EzTeamroom

When launching the final installation command of Ezpublish:

www-data@dev-01:/var/www/PDCH.ezpublish440$ php extension/ezxmlinstaller/bin/php/xmlinstaller.php --template=teamroom/installezteamroom --siteaccess=plain_site --allow-root-user
Using siteaccess "plain_site" for installation from XML
Checking requirements...
Trying to install data from XML ...
No XML data available.

How I solved

When you face this "No XML" Error, first go to the Administrator Web interface:

• Setup
• Extensions
• Check: ezxmlinstaller, ezjscore, ezie, ezevent, ezlightbox, ezteamroom
• Update

Deleting an "email user"

After adding a user, I sometimes need to delete it.

Using a shell script

This is how I delete it

#!/bin/bash

EMAIL=$1
PASS=$2
EXIM_VIRT_DIR="/etc/exim4/virtual/"

DOMAINE=$(echo ${EMAIL} | awk -F"@" '{print $2}')
LOCALPART=$(echo ${EMAIL} | awk -F"@" '{print $1}')

U=$(echo ${EMAIL} | sed 's/\./-/g' | sed 's/@/-/g')
CRYPT1_PASS=$(mkpasswd ${PASS})

echo ${EMAIL}
echo ${PASS}
echo ${DOMAINE}
echo ${LOCALPART}
echo ${CRYPT1_PASS}
echo ${U}

userdel   ${U}
grep -v "${LOCALPART}:" ${EXIM_VIRT_DIR}${DOMAINE} > /tmp/${DOMAINE} 
cp /tmp/${DOMAINE} ${EXIM_VIRT_DIR}
invoke-rc.d exim4 restart

      

/etc/networking/interfaces

As a full Debian/Ubuntu nerd, I use "/etc/networking/interfaces" to setup my network. But as far as I have Two different modems to connect with, I wondered how to make them work with "/etc/networking/interfaces". I found.

ppp

To connect with "ppp", I type "pon bluenet". To use "/etc/networking/interfaces" with it:

iface ppp0 inet ppp
provider bluenet

wvdial

To connect with wvdial, I type "wvdial orange". To use "/etc/networking/interfaces" with it:

iface ppp0 inet wvdial
provider orange

How to use it

Orange Madagascar

This internet access provider had initially provided a USB Huawei E160. Then, then switched to the USB Huawei E1552 device.

The modem is composed by

• A modem. (Why not?)
• An USB mass storage, read-only, containing Windows drivers

Funny Windows

After I got the USB Huawei E1552, I wanted to to try it out on a spare Laptop running Microsoft Windows 7 32bits. I failed, because the driver provided on the USB stick is XP/Vista only, and known to be weird on Microsoft Windows 7 32bits.

On Linux

If the usb-modeswitch package is not installed, when plugging the modem, only the USB mass storage part is detected:

        usb 1-2: new high speed USB device using ehci_hcd and address 3
Initializing USB Mass Storage driver...
scsi6 : usb-storage 1-2:1.0
scsi7 : usb-storage 1-2:1.1
usbcore: registered new interface driver usb-storage
USB Mass Storage support registered.

After installing usb-modeswitch and without any setup, when plugging the modem, the the USB mass storage part is detected and actived, then switched to the "GSM Modem" feature:

        usb_modeswitch: switching 12d1:1446 (HUAWEI Technology: HUAWEI Mobile)
kernel: [10694.027147] usb 1-2: USB disconnect, address 3
kernel: [10700.190056] usb 1-2: new high speed USB device using ehci_hcd and address 4
kernel: [10700.361471] scsi10 : usb-storage 1-2:1.2
kernel: [10700.501603] usbcore: registered new interface driver usbserial
kernel: [10700.501635] USB Serial support registered for generic
kernel: [10700.502713] usbcore: registered new interface driver usbserial_generic
kernel: [10700.502718] usbserial: USB Serial Driver core
kernel: [10700.589257] USB Serial support registered for GSM modem (1-port)
kernel: [10700.589427] option 1-2:1.0: GSM modem (1-port) converter detected
kernel: [10700.592132] usb 1-2: GSM modem (1-port) converter now attached to ttyUSB0
kernel: [10700.592185] option 1-2:1.1: GSM modem (1-port) converter detected
kernel: [10700.592500] usb 1-2: GSM modem (1-port) converter now attached to ttyUSB1
kernel: [10700.593596] usbcore: registered new interface driver option
kernel: [10700.593603] option: v0.7.2:USB Driver for GSM modems
usb_modeswitch: switched to 12d1:141b (HUAWEI Technology: HUAWEI Mobile)
kernel: [10701.375029] scsi 10:0:0:0: Direct-Access     HUAWEI   MMC Storage      2.31 PQ: 0 ANSI: 2
kernel: [10701.381072] sd 10:0:0:0: Attached scsi generic sg2 type 0
kernel: [10701.389031] sd 10:0:0:0: [sdb] Attached SCSI removable disk

Using "wvdial"

I use wvdial to connect to internet. This is the wvdial.conf part:

        [Dialer orange]
Init0 = ATZ
Modem Type = Analog Modem
Baud = 921600
New PPPD = yes
Modem = /dev/ttyUSB0
Phone = *99#
Username = ''
Password = ''
Stupid Mode = 1
ISDN = 0

To connect, just run wvdial orange and you're done.

Using Gnome Network Manager

Use these settings:

• http://www.zimagez.com/zimage/screenshot901.php
• http://www.zimagez.com/zimage/screenshot-1174.php

Goal

I first wanted to install ezteamroom on my ezpublish 4.3, but it requires me to have created "siteaccess" before. This is how to create "siteaccesses"

Documentation

There is an existing documentation, but guess why screenshots did not match my installation.

Download requirements

I had to install ezwebin, and as I am there, I also installed all the ezteamroom requirements:

git clone https://github.com/ezsystems/ezwebin.git ezwebin
git clone https://github.com/ezsystems/ezlightbox.git ezlightbox
git clone https://github.com/ezsystems/ezxmlinstaller.git ezxmlinstaller
git clone https://github.com/ezsystems/ezteamroom.git ezteamroom
git clone https://github.com/ezsystems/ezevent.git ezevent

What's next

Let's install ezteamroom, then...

C'est quoi ton email? ton téléphone?

Sur Facebook, plusieurs fois, on m'a demandé via message privé mes coordonnées. Plusieurs fois, je réponds: "regarde mon profil", les informations que tu recherches sont publiques. Plusieurs fois on me traite de "méchant".

Ce que je ne comprends pas, moi c'est que le temps que je réponde à la demande de coordonnées, la personne qui demande aurait pour trouver l'information bien avant! En moins de 30 secondes! Et evidemment, c'est moi le méchant et pas l'autre qui est est idiot.

Pourquoi c'est comme ça?

Pour moi, la raison est simple: 90% des membres de Facebook et autres réseaux sur internet mettent n'importe quoi comme coordonnées.

En fait c'est un n'importe quoi généralisé:

• Orthographe d'illétré
• Renseignements bordéliques
• Faux noms

Les gens mettent sur internet leur amour pour le désordre. Par exemple, quand on upload un album photo:

• On tag n'importe comment
• On ne renseigne pas les champs des formulaires

Et donc quoi?

Mon profil contient mes informations, mes albums photos contiennent les informations de base sur les photos publiées. Et manifestement je suis le seul à savoir le faire.

Ben oui, sinon, tout le monde aurait fait comme moi.

Context

I installed an openWRT system, I want to connect to SSH on it.

After a fresh install only telnet is available.

One could always use telnet through the wan interface, but it's not a good choice

Dropbear

Dropbear is the lightweight SSH server for the situation.

It's installed by default, we just have to configure it

Allow TCP port 22 from wan (/etc/config/firewall)

The default behaviour is to REJECT any INPUT from wan:

      
        config zone
        option name             wan
        option input    REJECT
        option output   ACCEPT
        option forward  REJECT
        option masq             1
        option mtu_fix  1
      

We are going to add a specific "rule" to allow TCP/22

        config rule
        option src              wan
        option proto            tcp
        option dest_port        22
        option target           ACCEPT
        option family   ipv4
      

Don't forget to setup a password for root, and we're done!

Context

I often try to develop micro projects with Ocsigen. They are Quick and Dirty things without coplexity, just needing an admin login and deveral things.

I mostly start with this Project Template, and clean it the step after.

My Ocsigen Project template

Its composed by:

• A main file: index.ml
• An utility file: gs.ml
• A Makefile
• Some tuning to the Ocsigen cofiguration file
• Some Debian/Ubuntu packages installed

The main File

open Lwt
open XHTML.M
open Eliom_services
open Eliom_parameters
open Eliom_sessions
open Eliom_predefmod.Xhtml

open Gs

module Ep=Eliom_parameters;;

let session_table = Eliom_sessions.create_volatile_table ();;

let root_service =
  Eliom_services.new_service
    ~path:[""]
    ~get_params:Eliom_parameters.unit
    () ;;
    
let root_service_with_post =
  Eliom_services.new_post_service
    ~fallback:root_service
    ~post_params:((Ep.string "login")**(Ep.string "password"))
    () ;;

let logout_service =
  Eliom_services.new_service
    ~path:["logout"]
    ~get_params:Eliom_parameters.unit
    () ;;

(* Handlers *)
   
let root_handler sp _ _  =
    let session_data = Eliom_sessions.get_volatile_session_data  
      ~table:session_table 
      ~sp:sp () 
    in
      match session_data with 
           Eliom_sessions.Data (name,password) ->
             return
               (html
                  (head (title (pcdata "Accueil")) [])
                  (body
                     [(Gs.greeter_auth  logout_service sp (name,password))])) ;
        | Eliom_sessions.Data_session_expired
        | Eliom_sessions.No_data ->
            return (Gs.login_page root_service_with_post sp "Accueil")  ;;

let root_handler_with_post sp _ (login,password) =
  let clean_login = Gs.trim login 
  in
    match (Gs.ok_credentials (clean_login, password)) with
      | true ->
        Lwt.bind
          (Eliom_sessions.close_session  ~sp:sp ())
          (fun () ->
            Eliom_sessions.set_volatile_session_data  ~table:session_table ~sp:sp (clean_login, password);
            return
              (html
                 (head (title (pcdata "Identifié")) [])
                 (body
                    [Gs.greeter_auth logout_service sp (clean_login,password)]))) ;
      | false -> 
        return (Gs.login_page root_service_with_post sp "Recommencez SVP");;

let logout_handler sp () () =
  Lwt.bind
    (Eliom_sessions.close_session  ~sp:sp ()) 
    (fun () ->
      return (Gs.login_page root_service_with_post sp  "Deconnecté")) ;;

let () =
  Eliom_predefmod.Xhtml.register
    root_service
    root_handler;
  Eliom_predefmod.Xhtml.register
    root_service_with_post
    root_handler_with_post;
  Eliom_predefmod.Xhtml.register
    logout_service
    logout_handler;;

    

The utility File

open Lwt
open XHTML.M
open Eliom_services
open Eliom_parameters
open Eliom_sessions
open Eliom_predefmod.Xhtml

(*
 #use"topfind";;
 #require"mysql";;
 #require"str";;
*)

open Str
open Mysql

module Ep = Eliom_predefmod;;


let trim the_input =
  let space_regexp = Str.regexp " +"
  and semicolumn_regexp = Str.regexp ";"
  and replace = Str.global_replace
  in replace semicolumn_regexp ""               (* Remplacement des point-virgules *) 
       (replace space_regexp "" the_input);;    (* et des espaces. anti-problemes  *)

let semicolumn_regexp = Str.regexp ";";;


let ok_credentials (u,p) = match (u,p) with
  | ("admin","sdlqskd6dsf") -> true;
  | _                       -> false;;


(* begin HTML constructions *)

let greeter_auth close_serv server_params (login, password)=
  p [pcdata ("Bienvenue, titulaire de l'adresse "^login^".");
     br ();
     (Eliom_predefmod.Xhtml.a
        close_serv
        server_params 
        [pcdata "Se déconnecter."] ());
    ] ;;


let login_page attached_serv server_params titre= 
  let login_form =
    Eliom_predefmod.Xhtml.post_form
      attached_serv
      server_params
      (fun (login, password) ->
        [p [pcdata "Identifiant:";
            (Eliom_predefmod.Xhtml.string_input ~input_type:`Text ~name:login ());
            br ();
            pcdata "Mot de passe";
            (Eliom_predefmod.Xhtml.string_input ~input_type:`Text ~name:password ());
            br ();
            (Eliom_predefmod.Xhtml.string_input ~value:"S'identifier" ~input_type:`Submit ())]]) ()
  in
  (html
     (head (title (pcdata titre)) [])
     (body
        [login_form]));;


(* end HTML constructions *)
    

The MakeFile

########
# ocamlfind ocamlc -verbose -package str,ocsigen,postgresql,mysql -linkpkg


LAPTOP_FLAGS= -I /usr/lib/ocaml/pcre       -ccopt -I/usr/lib/ocaml/pcre       \
              -I /usr/lib/ocaml/netsys     -ccopt -I/usr/lib/ocaml/netsys     \
              -I /usr/lib/ocaml/netstring  -ccopt -I/usr/lib/ocaml/netstring  \
              -I /usr/lib/ocaml/ssl        -ccopt -I/usr/lib/ocaml/ssl        \
              -I /usr/lib/ocaml/lwt        -ccopt -I/usr/lib/ocaml/lwt        \
              -I /usr/lib/ocaml/ocsigen    -ccopt -I/usr/lib/ocaml/ocsigen    \
              -I /usr/lib/ocaml/postgresql -ccopt -I/usr/lib/ocaml/postgresql \
              -I /usr/lib/ocaml/mysql      -ccopt -I/usr/lib/ocaml/mysql      \
              -ccopt -L/usr/lib/ocaml/pcre                                           \
              -ccopt -L/usr/lib/ocaml/netsys                                         \
              -ccopt -L/usr/lib/ocaml/netstring                                      \
              -ccopt -L/usr/lib/ocaml/ssl                                                   \
              -ccopt -L/usr/lib/ocaml/lwt                                            \
              -ccopt -L/usr/lib/ocaml/ocsigen                                        \
              -ccopt -L/usr/lib/ocaml/postgresql                                     \
              -ccopt -L/usr/lib/ocaml/mysql                                          \
              /usr/lib/ocaml/unix.cma                                                \
              /usr/lib/ocaml/threads/threads.cma                                     \
              /usr/lib/ocaml/str.cma                                                 \
              /usr/lib/ocaml/pcre/pcre.cma                                           \
              /usr/lib/ocaml/netsys/netsys.cma                                       \
              /usr/lib/ocaml/netstring/netstring.cma                                 \
              /usr/lib/ocaml/netstring/netstring_mt.cmo                              \
              /usr/lib/ocaml/netstring/netaccel.cma                                  \
              /usr/lib/ocaml/netstring/netaccel_link.cmo                             \
              /usr/lib/ocaml/ssl/ssl_threads.cma                                     \
              /usr/lib/ocaml/dynlink.cma                                             \
              /usr/lib/ocaml/lwt/lwt.cma                                             \
              /usr/lib/ocaml/postgresql/postgresql.cma                               \
              /usr/lib/ocaml/mysql/mysql.cma


OCAMLC = ocamlc -c -thread

gs: 
        $(OCAMLC) $(LAPTOP_FLAGS) gs.ml

index:  gs 
        $(OCAMLC) $(LAPTOP_FLAGS) gs.cmo index.ml

all:  gs index 
        echo "all OK"
    

The Ocsigen configuration file

    <<extension module="/usr/lib/ocaml/str.cma"/>>
    <<extension module="/usr/lib/ocaml/pcre/pcre.cma"/>>
    <<extension module="/usr/lib/ocaml/netsys/netsys.cma"/>>
    <<extension module="/usr/lib/ocaml/netstring/netstring.cma"/>>
    <<extension module="/usr/lib/ocaml/netstring/netstring_mt.cmo"/>>
    <<extension module="/usr/lib/ocaml/netstring/netaccel.cma"/>>
    <<extension module="/usr/lib/ocaml/netstring/netaccel_link.cmo"/>>
    <<extension module="/usr/lib/ocaml/ssl/ssl.cma"/>>
    <<extension module="/usr/lib/ocaml/ssl/ssl_threads.cma"/>>
    <<extension module="/usr/lib/ocaml/dynlink.cma"/>>
    <<extension module="/usr/lib/ocaml/react/react.cmo"/>>
    <<extension module="/usr/lib/ocaml/lwt/lwt.cma"/>>
    <<extension module="/usr/lib/ocaml/nums.cma"/>>
    <<extension module="/usr/lib/ocaml/toplevellib.cma"/>>
    <<extension module="/usr/lib/ocaml/ocamldap/ocamldap.cma"/>>
    <<extension module="/usr/lib/ocaml/mysql/mysql.cma"/>>
    <<extension module="/usr/lib/ocaml/postgresql/postgresql.cma"/>>

    

      <<host defaulthostname="xxxxxxx">>
        <<site path="">>
          <<static dir="/home/mihamina/XXXXXXXX/static/" />>
          <<eliom module="/home/mihamina/XXXXXXX/index.cmo" />>
        <</site>>
      <</host>>
      
    

Installed packages

dpkg -l | awk '/^ii.+(ocaml|make|ocsigen)/{print $2}'

automake
libcryptgps-ocaml-dev
libcryptokit-ocaml
libcryptokit-ocaml-dev
libfindlib-ocaml
libfindlib-ocaml-dev
libldap-ocaml-dev
liblwt-ocaml
liblwt-ocaml-dev
liblwt-ocaml-doc
liblwt-ssl-ocaml-dev
libmysql-ocaml
libmysql-ocaml-dev
libnethttpd-ocaml-dev
libobrowser-ocaml-dev
libocamlnet-ocaml
libocamlnet-ocaml-dev
libocamlnet-ocaml-doc
libocsigen-ocaml
libocsigen-ocaml-dev
libocsigen-ocaml-doc
libocsigen-xhtml-ocaml-dev
libpcre-ocaml
libpcre-ocaml-dev
libpostgresql-ocaml
libpostgresql-ocaml-dev
libreact-ocaml
libreact-ocaml-dev
libsqlite3-ocaml
libsqlite3-ocaml-dev
libssl-ocaml
libssl-ocaml-dev
libtext-ocaml
libtext-ocaml-dev
libzip-ocaml
libzip-ocaml-dev
make
makedev
ocaml-base-nox
ocaml-findlib
ocaml-interp
ocaml-nox
ocamlduce
ocamlduce-base
ocsigen
ocsigen-dev
    

Context

$ echo "some content text" | mail -s "this is" mihamina@rktmb.org

Pipe with Ocaml

• Open the command as an output channel
• Send what you want to that channel

let buf = Unix.open_process_out "mail -s ddd mihamina@rktmb.org";;
Pervasives.output_string buf "eeeeeeeeehol";;
Pervasives.flush buf;;
Unix.close_process_out buf;;

Use case

I use a Dovecot IMAP & POP server, against a MySQL user database. In database, the users are stored this way:

On my server I have mutiple IP adresses:

• A legacy IP (1.2.3.4) where "@rktmb.org" users sometimes log in only with the localpart, sometimes with the full email address
• A legacy IP (5.6.7.8) where "@freedsl.mg" users sometimes log in only with the localpart, sometimes with the full email address
• A last IP (7.8.9.0) where users log in with the full email address

In usual condition, on a mail system, all users either all login with the full email address or all with the localpart. But on my alien system, they mix their habits, for legacy reasons.

Therefore:

• The "mihamina@rktmb.org" user always logs in on the 1.2.3.4 IP but sometimes with "mihamina", sometimes with "mihamina@rktmb.org"
• The "mihamina@freedsl.mg" user always logs in on the 5.6.7.8 IP but sometimes with "mihamina", sometimes with "mihamina@freedsl.mg"
• The other users always log in on 7.8.9.0 with their full email address

The SQL query using CASE WHEN THEN END

Dovecot allows to use "%u" as username and "%l" as local IP in SQL queries. This is how I did it:

SELECT id AS user, pwd AS password 
FROM passwdc 
WHERE (((id = '%u') OR (id = (
                              CASE
                                WHEN ("%l" = "1.2.3.4") THEN ('%u@rktmb.org')
                                ELSE ('%u@freedsl.mg')
                              END
                             ))) AND en = 1)
    

SELECT id AS user, pwd AS password 
FROM passwdc 
WHERE (((id = '%u') OR (id = (
                              CASE
                                WHEN ("%l" = "1.2.3.4") THEN ('%u@rktmb.org')
                                WHEN ("%l" = "5.6.7.8") THEN ('%u@freedsl.mg')
                              END
                             ))) AND en = 1)
    

I am still lookig for an IMAP module for OCaml. during my searches I saw how the POP module is implemented in OCamlNet and I think I could go from this to implement IMAP on OCamlnet

Given the small knowledges I have, some help will always be welcomed, if any...

Store a class PHP $_SESSION

When wanting to set preferences over the origin repository, this is an example from 2 sources:

EeeUsers

Argon

Package: *
Pin: origin www.debian-multimedia.org
Pin-Priority: 600
Package: *
Pin: origin www.ibiblio.org
Pin-Priority: 610
Package: *
Pin: origin www.argon.org
Pin-Priority: 620

Already existing documentation

What I forgot

• scanning the array with "sudo mdadm --detail --scan"
• appending the relevant result line to mdam.conf

Goal

Packages

Apache Setup

(VirtualHost *:80)
        ServerAdmin mihamina@rktmb.org
        ServerName git.rktmb.org
        DocumentRoot /usr/share/gitweb
        ScriptAlias /cgi-bin/ /usr/lib/cgi-bin/
        (Directory /usr/share/gitweb)
                Options Indexes FollowSymlinks ExecCGI
                DirectoryIndex /cgi-bin/gitweb.cgi
                AllowOverride All
        (/Directory)
        ErrorLog /var/log/apache2/error-git-rktmb-org.log
        LogLevel warn
        CustomLog /var/log/apache2/access-git-rktmb-org.log combined
(/VirtualHost)

GitWeb setup

$projectroot = "/home/git";

Testing

Offre Blueline à Madagascar

Always Cisco!

What else then?

So what?

Existing

• Debian Lenny
• Dovecot querying MySQL (virtual users)
• Remote NFS server storing Maildirs (owned by vmail, iud 500)

Configuration

• The user's HOME
• The user's UID
• The user's GID

• The user's Maildir is the user's HOME appended with "/Maildir"
• Dovecot executes the message fetching as the user's UID
• Dovecot executes the message fetching as the user's GID

My troubles

user_query

maildir: access(/data/mailaka/gulfsat.mg/m/mihamina//Maildir, rwx):
failed: No such file or directory
maildir: couldn't find root dir
mbox: root exists (/data/mailaka/gulfsat.mg/m/mihamina//mail)
mbox: INBOX: access(/var/mail/mihamina@gulfsat.mg, rw)
failed: No such file or directory
mbox: INBOX: access(/var/spool/mail/mihamina@gulfsat.mg, rw)
failed: No such file or directory
mbox: INBOX defaulted to /data/mailaka/gulfsat.mg/m/mihamina//mail/inbox

/data/mailaka/gulfsat.mg/m/mihamina//Maildir

The solution

user_query

Resolution variable de "smtp.rktmb.org"

• Depuis 192.168.1.0/24, "smtp.rktmb.org" resolve vers 111.222.333.444
• Depuis 192.168.2.0/24, "smtp.rktmb.org" resolve vers 555.666.777.888

Prérequis

Déléguer les DNS

smtp IN NS ns1.rktmb.org.
smtp IN NS ns2.rktmb.org.

Créer la zone

sur NS1

zone "smtp.rktmb.org" {
 type master;
 file "/etc/bind/hosts/masters/smtp.rktmb.org-hosts";
 allow-query { any; };
 };

$ttl 38400
smtp.rktmb.org.      IN      SOA     ns1.rktmb.org. postmaster.rktmb.org. (
                       2010041501
                       10800
                       3600
                       604800
                       38400 )
@   IN NS ns1.rktmb.org.
@   IN NS ns2.rktmb.org.
@ 1 IN  A 111.222.333.444

sur NS2

zone "smtp.rktmb.org." {
        type slave;
        file "smtp.rktmb.org.hosts";
        masters {
                ns1.rktmb.org;
                };
        allow-query { any; };
        };

view "les-1" {
        match-clients { 192.168.1.0/24 ; };
[...]
        zone "smtp.rktmb.org" {
                type master;
                file "/etc/bind/hosts/masters/smtp.rktmb.org-1";
                allow-query { any; };
        };
};

view "les-2" {
        match-clients { 192.168.2.0/24 ; };
[...]
        zone "smtp.rktmb.org" {
                type master;
                file "/etc/bind/hosts/masters/smtp.rktmb.org-2";
                allow-query { any; };
        };
};

Dans les fchiers de "vues"

/etc/bind/hosts/masters/smtp.rktmb.org-1

$ttl 38400
smtp.rktmb.org.      IN      SOA     ns1.rktmb.org. postmaster.rktmb.org. (
                        2010041501
                        10800
                        3600
                        604800
                        38400 )
@ IN NS ns1.rktmb.org.
@ IN NS ns2.rktmb.org.
@ 1 IN A 111.222.333.444

/etc/bind/hosts/masters/smtp.rktmb.org-2

$ttl 38400
smtp.rktmb.org.      IN      SOA     ns1.rktmb.org. postmaster.rktmb.org. (
                        2010041501
                        10800
                        3600
                        604800
                        38400 )
@ IN NS ns1.rktmb.org.
@ IN NS ns2.rktmb.org.
@ 1 IN A 555.666.777.888

Goal

Recipe

compress
compresscmd /bin/bzip2
compressoptions --best
compressext .bz2

Critique des malgaches

• Rien à tirer de bon chez les Gasy
• Misy tokoa ny Malagasy ory hava-manana.
• Raha ny hevitro dia ny gasy TSY mahavita azy ihany no be vava.
• les Gasy de France, se jalousent entre eux et ne font preuve que de vantardise avec un état d'esprit "bling bling" et n'ont rien à foutre de ce qui se passe au pays
• Les malgaches envient trop l'autre et ne supporte pas qu'un des leurs réussisse dans la vie.

Goal

Recipe

export ALPHABET="azertyuiopqsdfghjklmwxcvbn";

mihamina@pbmiha:~$ echo ${#ALPHABET}
26

RANK=$(($RANDOM % ${#ALPHABET}))

RANK=$(($RANDOM % ${#ALPHABET})); echo ${ALPHABET:$RANK:1}

RANDSTRING=""; 
for I in $(seq 1 20)
do
  RANK=$(($RANDOM % ${#ALPHABET})); 
  RANDSTRING=${ALPHABET:$RANK:1}${RANDSTRING}; 
done; 
echo $RANDSTRING

function random_string ()
{
    ALPHABET="azertyuiopqsdfghjklmwxcvbn";    
    RANDSTRING=""; 
    for I in $(seq 1 $1)
    do
        RANK=$(($RANDOM % ${#ALPHABET})); 
        RANDSTRING=${ALPHABET:$RANK:1}${RANDSTRING}; 
    done; 
}
random_string 3 ; echo $RANDSTRING
random_string 5 ; echo $RANDSTRING
random_string 15; echo $RANDSTRING

Problème

Solution

Goal

Recipe

sudo virt-install --connect qemu:///system 
  -n xpsp2 -r 512 -f /dev/sda10
  -c windowsxpsp2.iso 
  --vnc --noautoconsole 
  --os-type windows --os-variant winxp

Goal

Recipe

git reset --soft HEAD^

git reset --soft HEAD^^

git commit -a -m -c ORIG_HEAD

Other option

Goal

Recipe

open Lwt
open XHTML.M
open Eliom_services
open Eliom_parameters
open Eliom_sessions
open Eliom_predefmod.Xhtml


let main_handler sp () () =
    Lwt.return
      (html
         (head (title (pcdata "ttt")) [] )
         (body [ (div [img ~alt:"Ocsigen" ~src:(make_uri ~service:(static_dir sp) ~sp:sp ["logo.gif"]) ()]) ; 
                 (div [pcdata "blabla"])])


let main_service =
  Eliom_predefmod.Xhtml.register_new_service
    ~path: [""]
    ~get_params: Eliom_parameters.unit
    main_handler

Use Case

Recipe

open Lwt
open XHTML.M
open Eliom_services
open Eliom_parameters
open Eliom_sessions
open Eliom_predefmod.Any
open Eliom_predefmod.Files 
open Eliom_predefmod.Xhtml


let logo = Eliom_services.new_service
  ["logo"] 
  Eliom_parameters.unit ();;


let logo_handler =
  Eliom_predefmod.Any.register logo
    (fun sp () () -> 
       Eliom_predefmod.Files.send ~sp:sp "/home/mihamina/public_html/GCI/rakotomandimby-logo.png");;

The goal

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

• A virtual bridge that will NAT the VMs connected to it.
• A physical bridge so that all VMs will be able to have a "public" IP address

NATing virtual bridge (default, virbr0)

Non-NATing bridge

• Create a bridge containing only the physical existing interface
• Each created VM will then join that bridge

ocamlfind ocamlc -verbose -package str,netcgi2,netcgi_apache,postgresql,mysql -linkpkg -o params.cgi params.ml

ocamlc -verbose -o params.cgi \
  -I /usr/lib/ocaml/3.10.2/pcre -ccopt -I/usr/lib/ocaml/3.10.2/pcre \
  -I /usr/lib/ocaml/3.10.2/netsys -ccopt -I/usr/lib/ocaml/3.10.2/netsys \
  -I /usr/lib/ocaml/3.10.2/netstring -ccopt -I/usr/lib/ocaml/3.10.2/netstring \
  -I /usr/lib/ocaml/3.10.2/netcgi2 -ccopt -I/usr/lib/ocaml/3.10.2/netcgi2 \
  -I /usr/lib/ocaml/3.10.2/netcgi_apache -ccopt -I/usr/lib/ocaml/3.10.2/netcgi_apache \
  -ccopt -L/usr/lib/ocaml/3.10.2/pcre \
  -ccopt -L/usr/lib/ocaml/3.10.2/netsys \
  -ccopt -L/usr/lib/ocaml/3.10.2/netstring \
  -ccopt -L/usr/lib/ocaml/3.10.2/netcgi2 \
  -ccopt -L/usr/lib/ocaml/3.10.2/netcgi_apache \
  /usr/lib/ocaml/3.10.2/str.cma \
  /usr/lib/ocaml/3.10.2/unix.cma \
  /usr/lib/ocaml/3.10.2/pcre/pcre.cma \
  /usr/lib/ocaml/3.10.2/netsys/netsys.cma \
  /usr/lib/ocaml/3.10.2/netstring/netstring.cma \
  /usr/lib/ocaml/3.10.2/netstring/netaccel.cma \
  /usr/lib/ocaml/3.10.2/netstring/netaccel_link.cmo \
  /usr/lib/ocaml/3.10.2/netcgi2/netcgi.cma \
  /usr/lib/ocaml/3.10.2/netcgi_apache/netcgi_apache.cma \
params.ml

Bien,

C'est depuis un client XML-RPC que j'écris ce post: BloGTK. j'utilise le système de "blog" proposé "gratuitement" par mon hébergeur (de nom de domaine): dotclear. J'ai passé ma période de petit geek qui aime avoir un serveur dédié rien que pour mettre son site personnel.

Comme je n'aime pas du tout Facebook, je préfère un blog, quand meme presque 10 ans apres leurs apparition..

Je vais tenter de récuperer le code de mes anciens tutoriaux et les coller ici.

En attendant, c'est aprti pour une journée de travail passionnant