xuniL noc sasoC

Vim Word Fuzzy Completion.

2011-12-29T18:31:00.000-08:00

El último tiempo estuve probando un editor de texto que para mi es bastante nuevo: sublime2.

Esta genial aplicación tiene muchísimas características interesantes como es un minimap del texto, a la derecha sobre el que se puede navegar, apertura de archivos utilizando fuzzy search sobre el path actual, auto completado 'fuzzy' con la tecla <Tab>, búsqueda por símbolos con el caracter @, indentado de texto muy inteligente, etc.

Inmediatamente me despertó la curiosidad sobre algunas funcionalidades que vim no trae de cajón, y que muy tranquilamente podría tener:

1- Apertura de archivos utilizando fuzzy search.

2- Completado 'fuzzy' de palabras (ej: si en mi archivo tengo la palabra futurama, yo escribo frutur, presiono <Tab> o alguna combinación, y el editor de texto debería sugerirme 'futurama').

El caso (1) lo resolví con el excelente complemento 'CommandT' para vim: enlace.

Sin embargo, me llamó la atención que no pude encontrar una solución para el caso (2), ya que es una funcionalidad relativamente fácil de implementar en un plugin.

Dado lo anterior, me senté unas horas de una tarde y lo resolví creando el plugin 'Word Fuzzy Completion': enlace (mi primer aporte a la comunidad de usuarios vim), el código fuente del plugin está alojado en github: enlace.

El funcionamiento del plugin es sencillo, existen dos combinaciones de teclas para utilizarlo:

"<Ctrl-X><Ctrl-U>" o uno mas corto "<Ctrl-K>".

Suponiendo que estamos editando un buffer que contiene lo siguiente:

-------- buffer ----------

The simpsons

Futurama

Back to the future

Features

-------- buffer ----------

Si escribimos:

1) sminsons<Ctrl-k>
La palabra será cambiada a:
simpsons
2) smi<Ctrl-k>
La palabra cambiará nuevamente a:
simpsons
3) furure<Ctrl-k>
La palabra cambiará a:

future
4) Furu<Ctrl-k>
Se mostrará el listado de palabras similares:
Fururama
Future
Features

La implementación del plugin está escrita en python, y utiliza el algoritmo de Distancia de Levenshtein para medir distancias entre las palabras del buffer actual.

Se que hay muchas cosas para mejorarle, la primera es cambiar la combinación de teclas '<Ctrl-K>' ya que está pisando una funcionalidad de vim, y la segunda es el buscado de palabras en todos los buffers abiertos. Cuando esté con un poco de tiempo libre lo implementaré.

Enlaces:

Sublime2: enlace.

Vim: enlace.

WordFuzzyCompletion Plugin: enlace (fuentes: enlace).

CommandT Plugin: enlace.

Distancia de Levenshtein: enlace.

2011-08-23T18:08:00.000-07:00

Es muy habitual en c++ o en c, manejar archivos en parejas, por ejemplo al editar un archivo llamado "archivo.cc" es muy probable que editemos también a un archivo "archivo.hh" para reflejar cambios de interface y viceversa.

Este mapeo para vim define una forma fácil de abrir fichero compañero en un split vertical con solo presionar la combinación Ctrl+h.

Simplemente debe agregarse la siguiente línea al archivo ~/.vimrc:



if has('python')

   map <C-h> :py import vim; vim.command("vsplit %s.%s" % ("".join(vim.current.buffer.name.split(".")[0:-1]), {"cpp":"hpp","cc":"hh","hpp":"cpp","hh":"cc","c":"h","h":"c"}[vim.current.buffer.name.split(".")[-1]]))<CR><CR>

end

Este es uno de los maps para vim que uso con mas frecuencia. Por ello le he definido varias parejas. Lo siguiente significa que si editamos el primero de cada línea que sigue, y presionamos ctrl+h, entonces se abrirá el segundo en un split vertical.

cc -> hh
hh -> cc
hpp -> cpp
cpp -> hpp
h -> c
c -> h

Ejemplo: Cuando se está editando un archivo "archivo.hh", presionar la tecla Escape, y luego utilizar la abreviatura Ctrl+H.

Como ver conexiones de red por proceso en MacOSX.

2010-02-19T13:29:00.000-08:00

Cuando uno quiere ver cuales son las conexiones de red asociadas a sus respectivas PID en el sistema, en linux podemos utilizar:

my_linux_box $ netstat -pn

el cual nos arrojará un lindo listado de conexiones asociadas a las respectivas PIDs del sistema.

Quien hace esto posible es el switch 'p', pero, al parecer, este no es un standard, y para colmo, no está disponible en la versión de netstat disponible para MacOSX.

Esto además significa que los scripts que (con tanto amor) generemos no serían portables a otros sistemas Unix, ya que por lo que pude averiguar, hay varios UNIXs mas que sufren esto.

Por lo tanto una alternativa (en teoría 100% compatible con todos los unix) es utilizar el viejo y conocido lsof, de la siguiente forma:


snake-island:/Us*/jo*/Do*/data-integration: jonatan$ lsof -i -n
COMMAND    PID                 USER   FD   TYPE    DEVICE SIZE/OFF NODE NAME
SystemUIS  170 jonatanalexisanauati   10u  IPv4 0x3d69d90      0t0  UDP *:*
firefox-b  771 jonatanalexisanauati   67u  IPv4 0xa966a68      0t0  TCP 186.13.221.96:49801->74.125.47.83:https (ESTABLISHED)
firefox-b  771 jonatanalexisanauati   69u  IPv4 0x9e50270      0t0  TCP 186.13.221.96:49816->74.125.47.83:https (ESTABLISHED)
firefox-b  771 jonatanalexisanauati   72u  IPv4 0xa964a68      0t0  TCP 186.13.221.96:49758->74.125.47.191:http (ESTABLISHED)
firefox-b  771 jonatanalexisanauati   82u  IPv4 0x85b7270      0t0  TCP 186.12.227.84:54534->17.149.160.21:http (CLOSED)
firefox-b  771 jonatanalexisanauati   89u  IPv4 0xa96866c      0t0  TCP 186.13.221.96:49732->74.125.47.191:http (ESTABLISHED)
NewsFire  8831 jonatanalexisanauati    7u  IPv4 0xa964270      0t0  TCP 186.13.221.96:49761->74.125.47.133:http (CLOSE_WAIT)
NewsFire  8831 jonatanalexisanauati   10u  IPv4 0xa968a68      0t0  TCP 186.13.221.96:49762->74.125.47.191:http (CLOSE_WAIT)
NewsFire  8831 jonatanalexisanauati   11u  IPv4 0xa966e64      0t0  TCP 186.13.221.96:49810->74.125.47.191:http (ESTABLISHED)

el switch 'i' hace la magia, y hasta se puede ser un poco mas específico,
por ejemplo si lo que se quiere es ver todas las conexiones tcp:


snake-island:/Us*/jo*/taller: jonatan$ lsof -itcp -n
COMMAND    PID                 USER   FD   TYPE    DEVICE SIZE/OFF NODE NAME
firefox-b  771 jonatanalexisanauati   67u  IPv4 0xa964e64      0t0  TCP 186.13.221.96:49769->74.125.47.17:https (ESTABLISHED)
firefox-b  771 jonatanalexisanauati   69u  IPv4 0xa966a68      0t0  TCP 186.13.221.96:49755->74.125.47.191:http (ESTABLISHED)
firefox-b  771 jonatanalexisanauati   71u  IPv4 0x9e50270      0t0  TCP 186.13.221.96:49757->74.125.47.191:http (ESTABLISHED)
firefox-b  771 jonatanalexisanauati   72u  IPv4 0xa964a68      0t0  TCP 186.13.221.96:49758->74.125.47.191:http (ESTABLISHED)
firefox-b  771 jonatanalexisanauati   74u  IPv4 0x9e5066c      0t0  TCP 186.13.221.96:49760->74.125.47.83:https (ESTABLISHED)
firefox-b  771 jonatanalexisanauati   82u  IPv4 0x85b7270      0t0  TCP 186.12.227.84:54534->17.149.160.21:http (CLOSED)
firefox-b  771 jonatanalexisanauati   89u  IPv4 0xa96866c      0t0  TCP 186.13.221.96:49732->74.125.47.191:http (ESTABLISHED)
NewsFire  8831 jonatanalexisanauati    7u  IPv4 0xa964270      0t0  TCP 186.13.221.96:49761->74.125.47.133:http (CLOSE_WAIT)
NewsFire  8831 jonatanalexisanauati   10u  IPv4 0xa968a68      0t0  TCP 186.13.221.96:49762->74.125.47.191:http (CLOSE_WAIT)
NewsFire  8831 jonatanalexisanauati   11u  IPv4 0xa966e64      0t0  TCP 186.13.221.96:49763->74.208.86.247:http (CLOSE_WAIT)

Este switch ('i') acepta el siguiente formato (según el man):


                [46][protocol][@hostname|hostaddr][:service|port]

                where:
                     46 specifies the IP version, IPv4 or IPv6
                          that applies to the following address.
                          '6' may be be specified only if the UNIX
                          dialect supports IPv6.  If neither '4' nor
                          '6' is specified, the following address
                          applies to all IP versions.
                     protocol is a protocol name - TCP or UDP.
                     hostname is an Internet host name.  Unless a
                          specific IP version is specified, open
                          network files associated with host names
                          of all versions will be selected.
                     hostaddr is a numeric Internet IPv4 address in
                          dot form; or an IPv6 numeric address in
                          colon form, enclosed in brackets, if the
                          UNIX dialect supports IPv6.  When an IP
                          version is selected, only its numeric
                          addresses may be specified.
                     service is an /etc/services name - e.g., smtp -
                          or a list of them.
                     port is a port number, or a list of them.

Por lo que si queremos ver todas las conexiones tcp sobre ipv4, que se relacionen con google, se puede hacer algo como sigue:


snake-island:/Us*/jo*/Do*/data-integration: jonatan$ lsof -i4tcp@www.google.com -n
COMMAND   PID                 USER   FD   TYPE    DEVICE SIZE/OFF NODE NAME
firefox-b 771 jonatanalexisanauati   70u  IPv4 0xa96566c      0t0  TCP 186.13.221.96:49805->74.125.47.106:http (ESTABLISHED)
firefox-b 771 jonatanalexisanauati   71u  IPv4 0xa965e64      0t0  TCP 186.13.221.96:49806->74.125.47.103:http (ESTABLISHED)
firefox-b 771 jonatanalexisanauati   73u  IPv4 0xa964e64      0t0  TCP 186.13.221.96:49807->74.125.47.103:http (ESTABLISHED)

Referencias:
lsof(8).

Expresiones regulares en C.

2009-11-07T08:15:00.000-08:00

El siguiente es un ejemplo de como utilizar expresiones regulares (POSIX RegEx) en C.

Para windows, existe una implementación del módulo regex aquí. Con este sería posible compilar la aplicación (yo lo probé y funcionó), basta con agregar los directorios de includes y librerías, y decirle al compilador que enlace con la librería de regex.

1 /* Ejemplo simple de expresiones regulares en C.
2 * Para compilar:
3 * linux:   $ gcc ejemplo_regex.c -o ejemplo_regex -D_GNU_SOURCE -D__LINUX__
4 * macosx:  $ gcc ejemplo_regex.c -o ejemplo_regex -D__BSD__
6 */
7 //#define _GNU_SOURCE
8 #include <stdio.h>
9 #include <stdlib.h>
10 #include <string.h>
11
12 #ifndef _POSIX_C_SOURCE
13 # define _POSIX_C_SOURCE
14 #endif
15 #include <regex.h>
16
17 #ifndef __LINUX__
18 char * strndup (char * from, int len)
19 {
20     char * ret_str = NULL;
21
22     ret_str= (char *)malloc ((len+1)*sizeof(char));
23     if (ret_str)
24     {
25         strncpy (ret_str,from, len);
26         ret_str[len]='\0';
27     }
28     return ret_str;
29 }
30 #endif
31
32 char * get_string (char * str, regmatch_t m)
33 {
34     char * dup = NULL;
35     int from = m.rm_so;
36     int to   = m.rm_eo;
37
38     if (from != -1)
39     {
40         dup = strndup(str+from, (size_t)to-from);
41     }
42     return dup;
43 }
44
45 main ()
46 {
47     regex_t regex;
48     regmatch_t m[4];
49     int i=0;
50     char * pattern ="(^[^\t]+)(\t)([^\t]+$)";
51     char * target = "hola\tchau";
52
53     char * temp;
54
55     regcomp (&regex, pattern, REG_EXTENDED);
56     regexec (&regex, target, 4, m, 0);
57     regfree (&regex);
58     for (i=0; i<4; i++)
59     {
60         temp = get_string (target, m[i]);
61         if (temp)
62         {
63             printf ("match: --%s--\n", temp);
64             free (temp);
65         }
66     }
67 }

Django strftime template filter.

2009-07-03T18:03:00.000-07:00

A continuación el filtro, que vale aclarar que es muuuuy sencillo:

strftime_filter.py:

from django.template import Library
register = Library()

@register.filter
def strftime (source,format_string):
    return source.strftime(str(format_string))

y el caso práctico de uso:

{% load strftime_filter %}
<html>
    <body>
        <span> {{myDate|strftime:"%d/%m/%Y"}}</span>
    </body>
</html>

Y debería imprimir la fecha con el formato dd/mm/aaaa.

Pkcs7 en C con OpenSSL.

2009-05-24T01:15:00.000-07:00

En esta entrada muestro código de ejemplo para poder firmar un mensaje según la especificación Pkcs 7. Para hacerlo aprovecho el api que brinda el proyecto OpenSSL. Por razones obvias el lenguaje de programación es C.

Una vez generado el binario ejecutable del siguiente código, tendremos una aplicación de terminal, que recibe tres parámetros:
- ruta del archivo del certificado X509. Dicho archivo puede estar en formato PEM o DER.
- ruta del archivo de la clave privada. También el formato puede ser PEM o DER.
- mensaje para firmar.
Para finalizar se imprime por stdout el resultado.

Para compilar:

jaa@dino-thunder_ng ~/taller $ gcc pkcs7_sign.c -o pkcs7_sign -lssl

Evidentemente deben estar instalados OpenSSL y sus headers de desarrollo para poder compilar.

A continuación el ejemplo:


#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <openssl/x509.h>

extern FILE *stderr;

char * pkcs7_sign 
    (char * certfile,
    char * keyfile,
    char * message,
    char * cert_passwd,
    char * key_passwd);

int main (int argc, char ** argv)
{
    char * pk7sm= NULL;
    if (argc != 4)
    {
        printf ("MODO DE USO: %s cert_file key_file, message\\n",argv[0]);
        exit (1);
    }
    pk7sm=pkcs7_sign (argv[1],argv[2],argv[3],NULL,NULL);
    if (pk7sm != NULL)
        printf ("%s",pk7sm);
    else
    {
        fprintf (stderr, "Error inesperado.\\n");
        exit (1);
    }
    exit (0);
}

X509 * load_file (char * fname)
{
    FILE * fp   = NULL;
    X509 * cert = NULL;

    fp = fopen ((const char *)fname, "r");
    if (fp == NULL)
    {
        perror ("fopen()");
        return NULL;
    }
    cert = d2i_X509_fp(fp, NULL);
    if (cert != NULL)
        goto success;
    if (cert == NULL)
    {
        rewind (fp);
        cert = (X509 *)PEM_read_X509 (fp, NULL, NULL, NULL);
    }
    success:
        fclose (fp);
        return cert;
}

EVP_PKEY * load_key_file (char * fname)
{
    FILE * fp   = NULL; 
    EVP_PKEY * pkey = NULL;

    fp = fopen ((const char *)fname, "r");
    if (fp == NULL)
    {
        perror ("fopen()");
        return NULL;
    }
    pkey = d2i_PrivateKey_fp (fp, NULL);
    if (pkey != NULL)
        goto success;
    if (pkey == NULL)
    {
        rewind (fp);
        pkey = (EVP_PKEY *) PEM_read_PrivateKey (fp, NULL, NULL, NULL);
    }
    success:
        fclose (fp);
        return pkey;
}

char * pkcs7_sign 
    (char * certfile,
    char * keyfile,
    char * message,
    char * cert_passwd,
    char * key_passwd)
{
    PKCS7       * scms          = NULL;
    X509        * cert          = NULL;
    EVP_PKEY    * pkey          = NULL;
    BIO         * message_bio   = NULL;
    BIO         * signed_message= NULL;

    char * bio_data_ptr         = NULL;
    char * smessage             = NULL;
    long   bio_data_len         = 0;

    cert = load_file (certfile);
    if (cert == NULL)
    {
        fprintf (stderr,"Formato de certificado no valido: DER o PEM\\n");
        goto finally;
    }
    pkey = load_key_file (keyfile);
    if (pkey == NULL)
    {
        fprintf (stderr,"Formato de clave no valido: DER o PEM\\n");
        goto finally;
    }
    message_bio = BIO_new_mem_buf (message, strlen(message));
    if (message_bio == NULL)
    {
        fprintf (stderr,"Error creando buffer.\\n");
        goto finally;
    }
    SSL_library_init();
    scms = PKCS7_sign (cert, pkey, NULL, message_bio, PKCS7_DETACHED);
    if (scms == NULL)
    {
        long err= ERR_get_error ();
        char * err_txt = (char *)ERR_error_string (err);
        fprintf (stderr,"Error firmando pkcs7 (%i): %s\\n",\\
                (int)err,((err_txt==NULL)?" ":err_txt));
        goto finally;
    }

    signed_message = BIO_new (BIO_s_mem());
    if (signed_message == NULL)
    {
        fprintf (stderr,"Error creando buffer.\\n");
        goto finally;
    }
    if (PEM_write_bio_PKCS7 (signed_message, scms) <= 0)
    {
        fprintf (stderr,"Error transportando a PEM.\\n");
        goto finally;
    }
    bio_data_len =BIO_get_mem_data (signed_message, &bio_data_ptr);
    smessage = (char *)malloc (bio_data_len + 1);
    if (smessage == NULL)
    {
        perror ("malloc ()");
        goto finally;
    }
    memcpy (smessage, bio_data_ptr, bio_data_len);
    *(smessage+bio_data_len)=\'\\0\';
    finally:
        if (message_bio != NULL)
            BIO_free(message_bio);
        if (signed_message != NULL)
            BIO_free(signed_message);
        if (cert != NULL)
            X509_free(cert);
        if (pkey != NULL)
            EVP_PKEY_free(pkey);
        return smessage;
}

Actualización de modelos con Django Evolution.

2009-02-28T17:12:00.000-08:00

Últimamente, es estado jugando bastante con Django, la y la verdad es fantástico.

Lo único que le encuentro un poco engorroso es el hecho de que una vez creado un modelo de datos, django no permite la modificación del mismo. Busqué sin cesar opciones para probar hasta que desistí y dije, ok, con cada modificación que haga, tendré que actualizar las tablas en bd a mano, o resignarme a perder mis datos de prueba (con un sqlreset).

Hasta que hace un rato, sin querer me encontré con una opcion: Django Evolution. Este corresponde con un proyecto independiente a Django (o por lo menos eso creo), se instala como un paquete python más, y luego puede usarse desde el aplicativo manage.py para sincronizar nuestras tablas.

Descarga e instalación:


$ svn co http://django-evolution.googlecode.com/svn/trunk/ django-evolution
$ cd django-evolution && sudo python setup.py install

luego para poder utilizarlo en nuestro proyecto solo basta con agregar django_evolution a nuestro INSTALLED_APPS:


$cd /path/a/nuestro/proyecto/django

editar settings.py y agregar la linea 'django_evolution' a nuestras aplicaciones:


INSTALLED_APPS = (
    'django.contrib.auth',
    'django.contrib.contenttypes',
    'django.contrib.sessions',
    'django.contrib.sites',
    'django.contrib.admin',
    'django_evolution',
    'miweb.miaplicacion'
)

y ya está listo para usarse, para hacerlo en primer lugar hay que hacer un syncdb normal, de esta forma, django_evolution generá unas tablas extra en nuestra base de datos, en estas tablas guardará toda la meta información de nuestro proyecto:


jaa@dino-thunder_ng ~/taller/miweb $ python manage.py syncdb
Creating table django_project_version
Creating table django_evolution
Installing baseline version
Installing index for django_evolution.Evolution model

y después de esto podemos ir modificando modelos al vuelo, y luego para actualizar las tablas haremos:


jaa@dino-thunder_ng ~/taller/miweb $ python manage.py  evolve --hint --execute

You have requested a database evolution. This will alter tables
and data currently in the 'django_miweb' database, and may result in
IRREVERSABLE DATA LOSS. Evolutions should be *thoroughly* reviewed
prior to execution.

Are you sure you want to execute the evolutions?

Type 'yes' to continue, or 'no' to cancel: yes
Evolution successful.

y luego con cada cambio podemos repetir nuestro último comando, dejando atrás syncdb.

Agrego un ejemplo, supongamos que generé mi proyecto, y tengo el archivo models.py con el siguiente contenido:


class DireccionFields (models.Model):
    """ Objeto que simplemente guarda la direccion de una entidad/persona/..."""
    calle = models.CharField (max_length=100, blank=True)
    altura= models.IntegerField (blank=True, null=True)

Entonces hago:


jaa@dino-thunder_ng ~/nueva_web $ python manage.py syncdb
Creating table auth_permission
Creating table auth_group
Creating table auth_user
Creating table auth_message
Creating table django_content_type
Creating table django_session
Creating table django_site
Creating table django_admin_log
Creating table django_project_version
Creating table django_evolution
Creating table prueba_direccionfields

You just installed Django's auth system, which means you don't have any superusers defined.
Would you like to create one now? (yes/no): yes
Username (Leave blank to use 'jaa'): JAA   
E-mail address: barakawins@gmail.com
Password: 
Password (again): 
Superuser created successfully.
Installing baseline version
Installing index for auth.Permission model
Installing index for auth.Message model
Installing index for admin.LogEntry model
Installing index for django_evolution.Evolution model

Installing index for django_evolution.Evolution model

Luego, cambio el modelo anterior:


class DireccionFields (models.Model):
    """ Objeto que simplemente guarda la direccion de una entidad/persona/..."""
    calle = models.CharField (max_length=100, blank=True)
    altura= models.IntegerField (blank=True, null=True)
    depto   = models.CharField (max_length=25, blank=True)

Invoco la actualizacion de la tabla:


jaa@dino-thunder_ng ~/nueva_web $ python manage.py  evolve --hint --execute

You have requested a database evolution. This will alter tables
and data currently in the 'django_miweb_p' database, and may result in
IRREVERSABLE DATA LOSS. Evolutions should be *thoroughly* reviewed
prior to execution.

Are you sure you want to execute the evolutions?

Type 'yes' to continue, or 'no' to cancel: yes
Evolution successful.


jaa@dino-thunder_ng ~/nueva_web $ mysql mi_base
mysql> describe prueba_direccionfields;
+--------+--------------+------+-----+---------+----------------+
| Field  | Type         | Null | Key | Default | Extra          |
+--------+--------------+------+-----+---------+----------------+
| id     | int(11)      | NO   | PRI | NULL    | auto_increment | 
| calle  | varchar(100) | NO   |     | NULL    |                | 
| altura | int(11)      | YES  |     | NULL    |                | 
| depto  | varchar(25)  | NO   |     | NULL    |                | 
+--------+--------------+------+-----+---------+----------------+
4 rows in set (0.00 sec)

y apareció nuestro nuevo campo!.

Otra cosa importante, es que django-evolution puede agregarse a cualquier proyecto existente previamente, pero siempre hay que recordar ejecutar el syncdb la primera vez.

Descarga de módulos sin utilizar.

2008-11-07T13:03:00.000-08:00

En muchas oportunidades hay distros linux que nos dejan por defecto el sistema configurado para que al arranque se carguen gran cantidad de módulos que no tienen sentido para nuestro sistema particular.

En general podemos identificarlos porque su contador de referencias esta en 0 (cero) cuando vemos el listado con el comando "lsmod". Pero también puede que halla módulos cuyo contador de refencias sea cero y sin embargo, estén siendo utilizados de todas formas, por ejemplo módulos cuya función es la del monitoreo de alguna característica del sistema e informarla por algún fichero virtual dentro de /proc por ejemplo (o tal vez /sys), o módulos para controladoras usb (ohci, ehci...), módulos para controlar placas de red, etc.

El script que presento mas abajo lo que hace es descargar todos los módulos cuyo contador de refenrencias sea 0 (cero) para alivianar un poco el sistema. La idea es ejecutar este, y luego cargar solo los módulos que son necesarios de alguna otra forma (tal vez otro script).

Ejemplo de uso:


jaa@dino-thunder_ng ~ $ lsmod | wc -l   
111
jaa@dino-thunder_ng ~ $ sudo ./modules_unload
Removiendo bsd_comp............ok
Removiendo ppp_synctty.........ok
Removiendo snd_pcm_oss.........ok
Removiendo snd_seq_oss.........ok
Removiendo snd_hda_intel.......ok
Removiendo wlan_scan_sta.......ok
Removiendo ath_pci.............ok
Removiendo 8139too.............ok
Removiendo battery.............ok
Removiendo tg3.................ok
Removiendo e1000...............ok
Removiendo raid10..............ok
Removiendo raid456.............ok
Removiendo raid1...............ok
Removiendo raid0...............ok
Removiendo dm_bbr..............ok
Removiendo dm_snapshot.........ok
Removiendo dm_mirror...........ok
Removiendo sbp2................ok
Removiendo ohci1394............ok
Removiendo sl811_hcd...........ok
Removiendo usbhid..............ok
Removiendo ohci_hcd............ok
Removiendo uhci_hcd............ok
Removiendo usb_storage.........ok
Removiendo ehci_hcd............ok
Removiendo lpfc................ok
Removiendo qla2xxx.............ok
Removiendo megaraid_sas........ok
Removiendo megaraid_mbox.......ok
Removiendo megaraid............ok
Removiendo aacraid.............ok
Removiendo sx8.................ok
Removiendo DAC960..............ok
Removiendo cciss...............ok
Removiendo cpqarray............ok
Removiendo 3w_9xxx.............ok
Removiendo 3w_xxxx.............ok
Removiendo mptsas..............ok
Removiendo mptfc...............ok
Removiendo mptspi..............ok
Removiendo atp870u.............ok
Removiendo dc395x..............ok
Removiendo qla1280.............ok
Removiendo dmx3191d............ok
Removiendo sym53c8xx...........ok
Removiendo qlogicfas408........ok
Removiendo advansys............ok
Removiendo initio..............ok
Removiendo BusLogic............ok
Removiendo arcmsr..............ok
Removiendo aic7xxx.............ok
Removiendo aic79xx.............ok
Removiendo sg..................ok
Removiendo pdc_adma............ok
Removiendo sata_inic162x.......ok
Removiendo sata_mv.............ok
Removiendo ahci................ok
Removiendo sata_qstor..........ok
Removiendo sata_vsc............ok
Removiendo sata_uli............ok
Removiendo sata_sis............ok
Removiendo sata_sx4............ok
Removiendo sata_nv.............ok
Removiendo sata_via............ok
Removiendo sata_svw............ok
Removiendo sata_sil24..........ok
Removiendo sata_promise........ok
Removiendo scsi_wait_scan......ok
Removiendo pata_pcmcia.........ok
Removiendo b1..................ok
jaa@dino-thunder_ng ~ $ lsmod | wc -l
40
jaa@dino-thunder_ng ~ $ sudo modprobe 8139too
jaa@dino-thunder_ng ~ $ sudo modprobe ohci_hcd
jaa@dino-thunder_ng ~ $ sudo modprobe battery
jaa@dino-thunder_ng ~ $ sudo pppoe-start
jaa@dino-thunder_ng ~ $ lsmod | wc -l
46

como se ve al correr el script se eliminaron unos 71 módulos inmediatamente, pero luego yo me quedé sin placa de red, sin usb, y sin monitoreo de batería, entonces cargo los tres módulos que a mi sirven:
8139too para la paca de red
ohci_hcd para la controladora usb.
battery para el monitoreo de la batería.
y rearranco mi conexion pppoe:
sudo pppoe-start

Luego vuelvo a ver la cantidad de módulos cargados y subió solo a 46! un gran número!!.

El script es el siguiente:



#!/bin/bash
# Autor: Jonatan Anauati.
# Licencia: LGPL
# Descarga los modulos "sin utilizar" (contador de refencias a 0).

function print_space ()
{
     let r=$1-$2
     while [ $r -gt 0 ] ; do echo -n "."; let r=$r-1; done
     return 0;
}

let ret=1
for modname in $(lsmod | awk --posix '/.+[ ]{2}0[ ]?$/ {print $1;}') ; do
     let ret=0
     echo -n "Removiendo $modname"
     print_space 20 ${#modname}
     rmmod $modname > /dev/null 2> /dev/null
     [ $? -eq 0 ] && echo ok || echo "fallo ($?)"
done
exit $ret;

Se me ocurren algunas modificaciones, tal vez sería una buena idea hacer que reciba como parámetro los módulos que no quisiéramos que se descarguen, ya que para algún caso particular podría dejar el sistema inutilizable.

Esto es todo.

Obteniendo información de la interfaz de red desde C.

2008-10-04T16:20:00.000-07:00

Bueno, en el siguiente ejemplo muestro como puede obtenerse la Hardware address (dirección MAC)de una placa de red ethernet en un sistema linux.

Si bien el código parece algo intimidante al principio, conforme la pelea avanza uno se va amigando, hasta finalmente entenderlo.

La idea es sencilla: se levanta un socket (uso "socket ()"), sobre el cual utilizamos "ioctl()" para preguntar la dirección de hardware. ioctl no sirve solo para esta función, esta es una genérica del sistema operativo, que nos permite interactuar con los ficheros especiales (dispositivos) para obtener y setear paramétros específicos de configuración. por ejemplo lo que hacemos aquí es preguntar por la dirección hardware; otro ejemplo pordría ser abrir la lectora de dvd, etc.

Dejando de lado las palabras, pongo el código:


#include <sys/types.h>
#include <sys/socket.h>
#include <net/if.h>
#include <net/ethernet.h>
#include <sys/ioctl.h>
#include <stdio.h>
#include <string.h>

#define SUCCESS 0
/* La siguiente macro recibe como parametros:
 *  struct sockaddr * sockaddr_ptr;
 *  char * char_ptr;
 * Retorna la direccion MAC, formateada de a dos valores hexadecimales
 * separados por putos: 00:AF:...
 */
#define GET_HW_ADDR_STRING(sockaddr_ptr, charptr)               \
    snprintf (charptr, 18, "%02X:%02X:%02X:%02X:%02X:%02X",     \
        (unsigned char) sockaddr_ptr->sa_data[0],               \
        (unsigned char) sockaddr_ptr->sa_data[1],               \
        (unsigned char) sockaddr_ptr->sa_data[2],               \
        (unsigned char) sockaddr_ptr->sa_data[3],               \
        (unsigned char) sockaddr_ptr->sa_data[4],               \
        (unsigned char) sockaddr_ptr->sa_data[5])


unsigned long get_hw_addr (struct ifreq * ifdata);
int main (int argc, char ** argv)
{
   struct ifreq request;
   struct sockaddr * addr;
   char string_addr[18];
   int fd=0, query_result=0;
   if (argc != 2)
   {
       printf ("MODO DE USO: %s interfaz ethernet.\n",argv[0]);
       printf ("Imprime la direccion de hardware de la interfaz seleccionada.\n");
       printf ("Ej: %s eth0\n",argv[0]);
       return 1;
   }
   fd = socket (PF_INET, SOCK_STREAM, 0);
   if (fd == -1)
   {
       perror ("No puedo abrir socket.");
       return 1;
   }
   strncpy((char*)request.ifr_name,(char*)argv[1],IFNAMSIZ);
   /* La siguiente llamada hace la magia negra.
     * Para ver todos los ioctls: man netdevice.
     * De esta forma se pueden realizar muchas operaciones con nuestra
     * interfaz (seteo de mac addr, get de metrica,...).
     */
   query_result = ioctl (fd, SIOCGIFHWADDR, &request);
   if (query_result !=0)
   {
       perror ("No puedo obtener la informacion de la interfaz seleccionada");
       return 1;
   }
   close (fd);
   addr= &(request.ifr_hwaddr);
   GET_HW_ADDR_STRING (addr, string_addr);
   printf("HWAddr: %s\n", string_addr);
   return SUCCESS;
}

para compilar simplemente poner el codigo en "ethaddr.c" y luego:
$ gcc ethaddr.c -o ethaddr

Bueno, espero que le sea de utilidad a alguien.

Referencias:
man socket (2)
man ioctl (2)
man netdevice (7)

Mysql con SSL. Reforzando la seguridad.

2008-08-29T12:04:00.000-07:00

En esta entrada muestro configurar un servidor mysql y uno (o varios) clientes para realizar las conexiones mediante ssl.

NOTA: Aclaro que toda la información necesaria la saqué directamente de la documentación oficial de mysql.

REQUERIMIENTOS:

Para hacer todo necesitaremos:
1. Servidor mysql (compilado con soporte a yaSSL).
2. Cliente mysql (compilado con soporte a yaSSL).
3. OpenSSL.
4. Ganas de intentar.

MANOS A LA OBRA:

Básicamente son 3 pasos:
1. Crear los cerficados y claves privadas para:
- El CA (servidor mismo en este caso),
- Servidor.
- Cliente(s).
2. Ejecutar el servidor, indicandole los parámetros indicados.
3. Verificar y corregir bug que nos impediría la conexion con ssl.
4. Añadir las restricciones de seguridad por usuario:
- Nivel 1: Solo asegura la identidad del servidor.
- Nivel 2: Obliga al cliente a validar la identidad del servidor.
- Nivel 3: Asegura que cada usuario está certificado por el CA (sin importar quien sea), además de hacer lo que hace el nivel 1.
- Nivel 4: Asegura lo mismo que 1, y añade que cada usuario debe si o sí obtener su certificado y clave privada para poder conectar con el servidor.
5. Conectar el cliente al servidor.

Paso 1: Crear los cerficados y claves privadas.

Creando certificados:
CA,

mysqladmin@gaspar:~/mysql_certs$ openssl genrsa 2048 > ca-key.pem
mysqladmin@gaspar:~/mysql_certs$ openssl req -new -x509 -nodes -days 1000 -key ca-key.pem > ca-cert.pem

Y respondemos a todas las preguntas...
Con eso generamos la clave privada y el certificado del CA (entidad de certificación) que este caso seremos nosotros mismos. Todo esto se podría haber hecho en un solo paso como se muestra a continuación con el primer comando invocado.

-SERVER

mysqladmin@gaspar:~/mysql_certs$ openssl req -newkey rsa:2048 -days 1000 -nodes -keyout server key.pem > server-req.pem
mysqladmin@gaspar:~/mysql_certs$ openssl x509 -req -in server-req.pem -days 1000  -CA ca-cert.pem -CAkey ca-key.pem -set_serial 01 > server-cert.pem

Es importante entender que en el primer paso generamos la clave privada y el archivo con los datos de identidad del servidor (req), y que en el seguno paso lo que hacemos es firmar este archivo req con la clave privada del CA (y además agregamos el certificado de este), generando el certificado del servidor:
"server-cert.pem".

-CLIENTE

Un primer cliente.

mysqladmin@gaspar:~/mysql_certs$ openssl req -newkey rsa:2048 -days 1000  -nodes -keyout jaa-key.pem > jaa-req.pem
mysqladmin@gaspar:~/mysql_certs$ openssl x509 -req -in jaa-req.pem -days 1000 -CA ca-cert.pem -CAkey ca-key.pem -set_serial 01 > jaa-cert.pem

Un segundo cliente.

mysqladmin@gaspar:~/mysql_certs$ openssl req -newkey rsa:2048 -days 1000 -nodes -keyout pepe-key.pem > pepe-req.pem
mysqladmin@gaspar:~/mysql_certs$ openssl x509 -req -in pepe-req.pem -days 1000 -CA ca-cert.pem -CAkey ca-key.pem -set_serial 01 > pepe-cert.pem

Con esto generamos la clave privada y el certificado para dos clientes: jaa y pepe. Si necesitamos generar más simplemente volvemos a ejecutar estos dos pasos (pero obviamente cambiando los nombres de los archivos de salida!).

Paso 2: Ejecutar el servidor, indicandole los parámetros necesarios.

Este paso es sencillo, simplemente invocamos al servidor, pero debemos indicarle los parámetros necesarios para que este use su clave privada y certificado, además del certificado del CA para que pueda luego validar a los demás usuarios.

mysqladmin@gaspar:~/mysql_certs$ mysqld --ssl-ca=ca-cert.pem --ssl-cert=server-cert.pem --ssl-key=server-key.pem

Paso 3: Verificar y corregir bug que nos impedirá la conexión con ssl.

Bueno este bug a mi me ocurre en linux, y SOLO CON EL CLIENTE MYSQL, para la siguiente version:

jaa@dino-thunder:~$ mysql --version
mysql  Ver 14.12 Distrib 5.0.38, for pc-linux-gnu (i486) using readline 5.2

el tema es que cuando intentemos conectar utilizando las opciones avanzadas de ssl no podremos conectar por un supuesto error de SSL:
"ERROR 2026 (HY000): SSL connection error"
entonces hacemos:

root@Patrulla-Delta:/home/jaa/mysql-cert/2# echo "192.168.1.1" >> /etc/hosts

Obviamente hay que reemplazar la direccion ip con la del servidor real.
Supongo que obteniendo las fuentes del último mysql client, y compilando el error debería desaparecer, una alternativa es compilar utilizando openssl ya que por defecto en mysql se usa yaSSL, esto por temas de compativilidad entre licencias.
Resalto que en windows no he tenido ningún problema al respecto.

Paso 4: Añadir las restricciones de seguridad por usuario.

MySql ofrece 4 niveles de seguridad configurables, para la mayor seguridad, debe aplicarse el nivel 4.

Antes de continuar informo algunas cosas simples:

ip del servidor: 192.168.1.1
host cliente: Patrulla-Delta.local
Todos los certificados fueron generados en el servidor pero deben copiarse al host cliente en algún lugar (en lo posible al hacer transferencias por red siempre utilizar scp!).

Nivel 1- Este nivel se aplica solo del lado cliente, y consiste que al conectar contra el servidor hagamos:


$ mysql --ssl-ca=ca-cert.pem -u usuario ...

con esto aseguramos que ningún host intermedio robe la identidad del host servidor, es decir aseguramos la identidad del servidor, ya que este está corriendo (según lo que hicimos en 2) utilizando su certificado y clave privada, por lo tanto ahora nuestro cliente validará la firma del certificado servidor con el certificado del CA que indicamos.

Nivel 2 - Este nivel lo que hace es obligar al cliente a que cumpla uno de los dos requerimientos:
1. Presentar el certificado del CA (con este el cliente valida al servidor).
2. Validar con un certificado firmado por el CA (y obviamente utilizando su clave privada).


mysql> create user pepe@'%' identified by 'lalala';
mysql> GRANT ALL PRIVILEGES ON *.* TO 'jaa'@'%' REQUIRE SSL;
mysql> flush privileges;

Entonces para conectar


$ mysql --ssl-ca=ca-cert.pem -u pepe -p
Enter password:
Welcome to the MySQL monitor.  Commands end with ; or \g.
Your MySQL connection id is 71
Server version: xxxxx

Type 'help;' or '\h' for help. Type '\c' to clear the buffer.

mysql>

Y uno se pregunta: pero cual es la diferencia con el nivel anterior?
Bueno, la diferencia está en que ahora el servidor nos obliga a presentar el certificado del CA.

jaa@Patrulla-Delta:~/mysql-cert/2$ mysql -u pepe -p -h 192.168.1.1
Enter password:
ERROR 1045 (28000): Access denied for user 'pepe'@'Patrulla-Delta.local' (using password: YES)
jaa@Patrulla-Delta:~/mysql-cert/2$ mysql --ssl-ca=jaa-cert.pem -u pepe -p -h 192.168.1.1
Enter password:
ERROR 2026 (HY000): SSL connection error
jaa@Patrulla-Delta:~/mysql-cert/2$ mysql --ssl-cert=pepe-cert.pem --ssl-key=pepe-key.pem -u pepe -p -h 192.168.1.1
Enter password:
Welcome to the MySQL monitor.  Commands end with ; or \g.
Your MySQL connection id is 77
Server version: xxxxx

Type 'help;' or '\h' for help. Type '\c' to clear the buffer.

mysql>

En el primer caso intento ingresar sin presentar el certificado del CA, entonces el servidor nos niega el acceso.
En el segundo caso intento ingresar presentando un certificado de CA erroneo, por lo cual también nos da una patada.
En el Tercer caso, presento un certificado firmado por el CA y logro el acceso.

Nivel 3 - Este se aplica del lado servidor. Lo que haremos será decirle al servidor que solo acepte al usuario "jaa" si presenta un certificado firmado por el CA. Pero como hacemos esto?, bueno no es tan complicado:
- En primer lugar obtenemos lo que se denomina issuer del certificado de uno de los clientes:

jaa@Patrulla-Delta:~/mysql-cert/2/jaa$ openssl x509 -in client-cert.pem -noout -issuer
issuer= /C=AR/ST=Capital Federal/L=Capital Federal/O=OpenOrange/OU=Programacion/CN=OpenOrange Dpto. Cert./emailAddress=info@openorange.com.ar

la linea que dice issuer= /C... corresponde con la información que necesitamos. Esta es la información acerca del CA, la cual para mi caso quedó como mostré.
Es interesante notar que sea cual sea el certificado de cliente o el servidor al que apliquemos el comando siempre obtendremos el mismo contenido (siempre y cuando hallan sido firmados nuestro CA!), por ejemplo si hacemos:

jaa@Patrulla-Delta:~/mysql-cert/2/jaa$ openssl x509 -in pepe-cert.pem -noout -issuer
issuer= /C=AR/ST=Capital Federal/L=Capital Federal/O=OpenOrange/OU=Programacion/CN=OpenOrange Dpto. Cert./emailAddress=info@openorange.com.ar

Entonces nuestro issuer sera:

issuer= /C=AR/ST=Capital Federal/L=Capital Federal/O=OpenOrange/OU=Programacion/CN=OpenOrange Dpto. Cert./emailAddress=info@openorange.com.ar

Ahora lo que hacemos es aplicar la restricción dentro del servidor mysql:


mysql> create user jaa@'%' identified by 'lalala';
mysql> GRANT ALL PRIVILEGES ON *.* TO 'jaa'@'%'
-> REQUIRE ISSUER '/C=AR/ST=Capital Federal/L=Capital Federal/O=OpenOrange/OU=Programacion/CN=OpenOrange Dpto. Cert./emailAddress=info@openorange.com.ar';
mysql> flush privileges;

En estas dos líneas cree el usuario, y seguido a esto le asigné la restricción.
ahora para conectar:


jaa@Patrulla-Delta:~/mysql-cert/2/jaa$ mysql --ssl-ca=ca-cert.pem --ssl-cert=jaa-cert.pem --ssl-key=jaa-key.pem -u jaa -h 192.168.1.1 -p
Enter password:
Welcome to the MySQL monitor.  Commands end with ; or \g.
Your MySQL connection id is 71
Server version: xxxxx

Type 'help;' or '\h' for help. Type '\c' to clear the buffer.

mysql>

Y hacemos una prueba más, supongamos que como 'jaa' tenemos en nuestras manos la clave privada y certificado de 'pepe' (digamos que pepe confia en que no lo venderemos por ahí), entonces:

jaa@Patrulla-Delta:~/mysql-cert/2/jaa$ mysql --ssl-ca=ca-cert.pem --ssl-cert=pepe-cert.pem --ssl-key=pepe-key.pem -u jaa -h 192.168.1.1 -p
Enter password:
Welcome to the MySQL monitor.  Commands end with ; or \g.
Your MySQL connection id is 71
Server version: xxxxx

Type 'help;' or '\h' for help. Type '\c' to clear the buffer.

mysql>

vemos que podemos utilizar el certificado y clave de pepe sin ningún problema para conectarnos con nuestro usuario. Esto es debido a que todos los usuarios de clientes que generamos comparten el issuer.

Nivel 4- Este es el nivel más seguro; en este le decimos al servidor que un cliente solo puede conectarse si presenta su propio certificado. En este caso utilizamos el "SUBJECT", el cual tiene los datos del usuario (cliente) mismo.
Primero obtenemos el subject del certificado:

jaa@Patrulla-Delta:~/mysql-cert/2$ openssl x509 -in jaa-cert.pem -noout -subject
subject= /C=AR/ST=Buenos Aires/L=Brandsen/O=JAATesting/OU=Programacion/CN=Jonatan Anauati/emailAddress=janauati@openorange.com.ar

Al igual que para el issuer, el subject es lo que viene despues de "subject= ".
Entonces vamos a mysql:

si el usuario no existía:
mysql> create user jaa@'%';
Las siguientes dos son alternativas, si el usuario quedo del ejemplo anterior, en otro
caso pueden ser saltadas.
mysql> revoke all privileges on *.* from test2@'%';
mysql> update mysql.user set password=NULL where User=jaa2@'%';
Query OK, 0 rows affected (0.00 sec)
mysql> GRANT ALL PRIVILEGES ON *.* TO 'jaa'@'%'
-> REQUIRE SUBJECT '/C=AR/ST=Buenos Aires/L=Brandsen/O=JAATesting/OU=Programacion/CN=Jonatan Anauati/emailAddress=janauati@openorange.com.ar';
mysql> flush privileges;

y ahora solo falta conectarnos:

jaa@Patrulla-Delta:~/mysql-cert/2/jaa$ mysql --ssl-ca=ca-cert.pem --ssl-cert=jaa-cert.pem --ssl-key=jaa-key.pem -u jaa -h 192.168.1.1
Enter password:
Welcome to the MySQL monitor.  Commands end with ; or \g.
Your MySQL connection id is 71
Server version: xxxxx

Type 'help;' or '\h' for help. Type '\c' to clear the buffer.

mysql>

Para este caso, al usuario le quité el password, ya que unicamente el puede conectarse ya que requiere siempre presentar su certificado y firmar (y desencriptar) con su clave privada ante el servidor.

Si en este útimo caso intentamos conectar al servidor sin presentar nuestras credenciales estamos fritos, y además tampoco podemos usar el certificado y clave del usuario 'pepe'.

Con todo esto el servidor debería quedar funcionando.

Instanciación e invocación dinámica en mono/.net

2008-08-23T13:24:00.000-07:00

En esta entrada muestro un ejemplo de lo fácil que es crear una instancia de clase dinámicamente en mono/.net y además ejecutar métodos.

Primero muestro un ensamblado (archivo.dll) que vamos a usar de prueba, el siguiente es entonces el archivo "TestAssembly.cs":


class TestAssemblyNs
{
   public class TestClass
   {
       public TestClass ()
       {
           System.Console.WriteLine ("Constructor de {0}", this.GetType().FullName);
       }
       public void metodoTest (int param1, string param2)
       {
           System.Console.WriteLine ("metodoTest({0},{1})",param1, param2);
       }
   }
}

para compilarlo simplemente:

$ mcs -target:library TestAssembly.cs

lo cual generó un archivo: TestAssembly.dll

Ahora el código del ejemplo, el cual lo guardamos en el archivo "TestActivator.cs":

namespace TestActivator
{
   using System;
   using System.Reflection;
   class ClaseEjemplo
   {
       public ClaseEjemplo ()
       {
           System.Console.WriteLine("Constructor de {0}",this.GetType().FullName);
       }
       public void metodo ()
       {
           System.Console.WriteLine ("metodo ()");
       }
   }
   class MainClass
   {
       public static void Main (string[] args)
       {
           ClaseEjemplo obj=null;
           object noRegistrado=null;
           // EJEMPLO 1
           Type t = typeof (ClaseEjemplo);
           // instancia el objeto
           obj = (ClaseEjemplo)System.Activator.CreateInstance (t);
           // llama el metodo
           obj.metodo ();
           // EJEMPLO 2: la clase esta en una dll externa. Invoca el método 
           // dinámicamente.
           // carga el assembly (el archivo)
           Assembly ass = Assembly.LoadFrom ("TestAssembly.dll");
           // trae el tipo del ns.
           Type ns = ass.GetType ("TestAssemblyNs");
           // dentro del ns busca el tipo correspondiente a TestClass
           Type ta =ns.GetNestedType("TestClass",BindingFlags.Public);
           // instancia el objeto.
           noRegistrado = System.Activator.CreateInstance (ta);
           // obtiene la metada del método.
           MethodInfo minf  = noRegistrado.GetType ().GetMethod ("metodoTest");
           // llama el metodo
           object[] paramList= new object[] {1,"parametro de prueba"};
           minf.Invoke (noRegistrado, paramList);
       }
   }
}

para compilarlo:
$ mcs TestActivator.cs

entonces la cosa queda así:

jaa@dino-thunder:/tmp/mono$ ls
TestActivator.exe TestAssembly.dll

y podemos ejecutar el ejemplo:

jaa@dino-thunder:/tmp/mono$ mono TestActivator.exe
Constructor de TestActivator.ClaseEjemplo
metodo ()
Constructor de TestAssemblyNs+TestClass
metodoTest(1,parametro de prueba)
jaa@dino-thunder:/tmp/mono$

Servidor Https en python

2008-08-18T15:38:00.000-07:00

Bueno, la verdad que tenía que dejar el comentario, después de tanto buscar, al final encontré la forma de levantar un servidor web en python bajo https.

tlslite es la distribución de código que nos ayuda con esta tarea. Trae codigo de ejemplo, y además un certificado x509 y un private key de prueba.

Si vemos en el directorio test, ahi adentro encontraremos el archivo httpsserver.py, el cual trae un servidor https de ejemplo:


 1 from SocketServer import *
 2 from BaseHTTPServer import *
 3 from SimpleHTTPServer import *
 4 from tlslite.api import *
 5 
 6 s = open("./serverX509Cert.pem").read()
 7 x509 = X509()
 8 x509.parse(s)
 9 certChain = X509CertChain([x509])
10 
11 s = open("./serverX509Key.pem").read()
12 privateKey = parsePEMKey(s, private=True)
13 
14 sessionCache = SessionCache()
15 
16 class MyHTTPServer(ThreadingMixIn, TLSSocketServerMixIn, HTTPServer):
17     def handshake(self, tlsConnection):
18         try:
19             tlsConnection.handshakeServer(certChain=certChain,
20                                           privateKey=privateKey,
21                                           sessionCache=sessionCache)
22             tlsConnection.ignoreAbruptClose = True
23             return True
24         except TLSError, error:
25             print "Handshake failure:", str(error)
26             return False
27 
28 httpd = MyHTTPServer(('localhost', 443), SimpleHTTPRequestHandler)
29 httpd.serve_forever()

Lo mejor de todo, es que la implementación está en python puro, así que todo funciona sin necesidad de compilaciones poco amigables.

Para probarlo simplemente:
jaa@dino-thunder:~/taller/tlslite-0.3.8$ cp test/httpsserver.py .
jaa@dino-thunder:~/taller/tlslite-0.3.8$ cp test/serverX509Cert.pem .
jaa@dino-thunder:~/taller/tlslite-0.3.8$ cp test/serverX509Key.pem .
jaa@dino-thunder:~/taller/tlslite-0.3.8$ ls -l
total 54
drwx------ 4 jaa jaa 160 2005-02-21 23:44 docs
-rwx------ 1 jaa jaa 950 2008-08-18 19:46 httpsserver.py
drwx------ 2 jaa jaa 144 2005-02-21 23:44 installers
-rwx------ 1 jaa jaa 1934 2005-02-21 22:53 make_release.py
-rwx------ 1 jaa jaa 30268 2005-02-21 23:13 readme.txt
drwx------ 2 jaa jaa 96 2005-02-21 23:44 scripts
-rwx------ 1 jaa jaa 973 2008-08-18 19:46 serverX509Cert.pem
-rwx------ 1 jaa jaa 887 2008-08-18 19:46 serverX509Key.pem
-rwx------ 1 jaa jaa 824 2005-02-21 22:57 setup.py
drwx------ 3 jaa jaa 656 2008-08-18 19:44 test
drwx------ 4 jaa jaa 1272 2008-08-06 17:54 tlslite
jaa@dino-thunder:~/taller/tlslite-0.3.8$ sudo python ./httpsserver.py

obviamente, hay que ejecutar como root, ya que para levantar un servidor https (port 443) necesitamos ser root.

Si vamos a nuestro browser, y hacemos https://localhost, entonces vamos a ver el listado del directorio donde ejecutamos httpsserver.py, y para empezar a jugar, podemos poner ahí un html e intentar verlo desde el browser.

Despues agrego los comandos para generar nuestros propios certificados.

Gtk.TreeView: Ejemplos útiles.

2008-08-07T11:39:00.000-07:00

Gtk.TreeView: Ejemplos útiles.

Bueno, en este artículo voy a mostrar algunas de las capacidades ocultas del widget TreeView de Gtk#. El TreeView de Gtk es un componente muy util, si bien es un poco intimidante en los primeros pasos, con la práctica, podemos llegar a dominarlo de alguna forma, o por lo menos entenderlo un poco, de manera que nuestras próximas experiencias no sean tan complicadas.

Hoy voy a mostrar un par de ejemplos de un TreeView, utilizando el modelo de lista de elementos.

Teoría: la teoría no le gusta a nadie, pero en este caso es necesaria aunque sea un poco. Para poder generar un listado con el TreeView hay que tener presentes 3 puntos principales, los cuales están muy relacionados y son todos necesarios:

1 - TreeView: el widget principal, actua como punto de conexion de los dos componentes que abajo describo para lograr una vista de la información directamente hacia el usuario.

2 - TreeModel: el tree model, es el modelo de datos que vamos a utilizar. Define como se almacenan los datos, por ejemplo una Lista (ListStore) o un arbol (TreeStore).
Al crear un TreeModel, debemos informarle que tipos de datos va a contener; Si creamos un ListStore, por ejemplo debemos informarle el tipo de cada uno de los campos. Abajo muestro el constructor:


  public ListStore (params Type [] types);

entonces podemos hacer lo siguiente:


  ListStore ngine = new ListStore (typeof(string), typeof(int));


  Type[] tlist = new Type[] {typeof (string), typeof (int)};
  ListStore ngine = new ListStore (tlist);

3 - CellRenderer: como su nombre lo indica, es el encargado de dibujar cada celda en el TreeView. Dependiendo de la naturaleza de los datos que vamos a mostrar debemos elegir entre uno de varios cell renderers: CellRendererText para texto, CellRendererPixbuf para imagenenes, etc. Es interesante saber que cada celda puede contener mas de un CellRenderer, permitiendo mostrar por ejemplo una imagen y texto a su lado, o las combinaciones que se requieran.

Nombrados estos tres explico un poco como funcionan:
El TreeView es el widget principal, el cual es el encargado de interactuar con el usuario. Cada TreeView debe tener asociado a el un TreeModel (2), si lo que se va a mostrar es un listado en forma de tabla, entonces será un ListStore. Además, el tree view, contiene un conjunto de columnas, cada columna definirá la configuración de las celdas que contiene, es decir a cada columna le diremos cuales cell renderers deben utilizar sus celdas entre otras cosas.

Este es el esquema:


   TreeViewColumn <----> TreeView <----> TreeModel
       | 
       | 
   CellRenrer, CellRenderer,...

Bueno, hechas las aclaraciones teóricas principales, restan algunos puntos, que voy a aclarar con los ejemplos, porque va a ser mas facil de entender así.

Ejemplo 1. TreeView Con editor de fecha.

Este demostrará las siguientes características:
Visualmente:
En este ejemplo muestro la creacion de un treeview con dos columnas. La primera contiene solo un nombre, mientras que la segunda tiene la tarea de mostrar un campo de fecha. Ademas, ambas columnas van a permitir la edición de sus valores:
- la primera permitirá la edición del nombre
- la segunda permitirá la edición de la fecha, pero la gracia es que lo hara por partes __ / __ / ____, donde las "/" permanecerán fijas, y tendrá una validación de la fecha editada, si es incorrecta, entonces revertirá la edición.
Internamente:

En el interior, este ejemplo muestra como añadir objetos de clases especificas al tree view. Por ejemplo supongamos que tenemos la siguiente clase:


  class Persona
  {
      public string nombre;
      public DateTime nacimiento;
      public Persona (string nombre, DateTime nacimiento)
      {
          this.nombre = nombre;
          this.nacimiento = nacimiento;
      }
  }

Entonces lo que haremos será directamente instanciar estos objetos y meterlos
directamente en nuestro tree model. Para esto tenemos que tener en claro varios
puntos.

a) Creacion del ListStore:


  ListStore ngine = new ListStore (typeof (Persona), typeof (Persona));

b) Cada cell renderer deberá saber como mostrar su valor especifico al usuario,
y además en caso de que se haga edición del valor contenido, también debe
conocer como asignar el nuevo valor al objeto Persona correspondiente. Para ello tenemos las siguientes:


public void SetCellDataFunc
      (CellRenderer cell_renderer,
      TreeCellDataFunc func);
  public delegate void TreeCellDataFunc
      (TreeViewColumn tree_column,
      CellRenderer cell,
      TreeModel tree_model,
      TreeIter iter);
  public event EditedHandler Edited; //(del CellRendererText);

La primeras dos sirven para decirle a cada celda en la columna, como debe obtener los datos a mostrar por el cell renderer. Es decir su función está en obtener el objeto Persona indicado de un lugar particular, tomar el atributo a mostrar (por ejemplo nombre), y entregárselo al cell renderer:


Persona p;
  // obtengo y asigno el valor a p
  ((CellRendererText)cell).Markup = p.nombre;

La última es para hacer el camino inverso, al editarse el valor en la celda del tree view (especificamente en el cell renderer), se lanza el evento, entonces actuamos en consecuencia tomando el nuevo valor, y asignándoselo a la instancia de Persona adecuada.

Bueno, sin mas palabras vamos a ver el código:


/*
 * Autor: Jonatan Anauati.
 * Email: barakawins@gmail.com
 * Licencia: LGPL.
 *
 * Descripcion:
 *      Este ejemplo muestra un TreeView con el modelo de lista. En una de las
 * columnas de dicho TreeView se ven empaquetados mas de un CellRendererText,
 * para permitir el ingreso de una fecha parte por parte (dd / mm / yyyy).
 * Ademas permite entender el uso del metodo SetCellDataFunc, el cual permite
 * definir una manejadora para poder utilizar tipos complejos en el almacen de
 * datos subyacente (ListStore).
 * Otra cosa que agrego en este, es la capacidad de ordenar valores, que como
 * se están utilizando tipos complejos en el ListStore, se pierde inicialmente.
 * 
 */
namespace TreeViewExample
{
    using System;
    using Gtk;

    class Persona
    {
        public string nombre;
        public DateTime nacimiento;
        public Persona (string nombre, DateTime nacimiento)
        {
            this.nombre = nombre;
            this.nacimiento = nacimiento;
        }
    }
    class TreeViewExample
    {
        // el widget treeview
        TreeView tv;
        // para contener los datos que el treeview muestra
        ListStore ngine;
        public TreeView BuildTreeView ()
        {
            CellRendererText    nameCrt, dayCrt, monthCrt, yearCrt,
                                dateSep1Crt, dateSep2Crt;
            TreeViewColumn nameCol, dateCol;
            // los cellrenderers, estos son los encargadados de mostrar el 
            // valor en la celda que se les asigna.
            nameCrt = new CellRendererText ();
            nameCrt.Editable = true;
            dayCrt = new CellRendererText ();
            dayCrt.Editable = true;
            monthCrt = new CellRendererText ();
            monthCrt.Editable = true;
            yearCrt = new CellRendererText ();
            yearCrt.Editable = true;
            dateSep1Crt = new CellRendererText ();
            // Markup contiene el valor final a mostrar.
            dateSep1Crt.Markup = "/";
            dateSep2Crt = new CellRendererText ();
            dateSep2Crt.Markup = "/";
            // ahora pueden inicializarse las columnas. Cada una de estas
            // va a recivir uno o mas cellRenderers, los cuales dibujaran
            // los valores en cada una de sus celdas.
            nameCol = new TreeViewColumn ();
            dateCol = new TreeViewColumn ();
            // ahora todo lo importante.
            nameCol.PackStart (nameCrt,true);
            dateCol.PackStart (dayCrt,false);
            dateCol.PackStart (dateSep1Crt,false);
            dateCol.PackStart (monthCrt,false);
            dateCol.PackStart (dateSep2Crt,false);
            dateCol.PackStart (yearCrt,true);

            // contenedor de los datos en el bajo nivel. Esta sera la lista 
            // que va a contener toda la informacion.
            this.ngine = new ListStore (typeof (Persona),typeof (Persona));
            // contenedor principal.
            this.tv = new TreeView (this.ngine);
            this.tv.HeadersClickable = false;
            this.tv.EnableSearch = false;
            this.tv.RulesHint=true;
            this.tv.HeadersVisible = true;
            this.tv.AppendColumn (nameCol);
            this.tv.AppendColumn (dateCol);
            // ahora le digo a cada columna como tiene rellenar cada celda de
            // el ListStore que le asignamos. Hace el parseo entre el Tipo 
            // Persona, y la columna correspondiente.
            // ListStore -> (Columna,cellrenderer)
            nameCol.SetCellDataFunc (nameCrt, new TreeCellDataFunc (showNombrePersona));
            dateCol.SetCellDataFunc (dayCrt, new TreeCellDataFunc (showDiaNacPersona));
            dateCol.SetCellDataFunc (monthCrt, new TreeCellDataFunc (showMesNacPersona));
            dateCol.SetCellDataFunc (yearCrt, new TreeCellDataFunc (showAnoNacPersona));
            // ahora el proceso inverso, el usuario edita un cellrt dentro de un column,
            // y entonces se lanza el callback necesario para que verifique el valor, y
            // ademas si este es valido, se lo asigne al objeto Persona en su atributo
            // indicado.
            nameCrt.Edited += new Gtk.EditedHandler (nombreCellEdited);
            yearCrt.Edited += new Gtk.EditedHandler (yearCellEdited);
            monthCrt.Edited += new Gtk.EditedHandler (monthCellEdited);
            dayCrt.Edited += new Gtk.EditedHandler (dayCellEdited);
            // ahora el toque que faltaba
            // propiedades y eventos visuales.
            nameCol.Resizable = true;
            nameCol.Title = "Nombre";
            dateCol.Resizable = true;
            dateCol.Title = "Fecha de Nacimiento";
            // Genera datos de testing y los carga al treeview.
            this.LoadListStore ();
            return this.tv;
        }

        // Cada TreeCellDataFunc, es encargada de:
        //  1 - Buscar el objeto correspondiente en el ListStore.
        //  2 - Tomar el valor indicado de dicho objeto (nombre o nacimiento).
        //  3 - Asignar el valor al CellRenderer, para que se vea dibujado en 
        //      la celda.
        public void showNombrePersona (
           Gtk.TreeViewColumn tree_column,
           Gtk.CellRenderer cell,
           Gtk.TreeModel tree_model,
           Gtk.TreeIter iter )
        {
            // 0 (cero) indica el numero de columna. Igualmente, creo que es
            // bastante claro que aquí puedo utilizar 0 o 1, de forma 
            // indistinta, ya que nuestro ListStore contiene la misma 
            // referencia a Persona en ambos cells.
            Persona p =(Persona)this.ngine.GetValue (iter,0);
            if (p == null) return;
            string nom = (p.nombre == null)?"":p.nombre;
            // Lo siguiente es mostrar el valor en la celda, Markup como ya 
            // dije es el atributo cuyo valor se muestra directamente en la
            // celda.
            ((CellRendererText) cell).Markup = nom;
        }

        public void showDiaNacPersona (
           Gtk.TreeViewColumn tree_column,
           Gtk.CellRenderer cell,
           Gtk.TreeModel tree_model,
           Gtk.TreeIter iter )
        {
            Persona p =(Persona)this.ngine.GetValue (iter,1);
            if (p == null) return;
            DateTime d = p.nacimiento;
            string val = d.Day.ToString ().PadLeft (2,'0');
            ((CellRendererText) cell).Markup = val;
        }

        public void showMesNacPersona (
           Gtk.TreeViewColumn tree_column,
           Gtk.CellRenderer cell,
           Gtk.TreeModel tree_model,
           Gtk.TreeIter iter )
        {
            Persona p =(Persona)this.ngine.GetValue (iter,1);
            if (p == null) return;
            DateTime d = p.nacimiento;
            string val = d.Month.ToString ().PadLeft (2,'0');
            ((CellRendererText) cell).Markup = val;
        }

        public void showAnoNacPersona (
           Gtk.TreeViewColumn tree_column,
           Gtk.CellRenderer cell,
           Gtk.TreeModel tree_model,
           Gtk.TreeIter iter )
        {
            Persona p =(Persona)this.ngine.GetValue (iter,1);
            if (p == null) return;
            DateTime d = p.nacimiento;
            string val = d.Year.ToString ().PadLeft (4,'0');
            ((CellRendererText) cell).Markup = val;
        }

        public void nombreCellEdited (object sender, EditedArgs args)
        {
            TreeIter rowPointer;
            TreePath temp_path;
            Persona p;
            temp_path = new Gtk.TreePath (args.Path);
            this.ngine.GetIter (out rowPointer, temp_path);
            // tree iter, columna
            p = (Persona) this.ngine.GetValue (rowPointer,0);
            p.nombre = args.NewText;
        }

        public void yearCellEdited (object sender, EditedArgs args)
        {
            TreeIter rowPointer;
            TreePath temp_path;
            Persona p;
            temp_path = new Gtk.TreePath (args.Path);
            this.ngine.GetIter (out rowPointer, temp_path);
            // tree iter, columna
            p = (Persona) this.ngine.GetValue (rowPointer,1);
            try
            {
                int y = int.Parse(args.NewText);
                DateTime dt = new DateTime (y,p.nacimiento.Month, p.nacimiento.Day);
                p.nacimiento = dt;
            }
            catch (System.Exception ex)
            { }
        }
        public void monthCellEdited (object sender, EditedArgs args)
        {
            TreeIter rowPointer;
            TreePath temp_path;
            Persona p;
            temp_path = new Gtk.TreePath (args.Path);
            this.ngine.GetIter (out rowPointer, temp_path);
            // tree iter, columna
            p = (Persona) this.ngine.GetValue (rowPointer,1);
            try
            {
                int m = int.Parse(args.NewText);
                DateTime dt = new DateTime (p.nacimiento.Year,m, p.nacimiento.Day);
                p.nacimiento = dt;
            }
            catch (System.Exception ex)
            { }
        }

        public void dayCellEdited (object sender, EditedArgs args)
        {
            TreeIter rowPointer;
            TreePath temp_path;
            Persona p;
            temp_path = new Gtk.TreePath (args.Path);
            this.ngine.GetIter (out rowPointer, temp_path);
            // tree iter, columna
            p = (Persona) this.ngine.GetValue (rowPointer,1);
            try
            {
                int d = int.Parse(args.NewText);
                DateTime dt = new DateTime (p.nacimiento.Year,p.nacimiento.Month, d);
                p.nacimiento = dt;
            }
            catch (System.Exception ex)
            { }
        }

        int[,] TestDates = new int[,] { {2000,10,9}, {1980,2, 10}, {1990,5,24}, {1929, 3, 3}, {1993, 12, 7}};
        string[] TestNombres= {"Juan Peres", "Jorge Pindocha", "Ernesto Rodrigues","Adrian Dilori","Clemente Tomas Taus"};
        public void LoadListStore ()
        {
            for (int i = 0; i < TestNombres.Length; i++)
            {
                DateTime nac = new DateTime (TestDates[i,0], TestDates[i,1],TestDates[i,2]);
                Persona p = new Persona (TestNombres[i],nac);
                this.ngine.AppendValues (p,p);
            }

        }
    }

    public class MainClass
    {
        public static void Main (string[] args)
        {
            Application.Init ();
            Window main = new Window ("TreeView de Ejemplo");
            main.DeleteEvent +=  new DeleteEventHandler (OnDeleteWindow);
            TreeView tv = new TreeViewExample().BuildTreeView ();
            main.Add (tv);
            main.ShowAll();
            Application.Run ();
        }

        static void OnDeleteWindow (object sender, DeleteEventArgs args)
        {
            Application.Quit ();
        }
    }
}

para compilar:
mcs -pkg:gtk-sharp-2.0 TreeViewExample.cs

Ejemplo 2. TreeView Con editor de fecha, ordenamiento y busquedas.

Bueno, el ejemplo anterior fué bonito, pero, al hacer todas estas achurías, perdimos dos capacidades muy útiles:

a) capacidad de ordenamiento.
b) capacidad de busqueda.

Pero todo tiene solucion, para ello al ejemplo anterior le incorporamos el uso de las siguientes:


public void SetSortFunc
      (int sort_column_id, TreeIterCompareFunc sort_func)
  public delegate int TreeIterCompareFunc
      (TreeModel model, TreeIter a, TreeIter b)

del ListStore, las que utilizamos para para permitir el ordenamiento de las celdas en una columna y además las siguientes:


font >public TreeViewSearchEqualFunc SearchEqualFunc { set; get; }
  public delegate bool TreeViewSearchEqualFunc
      (TreeModel model, int column, string key, TreeIter iter)

del TreeView, las cuales utilizamos para la búqueda de valores en el treeview por demanda.
Para aprobechar el nivel de personalización que nos brinda el TreeView, a las búsquedas le vamos a agregar el uso de expresiones regulares.
Por ejemplo:

"*eres", llegara a "Juan Peres", y todas los delirios que se quieran: "J.\+s", llegará a "Juan Peres", y todo lo que se quiera.

Por otra parte, también vamos a hacer una lectura mas o menos inteligente de las fechas a buscar

dd-mm-aaaa llegará a dd/mm/aa
dd /mm/aaaa llegará a dd/mm/aaaa


/*
 * Autor: Jonatan Anauati.
 * Email: barakawins@gmail.com
 * Licencia: LGPL.
 *
 * Descripcion:
 *      Este ejemplo muestra un TreeView con el modelo de lista. En una de las
 * columnas de dicho TreeView se ven empaquetados mas de un CellRendererText,
 * para permitir el ingreso de una fecha parte por parte (dd / mm / yyyy).
 * Ademas permite entender el uso del metodo SetCellDataFunc, el cual permite
 * definir una manejadora para poder utilizar tipos complejos en el almacen de
 * datos subyacente (ListStore).
 * Otra cosa que agrego en este, es la capacidad de ordenar valores, que como
 * se están utilizando tipos complejos en el ListStore, se pierde inicialmente.
 * 
 */
namespace TreeViewExample
{
    using System;
    using Gtk;
    using System.Text;
    using System.Text.RegularExpressions;

    class Persona
    {
        public string nombre;
        public DateTime nacimiento;
        public Persona (string nombre, DateTime nacimiento)
        {
            this.nombre = nombre;
            this.nacimiento = nacimiento;
        }
    }

    class TreeViewExample
    {
        // el widget treeview
        TreeView tv;
        // para contener los datos que el treeview muestra
        ListStore ngine;
        public TreeView BuildTreeView ()
        {
            CellRendererText    nameCrt, dayCrt, monthCrt, yearCrt,
                                dateSep1Crt, dateSep2Crt;
            TreeViewColumn nameCol, dateCol;
            // los cellrenderers, estos son los encargadados de mostrar el 
            // valor en la celda que se les asigna.
            nameCrt = new CellRendererText ();
            nameCrt.Editable = true;
            dayCrt = new CellRendererText ();
            dayCrt.Editable = true;
            monthCrt = new CellRendererText ();
            monthCrt.Editable = true;
            yearCrt = new CellRendererText ();
            yearCrt.Editable = true;
            dateSep1Crt = new CellRendererText ();
            // Markup contiene el valor final a mostrar.
            dateSep1Crt.Markup = "/";
            dateSep2Crt = new CellRendererText ();
            dateSep2Crt.Markup = "/";
            // ahora pueden inicializarse las columnas. Cada una de estas
            // va a recivir uno o mas cellRenderers, los cuales dibujaran
            // los valores en cada una de sus celdas.
            nameCol = new TreeViewColumn ();
            dateCol = new TreeViewColumn ();
            // ahora todo lo importante.
            nameCol.PackStart (nameCrt,true);
            dateCol.PackStart (dayCrt,false);
            dateCol.PackStart (dateSep1Crt,false);
            dateCol.PackStart (monthCrt,false);
            dateCol.PackStart (dateSep2Crt,false);
            dateCol.PackStart (yearCrt,true);

            // contenedor de los datos en el bajo nivel. Esta sera la lista 
            // que va a contener toda la informacion.
            this.ngine = new ListStore (typeof (Persona),typeof (Persona));
            // contenedor principal.
            this.tv = new TreeView (this.ngine);
            this.tv.HeadersClickable = false;
            this.tv.EnableSearch = true;
            this.tv.RulesHint=true;
            this.tv.HeadersVisible = true;
            this.tv.AppendColumn (nameCol);
            this.tv.AppendColumn (dateCol);
            // ahora le digo a cada columna como tiene rellenar cada celda de
            // el ListStore que le asignamos. Hace el parseo entre el Tipo 
            // Persona, y la columna correspondiente.
            // ListStore -> (Columna,cellrenderer)
            nameCol.SetCellDataFunc (nameCrt, new TreeCellDataFunc (showNombrePersona));
            dateCol.SetCellDataFunc (dayCrt, new TreeCellDataFunc (showDiaNacPersona));
            dateCol.SetCellDataFunc (monthCrt, new TreeCellDataFunc (showMesNacPersona));
            dateCol.SetCellDataFunc (yearCrt, new TreeCellDataFunc (showAnoNacPersona));
            // ahora el proceso inverso, el usuario edita un cellrt dentro de un column,
            // y entonces se lanza el callback necesario para que verifique el valor, y
            // ademas si este es valido, se lo asigne al objeto Persona en su atributo
            // indicado.
            nameCrt.Edited += new Gtk.EditedHandler (nombreCellEdited);
            yearCrt.Edited += new Gtk.EditedHandler (yearCellEdited);
            monthCrt.Edited += new Gtk.EditedHandler (monthCellEdited);
            dayCrt.Edited += new Gtk.EditedHandler (dayCellEdited);
            // propiedades y eventos visuales.
            nameCol.Resizable = true;
            nameCol.Title = "Nombre";
            dateCol.Resizable = true;
            dateCol.Title = "Fecha de Nacimiento";
            // Activa el ordenamiento
            ngine.SetSortFunc (0, new TreeIterCompareFunc(NombreCompareFunc));
            ngine.SetSortFunc (1, new TreeIterCompareFunc(DateCompareFunc));
            for (int i=0; i < tv.Columns.Length; i++)
            {
                this.tv.Columns[i].SortColumnId = i;
                this.tv.Columns[i].SortColumnId = i;
            }
            // Activa la busqueda !
            tv.SearchEqualFunc =  new TreeViewSearchEqualFunc (treeSearchFcn);
            tv.SearchColumn = 0;
            foreach (TreeViewColumn tvc in this.tv.Columns)
                tvc.Clicked += new System.EventHandler
                    (OnColumnClickedCallBack);
            // Genera datos de testing y los carga al treeview.
            this.LoadListStore ();
            return this.tv;
        }

        // Cada TreeCellDataFunc, es encargada de:
        //  1 - Buscar el objeto correspondiente en el ListStore.
        //  2 - Tomar el valor indicado de dicho objeto (nombre o nacimiento).
        //  3 - Asignar el valor al CellRenderer, para que se vea dibujado en 
        //      la celda.
        public void showNombrePersona (
           Gtk.TreeViewColumn tree_column,
           Gtk.CellRenderer cell,
           Gtk.TreeModel tree_model,
           Gtk.TreeIter iter )
        {
            // 0 (cero) indica el numero de columna. Igualmente, creo que es
            // bastante claro que aquí puedo utilizar 0 o 1, de forma 
            // indistinta, ya que nuestro ListStore contiene la misma 
            // referencia a Persona en ambos cells.
            Persona p =(Persona)this.ngine.GetValue (iter,0);
            if (p == null) return;
            string nom = (p.nombre == null)?"":p.nombre;
            // Lo siguiente es mostrar el valor en la celda, Markup como ya 
            // dije es el atributo cuyo valor se muestra directamente en la
            // celda.
            ((CellRendererText) cell).Markup = nom;
        }

        public void showDiaNacPersona (
           Gtk.TreeViewColumn tree_column,
           Gtk.CellRenderer cell,
           Gtk.TreeModel tree_model,
           Gtk.TreeIter iter )
        {
            Persona p =(Persona)this.ngine.GetValue (iter,1);
            if (p == null) return;
            DateTime d = p.nacimiento;
            string val = d.Day.ToString ().PadLeft (2,'0');
            ((CellRendererText) cell).Markup = val;
        }

        public void showMesNacPersona (
           Gtk.TreeViewColumn tree_column,
           Gtk.CellRenderer cell,
           Gtk.TreeModel tree_model,
           Gtk.TreeIter iter )
        {
            Persona p =(Persona)this.ngine.GetValue (iter,1);
            if (p == null) return;
            DateTime d = p.nacimiento;
            string val = d.Month.ToString ().PadLeft (2,'0');
            ((CellRendererText) cell).Markup = val;
        }

        public void showAnoNacPersona (
           Gtk.TreeViewColumn tree_column,
           Gtk.CellRenderer cell,
           Gtk.TreeModel tree_model,
           Gtk.TreeIter iter )
        {
            Persona p =(Persona)this.ngine.GetValue (iter,1);
            if (p == null) return;
            DateTime d = p.nacimiento;
            string val = d.Year.ToString ().PadLeft (4,'0');
            ((CellRendererText) cell).Markup = val;
        }

        public void nombreCellEdited (object sender, EditedArgs args)
        {
            TreeIter rowPointer;
            TreePath temp_path;
            Persona p;
            temp_path = new Gtk.TreePath (args.Path);
            this.ngine.GetIter (out rowPointer, temp_path);
            // tree iter, columna
            p = (Persona) this.ngine.GetValue (rowPointer,0);
            p.nombre = args.NewText;
        }

        public void yearCellEdited (object sender, EditedArgs args)
        {
            TreeIter rowPointer;
            TreePath temp_path;
            Persona p;
            temp_path = new Gtk.TreePath (args.Path);
            this.ngine.GetIter (out rowPointer, temp_path);
            // tree iter, columna
            p = (Persona) this.ngine.GetValue (rowPointer,1);
            try
            {
                int y = int.Parse(args.NewText);
                DateTime dt = new DateTime (y,p.nacimiento.Month, p.nacimiento.Day);
                p.nacimiento = dt;
            }
            catch (System.Exception ex)
            { }
        }
        public void monthCellEdited (object sender, EditedArgs args)
        {
            TreeIter rowPointer;
            TreePath temp_path;
            Persona p;
            temp_path = new Gtk.TreePath (args.Path);
            this.ngine.GetIter (out rowPointer, temp_path);
            // tree iter, columna
            p = (Persona) this.ngine.GetValue (rowPointer,1);
            try
            {
                int m = int.Parse(args.NewText);
                DateTime dt = new DateTime (p.nacimiento.Year,m, p.nacimiento.Day);
                p.nacimiento = dt;
            }
            catch (System.Exception ex)
            { }
        }

        public void dayCellEdited (object sender, EditedArgs args)
        {
            TreeIter rowPointer;
            TreePath temp_path;
            Persona p;
            temp_path = new Gtk.TreePath (args.Path);
            this.ngine.GetIter (out rowPointer, temp_path);
            // tree iter, columna
            p = (Persona) this.ngine.GetValue (rowPointer,1);
            try
            {
                int d = int.Parse(args.NewText);
                DateTime dt = new DateTime (p.nacimiento.Year,p.nacimiento.Month, d);
                p.nacimiento = dt;
            }
            catch (System.Exception ex)
            { }
        }

        int[,] TestDates = new int[,] { {2000,10,9}, {1980,2, 10}, {1990,5,24}, {1929, 3, 3}, {1993, 12, 7}};
        string[] TestNombres= {"Juan Peres", "Jorge Pindocha", "Ernesto Rodrigues","Adrian Dilori","Clemente Tomas Taus"};
        public void LoadListStore ()
        {
            for (int i = 0; i < TestNombres.Length; i++)
            {
                DateTime nac = new DateTime (TestDates[i,0], TestDates[i,1],TestDates[i,2]);
                Persona p = new Persona (TestNombres[i],nac);
                this.ngine.AppendValues (p,p);
            }
        }

        public virtual int NombreCompareFunc (TreeModel model, TreeIter src, TreeIter dst)
        {
            Persona srcObject=null, dstObject=null;
            IComparable srcVal=null, dstVal=null;
            int ret=0;
            srcObject = (Persona)((ListStore)model).GetValue (src,0);
            dstObject = (Persona)((ListStore)model).GetValue (dst,0);
            try
            {
                srcVal = (IComparable)srcObject.nombre;
                dstVal = (IComparable)dstObject.nombre;
                ret = srcVal.CompareTo (dstVal);
            }
            catch (InvalidCastException ex)
            {
                ;
            }
            return ret;
        }

        public virtual int DateCompareFunc (TreeModel model, TreeIter src, TreeIter dst)
        {
            Persona srcObject=null, dstObject=null;
            IComparable srcVal=null, dstVal=null;
            int ret=0;
            srcObject = (Persona)((ListStore)model).GetValue (src,1);
            dstObject = (Persona)((ListStore)model).GetValue (dst,1);
            try
            {
                srcVal = (IComparable)srcObject.nacimiento;
                dstVal = (IComparable)dstObject.nacimiento;
                ret = srcVal.CompareTo (dstVal);
            }
            catch (InvalidCastException ex)
            {
                ;
            }
            return ret;
        }

        // busqueda con expresiones regulares !
        // lo hacemos de esta forma para no tener que recompilar cada expresion
        // en cada busqueda sobre la misma columna.
        Regex searchEx= null;
        string regex = null;
        public bool treeSearchFcn
            (TreeModel model, int columnNr, string key, TreeIter iter)
        {
            try
            {
                if (this.regex == null || regex != key)
                {
                    StringBuilder sb = new StringBuilder ("^");
                    sb.Append(key);
                    sb.Replace ("*",".*");
                    if (columnNr == 1)
                    {
                        sb.Replace ("/","");
                        sb.Replace ("-","");
                        sb.Replace (" ","");
                    }
                    sb.Append(".*");
                    this.regex = key;
                    this.searchEx = new Regex (sb.ToString (),RegexOptions.IgnoreCase);
                }

                ListStore ngine = null;
                Persona row=null;
                string cellValue=null;
                ngine = (ListStore)model;
                // es indistinto si pongo 0 o 1 ya que ambos lugares guardan 
                // la misma referencia.
                row = (Persona) ngine.GetValue (iter, 0);
                if (columnNr == 0)
                    cellValue = row.nombre;
                else
                    cellValue = row.nacimiento.ToString ("%dd%MM%yyyy");
                //busqueda incremental seria algo así:
                //return !cellValue.StartsWith (key);
                //pero..., super busqueda con expresiones regulares !!!
                return !this.searchEx.IsMatch (cellValue);
            }
            catch (ArgumentException argEx)
            {
                this.regex = null;
                return true;
            }
        }

        public void OnColumnClickedCallBack (object sender, EventArgs args)
        {
            int cnr=0;
            foreach (TreeViewColumn tvc in this.tv.Columns)
            {
                if (sender == tvc) break;
                cnr++;
            }
            this.tv.SearchColumn = cnr;
        }
    }
    public class MainClass
    {
        public static void Main (string[] args)
        {
            Application.Init ();
            Window main = new Window ("TreeView de Ejemplo");
            main.DeleteEvent +=  new DeleteEventHandler (OnDeleteWindow);
            TreeView tv = new TreeViewExample().BuildTreeView ();
            main.Add (tv);
            main.ShowAll();
            Application.Run ();
        }

        static void OnDeleteWindow (object sender, DeleteEventArgs args)
        {
            Application.Quit ();
        }
    }
}

Bueno, espero que estos ejemplos le sean útiles a alguien, porque la verdad es que nunca pude encontrar ningún ejemplo mas o menos completo.

Instalación de mono 1.9.1 en Ubuntu.

2008-07-27T11:38:00.000-07:00

Si instalás la ultima version de mono desde el paquete binario (1.9.1), en ubuntu (y supongo cualquier otro linux), te vas a dar cuenta que no todo quedo bien. Cuando intentas ejecutar monodevelop, no va a funcionar por problemas con la mscorlib en primer lugar.

Así que para quien lo quiera hacer, les comento cuales son las cosas que hay que reparar:
- arreglar el problema de la mscorlib
- arreglar problemas con la carga de monodevelop que surgen luego.

Aclaro que todos los cambios que sugiero son sobre una instalación previa hecha como root, (usando sudo), y el path de instalación fue: "/opt/mono-1.9.1"

Pasos:
1- Crear los enlaces a las dll para que monodevelop pueda cargar los complementos en monodevelop.


jaa@dino-thunder:~$ cd /opt/mono-1.9.1/lib/monodevelop/AddIns/
jaa@dino-thunder:/opt/mono-1.9.1/lib/monodevelop/AddIns$ for f in */* ; do sudo ln -s $f . ; done

lo siguiente es para que cargue primero la dll con el soporte a C#. Sin esto no funcionarán muchos de los demas complementos como el Designer y tampoco permitirá compilar proyectos de C sharp (se que es un poco sucio, pero muy efectivo!).


jaa@dino-thunder:/opt/mono-1.9.1/lib/monodevelop/AddIns$ cd /opt/mono-1.9.1/lib/monodevelop/bin/
jaa@dino-thunder:/opt/mono-1.9.1/lib/monodevelop/bin$ sudo ln -s ../AddIns/MonoDevelop.CSharpBinding.* .

2- Ahora resta editar el fichero que hace que arranque monodevelop, con esto arreglamos también el problema de la mscorlib que surje porque el script en realidad intenta utilizar una versión de mono incorrecta (el binario de /usr/bin/mono que para mi caso es el de la distro).

jaa@dino-thunder:/opt/mono-1.9.1/lib/monodevelop/bin$ sudo vi /opt/mono-1.9.1/bin/monodevelop
(si no te gusta vi! podes usar gedit!!) y cambiamos las siguientes lineas:
-linea 56, ponemos un # al pricipio lo cual la invalida


#MD_BIN_PATH=/usr/lib/monodevelop/bin
- y debajo ponemos lo siguiente (quedaría en la linea 57):
MD_BIN_PATH=/opt/mono-1.9.1/lib/monodevelop/bin
-y al final del fichero, hacemos el siguiente cambio:
#exec -a "monodevelop"  /usr/bin/mono ./MonoDevelop.exe "$@"
exec -a "monodevelop"  /opt/mono-1.9.1/bin/mono ./MonoDevelop.exe "$@"

Es importante ver que este ultimo cambio solo afecta a la invocación normal del script. Si queremos utilizar las opciones de debug, trace o profile, hay que modificar entre las lineas 82 y 99, y cambiar todas las ocurrencias de /usr/bin/mono con con /opt/mono-1.9.1/bin/mono

Espero que le sirva a alguien, porque a mi me tomo unas dos o tres horas darme cuenta de que cambios realizar.

NOTA: este post, también lo envié a la lista de correo de mono hispano.

Consumir un Http Form con mono/.net

2008-07-02T14:53:00.000-07:00

En esta entrada muestro algo muy similar a lo que hago en esta (), en la cual consumo un método de un form http. A diferencia del artículo anterior, en esta oportunidad lo voy a hacer con mono (.net también).

En primer lugar presento una clase que generé, la cual es una abstracción de un http form:


    class HttpForm
    {
        public enum HttpFormMethod : uint
        {
            POST,
            GET
        }
        HttpFormMethod method;
        HttpWebRequest req;
        HttpWebResponse resp;
        Hashtable fields;
        string url=null;

        static string EncodeData (string paramName, string value)
        {
            return "&"+paramName+"="+HttpUtility.UrlEncode (value);
        }

        public HttpForm (string url, HttpFormMethod method)
        {
            fields = new Hashtable ();
            this.method = method;
            this.url = url;
        }

        public HttpForm AddField (string name, string val)
        {
            this.fields[name]=val;
            return this;
        }

        public HttpForm RemoveField (string name)
        {
            try
            {
                this.fields.Remove(name);
            }
            catch (Exception ex)
            { }
            return this;
        }

        private object getFieldsData ()
        {
            StringBuilder encodedData = new StringBuilder ();
            foreach (DictionaryEntry de in this.fields)
                encodedData.Append (EncodeData (de.Key.ToString(), de.Value.ToString()));
            if (this.method == HttpFormMethod.POST)
            {
                return System.Text.Encoding.Default.GetBytes (encodedData.ToString());
            }
            return encodedData.ToString();
        }

        public virtual string Invoke ()
        {

            Stream postDataWriter= null;
            StreamReader reader = null;
            string response = null;
            try
            {
                if (this.method == HttpFormMethod.POST)
                {
                    byte [] buffer = (byte[])this.getFieldsData ();
                    this.req = (HttpWebRequest)WebRequest.Create (url);
                    this.req.Method = method.ToString ();
                    this.req.ContentLength = buffer.Length;
                    postDataWriter = this.req.GetRequestStream ();
                    postDataWriter.Write (buffer, 0, buffer.Length);
                    postDataWriter.Close ();
                }
                else
                {
                    this.req = (HttpWebRequest)WebRequest.Create (url+"?"+this.getFieldsData ().ToString());
                    System.Console.WriteLine (url+"?"+this.getFieldsData ());
                }

                // obtiene la respuesta
                resp = (HttpWebResponse) this.req.GetResponse ();
                reader = new StreamReader (resp.GetResponseStream ());
                response = reader.ReadToEnd ();
                reader.Close ();
                resp.Close ();
            }
            catch (Exception ex)
            {
                if (reader != null) reader.Close ();
                if (resp != null) resp.Close ();
                throw ex;
            }
            return response;
        }
    }

Sus métodos son:


-public HttpForm (string url, HttpFormMethod method)

el constructor, el primer parametro es la url de la accion, y el segundo es la forma en que se envian los parámetros, si vemos en la declaracion del formulario, nos daremos cuenta cual es el valor indicado aquí:


<form name="Consultar" action="../cgi-bin/ConsultaDisponibilidad.py" method="POST">


-public HttpForm AddField (string name, string val)

agrega un campo al formulario, es decir un parámetro con su correspondiente valor.


<input type="hidden" name="lang" value="es"/>


-public HttpForm RemoveField (string name)

elimina un parámetro agregado con RemoveField ().


-public virtual string Invoke ()

simplemente invoca el método y retorna la respuesta de este, por ejemplo código html.

Bueno, ahora un ejemplo de su uso. En el siguiente, lo uso para buscar con google, y simplemente imprimo el codigo html resultante:


    HttpForm form = new HttpForm ("http://www.google.com.ar/search", HttpForm.HttpFormMethod.GET);
    form.AddField ("hl","es");
    form.AddField ("q","river+plate");
    string ret = form.Invoke ();
    System.Console.WriteLine (ret);

Por lo que se ve es facil de utilizar. Ahora vamos a mostrar un ejemplo un poquitito mas complicado, el cual utiliza herencia, y expresiones regulares para analizar la respuesta del método. Además el método es invocado utilizando POST:


    class GoogleTranslator
    : HttpForm
    {
        public enum Lang: uint
        {
            es,en
        }

        static string url="http://translate.google.com/translate_t?langpair=";
        static string ComposeLangPair (Lang fromLang, Lang toLang)
        {
            return fromLang.ToString()+"|"+toLang.ToString();
        }
        public GoogleTranslator (Lang fromLang, Lang toLang)
        : base (url+ComposeLangPair (fromLang, toLang), HttpFormMethod.POST)
        {
            this.AddField ("hl","es");
            this.AddField ("ie","UTF-8");
            this.AddField ("langpair",ComposeLangPair(fromLang, toLang));
        }

        static string ExtractTranslation (string htmlCode)
        {
            Regex TradRegex;
            Regex TradSubRegex;
            Match m;
            Group trad;
            string str_regex = @".*<div id=result_box dir=""ltr"">(([^<]+(<br>)*)*)</div>.*";
            string str_subregex = "[ ]?<br>";
            StringBuilder sb = null;
            string ret_val = null;
            TradRegex = new Regex (str_regex);
            TradSubRegex = new Regex (str_subregex);
            m = TradRegex.Match (htmlCode);
            if (m.Value != string.Empty)
                sb = new StringBuilder (m.Groups[1].Value);
            if (sb != null)
            {
                sb.Replace ("&lt;","<");
                sb.Replace ("&gt;",">");
                ret_val = sb.ToString ();
                sb = null;
                System.GC.Collect ();
                ret_val = TradSubRegex.Replace (ret_val,"\n");
            }
            return ret_val;
        }

        public string Translate (string text)
        {
            string result=null;
            this.RemoveField ("text");
            this.AddField ("text",text);
            result = this.Invoke ();
            return ExtractTranslation (result);
        }
    }

Este ejemplo utiliza la herencia para definir una nueva clase, la cual utiliza el servicio de traducción de texto de google.
Entonces solo nos resta utilizarlo:


    public static void Main(string[] args)
    {
        string result1 = null;
        string result2 = "";
        string text1="El perro es blanco";
        string text2="Este es otro ejemplo";
        GoogleTranslator gt = new GoogleTranslator (GoogleTranslator.Lang.es, GoogleTranslator.Lang.en);
        result1 = gt.Translate (text1);
        result2 = gt.Translate (text2);
        System.Console.WriteLine ("{0}: {1}",text1,result1);
        System.Console.WriteLine ("{0}: {1}",text2,result2);
    }

Bueno, ahora pongo todo este codigo completo para hacer copy/paste/test:


// project created on 01/04/2008 at 13:39
using System;
using System.Web;
using System.Net;
using System.IO;
using System.Text; // StringBuilder
using System.Text.RegularExpressions;
using System.Collections;

namespace TestHttpRequest
{
        class MainClass
        {
                public static void Main(string[] args)
                {
                    string result1 = null;
                    string result2 = "";
                    string text1="El perro es blanco";
                    string text2="Este es otro ejemplo";
                    GoogleTranslator gt = new GoogleTranslator (GoogleTranslator.Lang.es, GoogleTranslator.Lang.en);
                    result1 = gt.Translate (text1);
                    result2 = gt.Translate (text2);
                    System.Console.WriteLine ("{0}: {1}",text1,result1);
                    System.Console.WriteLine ("{0}: {1}",text2,result2);
                }

        }

    public enum Lang : short
    {
        es=0,
        en=1
    }


    class HttpForm
    {
        public enum HttpFormMethod : uint
        {
            POST,
            GET
        }
        HttpFormMethod method;
        HttpWebRequest req;
        HttpWebResponse resp;
        Hashtable fields;
        string url=null;

        static string EncodeData (string paramName, string value)
        {
            return "&"+paramName+"="+HttpUtility.UrlEncode (value);
        }

        public HttpForm (string url, HttpFormMethod method)
        {
            fields = new Hashtable ();
            this.method = method;
            this.url = url;
        }

        public HttpForm AddField (string name, string val)
        {
            this.fields[name]=val;
            return this;
        }

        public HttpForm RemoveField (string name)
        {
            try
            {
                this.fields.Remove(name);
            }
            catch (Exception ex)
            { }
            return this;
        }

        private object getFieldsData ()
        {
            StringBuilder encodedData = new StringBuilder ();
            foreach (DictionaryEntry de in this.fields)
                encodedData.Append (EncodeData (de.Key.ToString(), de.Value.ToString()));
            if (this.method == HttpFormMethod.POST)
            {
                return System.Text.Encoding.Default.GetBytes (encodedData.ToString());
            }
            return encodedData.ToString();
        }

        public virtual string Invoke ()
        {

            Stream postDataWriter= null;
            StreamReader reader = null;
            string response = null;
            try
            {
                if (this.method == HttpFormMethod.POST)
                {
                    byte [] buffer = (byte[])this.getFieldsData ();
                    this.req = (HttpWebRequest)WebRequest.Create (url);
                    this.req.Method = method.ToString ();
                    this.req.ContentLength = buffer.Length;
                    postDataWriter = this.req.GetRequestStream ();
                    postDataWriter.Write (buffer, 0, buffer.Length);
                    postDataWriter.Close ();
                }
                else
                {
                    this.req = (HttpWebRequest)WebRequest.Create (url+"?"+this.getFieldsData ().ToString());
                    System.Console.WriteLine (url+"?"+this.getFieldsData ());
                }

                // obtiene la respuesta
                resp = (HttpWebResponse) this.req.GetResponse ();
                reader = new StreamReader (resp.GetResponseStream ());
                response = reader.ReadToEnd ();
                reader.Close ();
                resp.Close ();
            }
            catch (Exception ex)
            {
                if (reader != null) reader.Close ();
                if (resp != null) resp.Close ();
                throw ex;
            }
            return response;
        }
    }

    class GoogleTranslator
    : HttpForm
    {
        public enum Lang: uint
        {
            es,en
        }

        static string url="http://translate.google.com/translate_t?langpair=";
        static string ComposeLangPair (Lang fromLang, Lang toLang)
        {
            return fromLang.ToString()+"|"+toLang.ToString();
        }
        public GoogleTranslator (Lang fromLang, Lang toLang)
        : base (url+ComposeLangPair (fromLang, toLang), HttpFormMethod.POST)
        {
            this.AddField ("hl","es");
            this.AddField ("ie","UTF-8");
            this.AddField ("langpair",ComposeLangPair(fromLang, toLang));
        }

        static string ExtractTranslation (string htmlCode)
        {
            Regex TradRegex;
            Regex TradSubRegex;
            Match m;
            Group trad;
            string str_regex = @".*<div id=result_box dir=""ltr"">(([^<]+(<br>)*)*)</div>.*";
            string str_subregex = "[ ]?<br>";
            StringBuilder sb = null;
            string ret_val = null;
            TradRegex = new Regex (str_regex);
            TradSubRegex = new Regex (str_subregex);
            m = TradRegex.Match (htmlCode);
            if (m.Value != string.Empty)
                sb = new StringBuilder (m.Groups[1].Value);
            if (sb != null)
            {
                sb.Replace ("&lt;","<");
                sb.Replace ("&gt;",">");
                ret_val = sb.ToString ();
                sb = null;
                System.GC.Collect ();
                ret_val = TradSubRegex.Replace (ret_val,"\n");
            }
            return ret_val;
        }

        public string Translate (string text)
        {
            string result=null;
            this.RemoveField ("text");
            this.AddField ("text",text);
            result = this.Invoke ();
            return ExtractTranslation (result);
        }
    }
}

para compilar, simplemente:
$ mcs archivo.cs -r:System.Web

un ejemplo de su uso:
jaa@dino-thunder:~$ mono archivo.exe
El perro es blanco: The dog is white
Este es otro ejemplo: This is another example
jaa@dino-thunder:~$

Y esto es todo por ahora.

Webservices para Mobiles: Comunicacion entre j2me y SOAPpy

2008-05-25T08:48:00.000-07:00

En este artículo voy a describir los pasos necesarios para la comunicacion por medio de webservices (SOAP + wsdl) entre un cliente movil - celular por ejemplo - y un servidor remoto en internet implementado en python con el uso de SOAPpy.
El cliente movil en teoría puede ser cualquier dispositivo que implemente midp-2.0 con el soporte especificado en jsr - 172.

Herramientas necesarias:
- Java sdk, y Java toolkit para desarrollo de aplicaciones j2me.
- Sun Java Wireless Toolkit 2.5.2
- Python v 2.4 o 2.5 (www.python.org)
- SOAPpy (http://pywebsvcs.sourceforge.net)

Esquema:

- El servidor esta implementado en python, y utilizando la libreria SOAPpy que es muy simple de usar. Esta contiene algunos bugs, (tal vez desprendidos de la simpleza), pero la idea es saltar estos para lograr conectividad.

- El cliente es una aplicacion java para dispositivos moviles. Las caracteriscas necesarias del movil deberan ser: soporte para midp-2.0 y una coneccion a internet.
Destaco que las pruebas que realizo las hago en el simulador incluido en Netbeans.

- Un fichero WSDL que describe como se implementan los metodos ofrecidos por el servidor.

Problemas:

- En primer punto SOAPpy no ofrece mecanismos para generar ficheros WSDL (o por lo menos no descubrí ninguna utilidad). Este fichero es necesario para la generacion del codigo java de la aplicacion cliente, para lo que se utiliza una aplicacion del Wireless Toolkit distribuido por Sun.

- El problema de conectividad surge en el uso de SOAPpy, la cual tiene algunos defectos en sus mecanismos de conectividad y en su documentacion que es MUY pobre.

Manos a la obra:

1. Diseñando el metodo para el servicio.
En primer lugar definimos el metodo para compartir. Nuestro metodo en python se define de la siguiente manera:

def request(String_1,String_2):
  r = "%s, sos %s" % (str(String_1), str(String_2))
return r

Como se ve en la declaracion, este metodo es simple, recive como parametros dos Strings y retorna un String.

2. Creando un fichero WSDL.
Esta es la tarea mas complicada si no sabemos nada de WSDL; sus siglas significan Web Services Description Language, y su utilidad es esa misma, definir todos los aspectos necesarios para poder describir como se comporta un Servicio Web. Lo que mas nos importa acá es:

- Una Seccion de definicion de tipos de datos: esto se hace en la seccion "types" del documento, e incluye:
- Tipos de datos de entrada (ej: parametros de un metodo).
- Tipos de datos de salida (ej:retorno de un metodo).

- Secciones de definicion de los mensajes: en la cual se define la forma en que se envian y reciben mensajes para los metodos.

- Secciones de definicion de Servicios: estas corresponden con las secciones portType, binding, operation y service, las cuales se encargan de todos los aspectos restantes de definicion de los servicios, es decir nombrar metodos, asociarles tipos de mensajes de ida y vuelta (parametros y retorno), y finalmente enlazarlos a un servicio dado.

El fichero WSDL es generado como un fichero XML, con tags y atributos especificos que reflejen la semántica antes detallada.
Si miramos en los ejemplos de wireless toolkit tendremos un fichero WSDL de ejemplo, nosotros lo modificamos a discrecion para poder reflejar los detalles de nuestro propio servicio, y la cosa nos queda así:


 1 <?xml version="1.0" encoding="UTF-8"?>
 2 <definitions xmlns="http://schemas.xmlsoap.org/wsdl/" 
 3         xmlns:tns="http://serverscript.org/wsdl" 
 4         xmlns:ns2="http://serverscript.org/types" 
 5         xmlns:xsd="http://www.w3.org/2001/XMLSchema" 
 6         xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" 
 7         name="serverscript" 
 8         targetNamespace="http://serverscript.org/wsdl">
 9     <types>
10         <schema xmlns="http://www.w3.org/2001/XMLSchema" 
11                 xmlns:tns="http://serverscript.org/types" 
12                 xmlns:soap11-enc="http://schemas.xmlsoap.org/soap/encoding/" 
13                 xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" 
14                 xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/" 
15                 targetNamespace="http://serverscript.org/types">
16             <import namespace="http://schemas.xmlsoap.org/soap/encoding/" />
17             <complexType name="request">
18                 <sequence>
19                 <element name="String_1" type="string" nillable="true"/>
20                 <element name="String_2" type="string" nillable="true"/>
21                 </sequence>
22             </complexType>
23             <complexType name="requestResponse">
24                 <sequence>
25                     <!-- este debe llamarse Result para que funcione -->
26                     <element name="Result" type="string" nillable="true"/>
27                 </sequence>
28             </complexType>
29             <element name="request" type="tns:request"/>
30             <element name="requestResponse" type="tns:requestResponse"/>
31             <!-- esto lo agrego -->
32         </schema>
33     </types>
34     <message name="Interface_request">
35         <part name="parameters" element="ns2:request"/>
36     </message>
37     <message name="Interface_requestResponse">
38         <part name="result" element="ns2:requestResponse"/>
39     </message>
40     <portType name="Interface">
41         <operation name="request">
42             <input message="tns:Interface_request"/>
43             <output message="tns:Interface_requestResponse"/>
44         </operation>
45     </portType>
46     <binding name="InterfaceBinding" type="tns:Interface">
47     <operation name="request">
48         <input>
49             <soap:body use="literal"/>
50         </input>
51         <output>
52             <soap:body use="literal"/>
53         </output>
54         <soap:operation soapAction=""/>
55     </operation>
56     <soap:binding transport="http://schemas.xmlsoap.org/soap/http" style="document"/></binding>
57     <service name="Serverscript">
58         <port name="InterfacePort" binding="tns:InterfaceBinding">
59             <soap:address xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/" 
60                 location="http://localhost:8080"/>
61         </port>
62     </service>
63 </definitions>

Bueno, es necesario explicar ahora los puntos relevantes. En primer lugar el namespace para los tipos es: http://serverscript.org/types. Como se ve, no me tome el trabajo de cambiar el nombre del namespace con el que trae el fichero ejemplo de WTK, esto es un cambio minimo, así que si se quiere puede hacerce.
Ademas es claro que hay dos definiciones de tipos:

- El tipo "request", el cual anida dos strings en su interior: String_1 y String_2. Es importante notar que para que la comunicacion funcione, debe definirse un tipo con el mismo nombre que el metodo --request--, y que internamente tenga las definiciones de los parametros.

- El tipo "requestResponse", el cual anida un subtipo "Result", el cual anida el tipo de retorno de nuestro metodo. Hay dos cosas importantes en este, la primera es (como en el caso anterior) el nombre; para que la comunicacion funcione, debe existir definido en el WSDL un tipo para el mensaje de retorno del metodo el cual debe ser de la forma NombreDelMetodoResponse. En segundo lugar el subtipo "Result" en el interior debe ponerse así ya que SOAPpy maneja de esta manera el retorno desde metodos.

Estas dos definiciones de tipos anteriores deben ser así por limitaciones en SOAPpy. Para empezar este espera nombres de tipos en esta forma para sus metodos (metodo y metodoResponse). En segundo lugar el retorno del metodo (cuando hacemos return desde nuestra funcion) es manejado por SOAPpy con un subtipo "Result".

3. Generacion del codigo del Servidor.
Para el Servidor, el codigo es el siguiente:


 1 from SOAPpy import SOAPServer
 2 tns=u"http://serverscript.org/types"
 3 def request(String_1,String_2):
 4     r = "%s, sos %s" % (str(String_1), str(String_2))
 5     return r
 6 ss = SOAPServer (("localhost",8080))
 7 ss.namespace=tns
 8 ss.registerFunction (request)
 9 # debug, obviamente es opcional.
10 ss.config.debug=1
11 # a servir
12 ss.serve_forever ()

Las cosas relevantes son:
- La definicion del metodo "request".
- La creacion del servidor, el cual se enlaza a localhost en el port 8080.
- La definicion del namespace. Ojo que esto es importante, si no se hace nuestro servidor no podrá interpretar correctamente los mensajes de entrada (para la invocacion del metodo con sus parametros).
- Registro del metodo.

4. Generacion del Cliente.
Bueno para esta tarea se utilizan dos herramientas:
- WTK 2.5: Exclusivamente para la creacion del código de conexion el WebService.
- Netbeans: Para la creacion de la aplicacion java en su respectivo jar.

4.1. Creacion de las clases java para conexion.
Bueno en esta etapa vamos a generar 4 clases java:
- La clase request. Correspondiente con el tipo ya nombrado.
- La clase requestResponse, correspondiente con el tipo ya nombrado.
- La clase con todo el codigo java necesario para acceder al ws (Interface_Stub).
- Una clase que hereda de la anterior, implementa interfaces necesarias, y nos deja todo bien simple para interactuar con el servicio (Interface).
Para esto es necesario como ya dije utilizar el WTK distribuido por Sun.
Pasos necesarios:

4.1.1. Ejecutamos el Toolkit:
$ ./ktoolbar

4.1.2. Creamos el projecto.

4.1.3. Generamos las clases nombradas al principio. Para esto vamos al meno Project, y elejimos la opcion "Stub Generation". Se abrirá un dialogo en el cual tenemos que especificar nuestro fichero wsdl (como el que pongo mas arriva) y nombre para el paquete java que vamos a generar.

Todo el codigo que generamos estará en el directorio de nuestro proyecto, en linux, el directorio sera: :"~/j2mewtk/2.5.2/apps/DummyProject/src/Conectividad/":

Bueno con esto ya tenemos todo el codigo para conectividad. Solo nos restan unas pequeñas cosas para que todo funcione:
- Primero editamos el fichero Interface_Stub, y hacemos las siguientes modificaciones:


 94         // 
 95         //  End user methods
 96         // 
 97 
 98         protected static final QName _qname_String_1 = new QName("", "String_1");
 99         protected static final QName _qname_String_2 = new QName("", "String_2");
100         protected static final QName _qname_result = new QName("", "Result");
101         protected static final QName _qname_request = new QName("http://serverscript.org/types", "request");
102         // cambiamos la siguiente linea
103         // protected static final QName _qname_requestResponse = new QName("http://serverscript.org/types", "requestResponse");
104         protected static final QName _qname_requestResponse = new QName("", "requestResponse");
105         protected static final QName _qname_wsdl_request = new QName("http://serverscript.org/wsdl", "request");
106         protected static final Element _type_request;
107         protected static final Element _type_requestResponse;
108         static {
109          // Create all of the Type's that this stub uses, once.

Lo que hice fué cambiar la linea 103 por la linea 104. La idea de esta acción es que java vea el namespace del tipo que se está haciendo referencia como un namespace vacion ("" en lugar de "http://serverscript.org/types") ya que SOAPpy devuelve el tipo indicando un namespace de esta forma (un poco raro, tal vez sea un bug o tal vez sea que tengo mal codificado mi servidor, pero no encontré como hacerlo correctamente en la documentacion).

- Luego solo nos resta incluir todos los ficheros java que nos generó el toolkit en nuestro proyecto, y simplemente invocar el servicio:

     Interface_Stub is = new Interface_Stub ();
  is._setProperty(Stub.ENDPOINT_ADDRESS_PROPERTY, "http://localhost:8080");
  is._setProperty(Stub.SESSION_MAINTAIN_PROPERTY, new Boolean(true));
  String ret = is.request("River Plate","el mas grande");

la forma más sencilla de probar la conectividad, sería ponerlo en el método startApp(), o por lo menos lo es para mi.

- Finalmente, ya podemos probar la conectividad, (obviamente en primer lugar hay que ejecutar el servidor):

(1) Ejecutamos el servidor:

(2) Ejecutamos el software para testing:

(3) Respondemos a la pregunta de seguridad:

(4) - El resultado final:

Bueno, con esto queda demostrada la conectividad entre cliente y servidor. Si por algún motivo no se logra la conección, puede verificarse en la salida por consola del servidor, para asegurarse de que la petición está llegando y que el servidor responde correctamente.

Obviamente si lo que se quiere es hacer algo mas complejo, simplemente debería investigarse un poco más, pero creo que con estos parametros que dí en esta entrada, se le puede simplificar un poco la investigación a cualquiera que tenga que luchar con este problema.

Webservice Rústicos: aprobechando servicios POST en internet

2008-04-01T16:32:00.001-07:00

En este articulo muestro como aprobechar la funcionalidad de un form de html en una pagina en internet. Este articulo muestra como obtener traducciones de texto desde la pagina de google (http://translate.google.com), pero explicando paso a paso el desarrollo del ejemplo. Como lenguaje uso python por lo facil que hacer y probar cosas con este.

En primer lugar le damos un vistazo a la interfaz, por ejemplo entramos a la pagina, elegimos las opciones de traduccion, ponemos un texto, y le damos al boton "Traduzca", nos queda lo siguiente:

Bueno aca lo importante es el codigo html, así que lo que hacemos es visualizar dicho codigo, y vemos que llega bastante feo, todo de corrido sin ningun formato..., pero despues de un buen rato de dar vueltas, buscamos en el codigo la parte que nos interesa (la del formulario de traduccion de texto).

Tomamos el codigo y lo llevamos a nuestro buen amigo editor de texto, lo formateamos un poco, borramos todo lo que nos sobre, y tenemos algo así:

De la declaracion del form identificamos las dos cosas mas importantes:

1. Url a enviar los datos:
'http://translate.google.com/translate_t?langpair='+this.langpair.value;", que es seteada en base a la seleccion del langpair por ejemplo es|en, (despues cuando veas los parametros se va a notar mas esto) y entonces puede llegar a quedar algo así:
'http://translate.google.com/translate_t?langpair=es|en'

2. Si los parametros viajan por el metodo POST o GET:
Para nuestro caso es claro que dice POST (dice claramente method=post)

Sin dar mas vueltas ojeamos los parametros:
un input oculto (hidden) de nombre 'hl' y que para nuestro caso su valor sera 'es' segun dice el codigo.
un input oculto de nombre 'ie' que dice el encoding, el cual rellenamos con el valor 'UTF-8' segun dice en el codigo
un textarea de nombre 'text' en el cual pondremos nuestro texto a traducir.
un ultimo parametro de nombre 'langpair' y que debe seleccionarse de la larga lista, por ejemplo si traducimos desde español a la lengua de bill decimos 'es|en' en este campo.

En resumen:
hl=es
ie=UTF-8
text=el perro es blanco
langpair=es|en

entonces en python el codigo de invocacion al sercio queda algo así:


19 def getTranslation (fromLang, toLang, text):
20     import urllib
21     import urllib2
22     langpair=fromLang+"|"+toLang
23     url = "http://translate.google.com/translate_t?langpair="+langpair
24     values = {'hl':"es",'ie':"UTF-8",'text':text,"langpair":langpair}
25     # Falla si se deja el agent por default en urllib2
26     headers = { 'User-Agent' : 'Mozilla'}
27     data = urllib.urlencode(values)
28     req = urllib2.Request(url, data,headers)
29     response = urllib2.urlopen(req)
30     lines = response.readlines ()
31     return extractTranslation (lines)
32

al hacer urlencode (values) no hace mas que formar una cadena con los parametros formateados como para enviar los datos con GET:

> print data
langpair=es%7Cen&text=El+Perro+es+blanco&ie=UTF-8&hl=es

así que este es el punto clave en que se define la forma de enviar los datos, nosotros utilizaremos POST, así que proseguimos.

Proseguimos formando el POST request con los datos codificados mas los headers adicionales,

req = urllib2.Request(url, data,headers),

y luego hacer:

response = urllib2.urlopen(req)

lo que hacemos en enviar todos los datos por el metodo POST.

Para finalizar leemos tooooda la respuesta desde el par que responde, esta no es mas que todo el codigo de la pagina que google nos muestra al darle click al boton traducir, pero en fin, el texto traducido esta ahí en su interior.
Lo que hacemos para encontrar el texto de una forma mas o menos sencilla y elegante, es utilizar expresiones regulares para analizar el texto. Pero antes de hacer cualquier cosa, le pasamos la vista por encima a la parte del codigo que tiene la traduccion, y lo encontramos por ejemplo buscando alguna palabra que sabemos que esta ahí:
entonces:
Entonces podemos notar que el tag que encierra el texto traducido es unico en el codigo:

<div id=result_box dir="ltr"> Nuestro texto traducido</div>

Entonces ahora si podemos hacer uso de expresiones regulares para generar nuestra funcion extractTraduction ():


 5 def extractTranslation (lines):
 6     import re
 7     expr = ".*<div id=result_box dir=\"ltr\">(?P<Translation>([^<]+(<br>)*)*)</div>.*"
 8     pattern   = re.compile (expr)
 9     for l in lines:
10         m = pattern.match (l)
11         if m:
12             res = m.group ("Translation")
13             res = res.replace ("&lt;","<")
14             res = res.replace ("&gt;",">")
15             res = re.sub ("([ ]*<br>[ ]*)","\n",res)
16             return res
17     return None
18

Bueno la cosa esta asi, nuestra expresion busca por una cantidad indefinida de caracteres que no incluya el < (que marca el fin al aparecer en ) o que lo incluya pero en una expresion que marca nueva linea. Una vez encontrado el texto, lo que se hace es reemplazar algunas cosas de html antes de retornalas, por ejemplo si nuestro texto a traducir incluía un <>, entonces la traduccion es retornada con los codigos de estos: < e >, entonces ahora tenemos que restaurarlos, también, cada caracter de nueva linea (\n) es simbolizado como
en html, entonces tenemos que reemplazarlos tambien.

En fin, este codigo es bastante sencillo, así que lo dejo terminado:
Texto plano:


#!/usr/bin/python
#autor: jonatan anauati
#email: barakawins@gmail.com
#licencia: LGPL
def extractTranslation (lines):
    import re
    expr = ".*<div id=result_box dir=\"ltr\">(?P<Translation>([^<]+(<br>)*)*)</div>.*"
    pattern   = re.compile (expr)
    for l in lines:
        m = pattern.match (l)
        if m:
            res = m.group ("Translation")
            res = res.replace ("&lt;","<")
            res = res.replace ("&gt;",">")
            res = re.sub ("([ ]*<br>[ ]*)","\n",res)
            return res
    return None

def getTranslation (fromLang, toLang, text):
    import urllib
    import urllib2
    langpair=fromLang+"|"+toLang
    url = "http://translate.google.com/translate_t?langpair="+langpair
    values = {'hl':"es",'ie':"UTF-8",'text':text,"langpair":langpair}
    # Falla si se deja el agent por default en urllib2
    headers = { 'User-Agent' : 'Mozilla'}
    data = urllib.urlencode(values)
    req = urllib2.Request(url, data,headers)
    response = urllib2.urlopen(req)
    lines = response.readlines ()
    return extractTranslation (lines)


if __name__ == "__main__":
    # un ejemplo
    lines = getTranslation ("es","en","El perro es blanco\nAzul\n\nverde")
    if lines:
        print "RESULTADO"
        print lines


 1 ---INICIO---
 2 ---google_post.b64---
 3 ---para desempaquetarlo---
 4 ---openssl base64 -d -in google_post.b64 -out google_post.py---
 5 IyEvdXNyL2Jpbi9weXRob24KI2F1dG9yOiBqb25hdGFuIGFuYXVhdGkKI2VtYWls
 6 OiBiYXJha2F3aW5zQGdtYWlsLmNvbQojbGljZW5jaWE6IExHUEwKZGVmIGV4dHJh
 7 Y3RUcmFuc2xhdGlvbiAobGluZXMpOgogICAgaW1wb3J0IHJlCiAgICBleHByID0g
 8 Ii4qPGRpdiBpZD1yZXN1bHRfYm94IGRpcj1cImx0clwiPig/UDxUcmFuc2xhdGlv
 9 bj4oW148XSsoPGJyPikqKSopPC9kaXY+LioiCiAgICBwYXR0ZXJuICAgPSByZS5j
10 b21waWxlIChleHByKQogICAgZm9yIGwgaW4gbGluZXM6CiAgICAgICAgbSA9IHBh
11 dHRlcm4ubWF0Y2ggKGwpCiAgICAgICAgaWYgbToKICAgICAgICAgICAgcmVzID0g
12 bS5ncm91cCAoIlRyYW5zbGF0aW9uIikKICAgICAgICAgICAgcmVzID0gcmVzLnJl
13 cGxhY2UgKCImbHQ7IiwiPCIpCiAgICAgICAgICAgIHJlcyA9IHJlcy5yZXBsYWNl
14 ICgiJmd0OyIsIj4iKQogICAgICAgICAgICByZXMgPSByZS5zdWIgKCIoWyBdKjxi
15 cj5bIF0qKSIsIlxuIixyZXMpCiAgICAgICAgICAgIHJldHVybiByZXMKICAgIHJl
16 dHVybiBOb25lCgpkZWYgZ2V0VHJhbnNsYXRpb24gKGZyb21MYW5nLCB0b0xhbmcs
17 IHRleHQpOgogICAgaW1wb3J0IHVybGxpYgogICAgaW1wb3J0IHVybGxpYjIgIAog
18 ICAgbGFuZ3BhaXI9ZnJvbUxhbmcrInwiK3RvTGFuZwogICAgdXJsID0gImh0dHA6
19 Ly90cmFuc2xhdGUuZ29vZ2xlLmNvbS90cmFuc2xhdGVfdD9sYW5ncGFpcj0iK2xh
20 bmdwYWlyCiAgICB2YWx1ZXMgPSB7J2hsJzoiZXMiLCdpZSc6IlVURi04IiwndGV4
21 dCc6dGV4dCwibGFuZ3BhaXIiOmxhbmdwYWlyfQogICAgIyBGYWxsYSBzaSBzZSBk
22 ZWphIGVsIGFnZW50IHBvciBkZWZhdWx0IGVuIHVybGxpYjIKICAgIGhlYWRlcnMg
23 PSB7ICdVc2VyLUFnZW50JyA6ICdNb3ppbGxhJ30KICAgIGRhdGEgPSB1cmxsaWIu
24 dXJsZW5jb2RlKHZhbHVlcykKICAgIHJlcSA9IHVybGxpYjIuUmVxdWVzdCh1cmws
25 IGRhdGEsaGVhZGVycykKICAgIHJlc3BvbnNlID0gdXJsbGliMi51cmxvcGVuKHJl
26 cSkKICAgIGxpbmVzID0gcmVzcG9uc2UucmVhZGxpbmVzICgpCiAgICByZXR1cm4g
27 ZXh0cmFjdFRyYW5zbGF0aW9uIChsaW5lcykKCgppZiBfX25hbWVfXyA9PSAiX19t
28 YWluX18iOgogICAgIyB1biBlamVtcGxvCiAgICBsaW5lcyA9IGdldFRyYW5zbGF0
29 aW9uICgiZXMiLCJlbiIsIkVsIHBlcnJvIGVzIGJsYW5jb1xuQXp1bFxuXG52ZXJk
30 ZSIpCiAgICBpZiBsaW5lczoKICAgICAgICBwcmludCAiUkVTVUxUQURPIgogICAg
31 ICAgIHByaW50IGxpbmVzCg==

--- FIN ---

Limitando el bandwidth por host, red y usuario con Linux:

2008-03-21T07:01:00.000-07:00

En este articulo muestro dos scripts bastante simples que armé para poder limitar el bandwidth en terminales corriendo linux, o en una red (no digo gnu porque a linus no le gusta).

La idea es que sean simples, pero a la vez ayuden a las tareas de testing de aplicaciones y porque no administracion de la red. No me concidero un scripter, porque para decir la verdad evito bastante esta tarea, pero de en vuando hay que hacer alguno.

NOTA: en esta entrada no me voy a poner a explicar como funcionan tc (con qdisc, class,...) y iptables, pero en la documentación que doy como referencia están muy bien explicados; además para que funcione todo hay que tener un nucleo compilado con soporte QoS (y sus chucherias), tampoco es la idea ponerme a explicar como hacer esto, y también está explicado en la documentacion que pongo como referencia.

DESCRIPCION:

Bueno, este es un problema que surgio en el trabajo, necesitamos testear el sistema que vende la empresa donde trabajo, y entonces un de los puntos importantes es el ancho de banda necesario.

Cada instancia cliente del sistema (un ERP) se conecta por red a un server de base de datos (lo normal es mysql), generando así una bola de trafico de ida y vuelta. El sistema puede correr en windows, linux y mac con versiones nativas.

Llendo al punto, surgió el problema de como limitar el bandwidth en el servidor y cliente para poder hacer los testeos. Luego de googlear unas horas y pasar por varios howtos, llegué a esto: [1]

En síntesis lo que necesitaba era "Poder limitar el ancho de banda de envio y recepcion entre cliente - servidor", así que llegué a tres ideas posibles:

1) Aplicar limitaciones por segmento de red.
2) Aplicar limitaciones entre dos host (cliente y servidor).
3) Aplicar limitacions por servicio (servidor de bases de datos / instancia cliente).

Bueno, al cabo de pelear tres o cuatro horas logré mis objetivos, y claro traian dos scripts atados con ellos.

ANCHO DE BANDA POR HOST O POR RED

Para los puntos (1) y (2), pude resolverlos con el siguiente script, el cual tiene la idea de poder limitar anchos de banda por red destino o por host destino:

---- lbnetng.sh ---
#!/bin/bash
# encoding utf8
# Autor: Jonatan Anauati
# email: barakawins@gmail.com

# USO # ./lbnet ruleId UNIQUEID [[host IP] |[net IP/MASK]] [rate MAXRATE] [unit UNIT] [if INTERFACE] | [clear INTERFACE] | [show_conf INTERFACE]

# Limita el ancho de banda de subida hacia una red o host
# - ruleId: [OBLIGATORIO] Identificador de regla, debe ser un entero unico por
# red (1,2,3,4...).
# - net es la ip a la cual se le aplicara la reduccion en el ancho de banda de
# respuesta desde el servidor (ej: 192.168.0.23) , default: todas las redes.
# - ip es la ip de host a la que se desea aplicar la reduccion.
# - rate: es el rate en kbit/s por defecto (OJO que no son kbits), a 256 por
# default.
# - if: elige una interfaz de red (por defecto eth0:1)
# - unit decide la unidad de trabajo (kbit, kbps,... ver man tc) por defecto
# esta en kbit por segundo
# - clear: limpia todas las reglas para la interfac INTERFAZ.
# - show_conf: muestra la configuracion para la interfaz INTERFAZ

TC='tc'
DEV='eth0'
RULEID=''
MAXRATE='256'
UNIT='kbit'
CLEARFLAG="FALSE"
DSTIP='0/0'
final_config=''
CLEARFLAG="FALSE"
SHOWCONFFLAG="FALSE"

function show_conf_builder ()
{
if [[ -z $final_config ]] ; then
final_config="Configuracion aplicada:"
fi
final_config="$final_config $1=$2"
}

function show_custom_conf ()
{
echo $final_config
}

function show_conf ()
{
echo "Qdiscs"
$TC -s -d qdisc show dev $DEV
echo "Clases"
$TC -s -d class show dev $DEV
echo "Filters"
$TC filter show dev $DEV
}

function set_standard_args ()
{
case $1 in
"rate")
MAXRATE=$2 ;;
"if")
DEV=$2 ;;
"unit")
UNIT=$2 ;;
"clear")
DEV=$2
CLEARFLAG="TRUE" ;;
"show_conf")
DEV=$2
SHOWCONFFLAG="TRUE" ;;
esac
}

function cleanup_rules ()
{
$TC qdisc del dev $DEV root 2> /dev/null > /dev/null
}

function set_custom_args ( )
{
case $1 in
"host")
DSTIP=$2/32 ;;
"net")
DSTIP=$2 ;;
"ruleId")
RULEID=$2 ;;
esac
}

function show_used_ids ( )
{
idlist=$(tc class show dev eth0 | sed -n 's/^class [^ ]\+ 1:$[0-9]\+$.\+$/\1/gp')
echo $idlist
}

case $1 in
"help")
echo
echo "Limita el trafico de subida hacia la red o host."
echo "MODO DE USO: $0 [net net/maskbits | host address] [rate maxRate] [unit bandwidthUnit] [if interface] | [clear INTERFACE]"
echo
exit ;;
"show_conf")
show_conf
exit ;;
esac

i=0
list[0]=""
list[1]=""
for param in $@ ; do
list[$i]=$param
let i+=1
if [[ $i -eq 2 ]] ; then
set_standard_args ${list[0]} ${list[1]}
set_custom_args ${list[0]} ${list[1]}
show_conf_builder ${list[0]} ${list[1]}
let i=0
fi
done

if [[ $CLEARFLAG == "TRUE" ]] ; then
cleanup_rules
exit
elif [[ $SHOWCONFFLAG == "TRUE" ]] ; then
show_conf
exit
fi

USERID=$(cat /etc/passwd | grep $USERNAME | sed -n 's/$[^:]\+:$\{2\}$[^:]\+$$:.\+$$/\2/gp')
if [[ -z $USERID ]] ; then
echo "El usuario $USERNAME parece no existir"
exit
fi
if [[ -z $RULEID ]] ; then
echo "Debe especificar el ruleId (no sea cobarde, y de cualquiera que no"
echo "halla puesto aun. Puede ser cualquier EXCEPTO los siguientes:"
show_used_ids
echo
exit
fi

$TC qdisc add dev $DEV root handle 1: htb default 60 2> /dev/null > /dev/null
$TC class add dev $DEV parent 1: classid 1:${RULEID} htb rate ${MAXRATE}${UNIT} ceil ${MAXRATE}${UNIT}
$TC filter add dev $DEV protocol ip parent 1: prio 1 u32 match ip dst ${DSTIP} flowid 1:1
$TC filter add dev $DEV protocol ip parent 1: handle 99 fw classid 1:1

show_custom_conf
#vim:sw=4:sts=4:et:syntax=sh:nowrap:nu:filetype=sh
--- fin de lbnetng.sh ---

Ejemplos:

root@dino-thunder:/home/jaa# ./lbnetng.sh host 192.168.1.32 rate 128 if eth0 ruleId 1
Configuracion aplicada: host=192.168.1.32 rate=128 if=eth0 ruleId=1

limita el trafico hacia 192.168.1.32 a un maximo de 128kbit/s (OJO que son kbit por segundo) sobre la interfaz eth0. El parametro ruleId debe ser único, es decir hay que cambiarlo con cada llamada consecutiva a lbnetng.sh (si reinicias la configuracion puede volver a empezar).

root@dino-thunder:/home/jaa# ./lbnetng.sh host 192.168.1.32 rate 128 unit kbps if eth0 ruleId 2
Configuracion aplicada: host=192.168.1.32 rate=128 unit=kbps if=eth0 ruleId=2

limita el trafico hacia 192.168.1.32 a un maximo de 128kbps (OJO que son kbytes
por segundo) sobre la interfaz eth0.

root@dino-thunder:/home/jaa# ./lbnetng.sh net 192.168.1.0/24 rate 1 unit mbit if eth0 ruleId 3
Configuracion aplicada: net=192.168.1.0/24 rate=1 unit=mbit if=eth0 ruleId=3

limita el trafico hacia la red 192.168.1.0 a un maximo de 1 mbit (1 mega bit /s)
sobre la interfaz eth0.

Para ver la configucion actual:

root@dino-thunder:/home/jaa# ./lbnetng.sh show_conf eth0
Qdiscs
qdisc htb 1: r2q 10 default 60 direct_packets_stat 0 ver 3.17
Sent 0 bytes 0 pkt (dropped 0, overlimits 0 requeues 0)
rate 0bit 0pps backlog 0b 0p requeues 0
Clases
class htb 1:1 root prio 0 quantum 1600 rate 128000bit ceil 128000bit burst 1663b/8
mpu 0b overhead 0b cburst 1663b/8 mpu 0b overhead 0b level 0
Sent 0 bytes 0 pkt (dropped 0, overlimits 0 requeues 0)
rate 0bit 0pps backlog 0b 0p requeues 0
lended: 0 borrowed: 0 giants: 0
tokens: 106496 ctokens: 106496

class htb 1:2 root prio 0 quantum 12800 rate 1024Kbit ceil 1024Kbit burst 2111b/8
mpu 0b overhead 0b cburst 2111b/8 mpu 0b overhead 0b level 0
Sent 0 bytes 0 pkt (dropped 0, overlimits 0 requeues 0)
rate 0bit 0pps backlog 0b 0p requeues 0
lended: 0 borrowed: 0 giants: 0
tokens: 16896 ctokens: 16896

class htb 1:3 root prio 0 quantum 12500 rate 1000Kbit ceil 1000Kbit burst 2099b/8
mpu 0b overhead 0b cburst 2099b/8 mpu 0b overhead 0b level 0
Sent 0 bytes 0 pkt (dropped 0, overlimits 0 requeues 0)
rate 0bit 0pps backlog 0b 0p requeues 0
lended: 0 borrowed: 0 giants: 0
tokens: 17203 ctokens: 17203

Filters
filter parent 1: protocol ip pref 1 u32
filter parent 1: protocol ip pref 1 u32 fh 800: ht divisor 1
... (continua)

Para limpiar la configuracion:

root@dino-thunder:/home/jaa# ./lbnetng.sh clear eth0

ANCHO DE BANDA POR PROCESO O USUARIO:

Para resolver el puto (3), tambien genere este script:

--- lbnetng.sh ---
#!/bin/bash
# encoding utf8
# Autor: Jonatan Anauati
# email: barakawins@gmail.com
#
# USO # ./lbuser [[user USERNAME] [rate RATE] [unit UNIT] [if INTERFACE] | [show_conf INTERFACE] | [help] | [clear INTERFACE] | [full_clear INTERFACE]]
# Limita el ancho de banda de subida de un usuario en el sistema
# - user: es el usuario para el cual quiere limitarse el bandwidth de envio
# por default actua solo sobre el usuario actual.
# - rate es el rate en kbit/s por defecto (OJO que no son kbits), a 256 por
# default.
# - if: elige una interfaz de red (por defecto eth0:1)
# - unit decide la unidad de trabajo (kbit, kbps,... ver man tc) por defecto
# esta en kbit por segundo.
# - clear: limpia todas las reglas para la interfaz INTERFAZ.
# - full_clear: limpia todas las reglas para la interfaz INTERFAZ, y ademas
# limpia todoas las reglas de la tabla mangle de iptables.
# - show_conf: muestra la configuracion para la interfaz INTERFAZ

#NOTA: falta probar la efectividad del script, si bien pareceriera que tiene que
# funcionar con solo ver la configuracion aplicada, todabia no esta probado
# que el marcado de iptables y las reglas se apliquen correctamente.

USERNAME="$LOGNAME"
TC=tc
DEV="eth0"
MAXRATE=256
UNIT="kbit"
CLEARFLAG="FALSE"
SHOWCONFFLAG="FALSE"
CLEAR_IPTABLES_MANGLE_T="FALSE"
final_config=""
function show_conf_builder ()
{
if [[ -z $final_config ]] ; then
final_config="Configuracion aplicada:"
fi
final_config="$final_config $1=$2"
}

function show_custom_conf ()
{
echo $final_config
}

function show_conf ()
{
echo "Qdiscs"
$TC -s -d qdisc show dev $DEV
echo "Clases"
$TC -s -d class show dev $DEV
echo "Filters"
$TC filter show dev $DEV
}

function set_standard_args ( )
{
case $1 in
"rate")
MAXRATE=$2 ;;
"if")
DEV=$2 ;;
"unit")
UNIT=$2 ;;
"clear")
DEV=$2
CLEARFLAG="TRUE" ;;
"show_conf")
DEV=$2
SHOWCONFFLAG="TRUE" ;;
esac
}

function cleanup_rules ()
{
$TC qdisc del dev $DEV root 2> /dev/null > /dev/null
}

function set_custom_args ( )
{
case $1 in
"user")
USERNAME=$2 ;;
"full_clear")
DEV=$2
CLEARFLAG="TRUE"
CLEAR_IPTABLES_MANGLE_T="TRUE"
esac
}

case $1 in
"help")
echo
echo "Limita el trafico de subida de todos los procesos de un usuario."
echo "MODO DE USO: $0 [user userPattern] [rate maxRate] [unit bandwidthUnit] [if interface]"
echo
exit ;;
esac

i=0
list[0]=""
list[1]=""
for param in $@ ; do
list[$i]=$param
let i+=1
if [[ $i -eq 2 ]] ; then
set_standard_args ${list[0]} ${list[1]}
set_custom_args ${list[0]} ${list[1]}
show_conf_builder ${list[0]} ${list[1]}
let i=0
fi
done

if [[ $CLEARFLAG == "TRUE" ]] ; then
cleanup_rules
if [[ $CLEAR_IPTABLES_MANGLE_T == "TRUE" ]] ; then
iptables -t mangle -F
fi
exit
fi

USERID=$(cat /etc/passwd | grep $USERNAME | sed -n 's/$[^:]\+:$\{2\}$[^:]\+$$:.\+$$/\2/gp')
if [[ -z $USERID ]] ; then
echo "El usuario $USERNAME parece no existir"
exit
fi

iptables -t mangle -A OUTPUT --out-interface $DEV --match owner --uid-owner $USERID -j MARK --set-mark $USERID
#$TC qdisc del dev $DEV root 2>&1 >/dev/null
$TC qdisc add dev $DEV root handle 1: htb default 60 2> /dev/null > /dev/null
$TC class add dev $DEV parent 1: classid 1:$USERID htb rate ${MAXRATE}${UNIT} ceil ${MAXRATE}${UNIT} 2> /dev/null > /dev/null
if [[ $? == 0 ]] ; then
$TC filter add dev $DEV protocol ip parent 1: handle $USERID fw classid 1:$USERID
show_custom_conf
else
echo "El seteo no pudo realizarze, tal vez sea que el usuario ya fue"
echo "configurado por este script."
fi
#vim:sw=4:sts=4:et:syntax=sh:nowrap:nu:filetype=sh
--- fin de lbnetng.sh ---

En este caso quería que la limitacion sea por servicio (solo el servidor de bases de datos) ya que las pruebas son realizadas contra un servidor de produccion y no quería meter la pata dejando a todos sin svn ! jaja.
Vi dos opciones posibles (ambas necesitan la intervencion de iptables en la cocina):

1) Limitar por pid del proceso.
2) Limitar por el usuario que corre el servicio.

Por el hecho de que el servidor de base de datos creo que puede levantar mas procesos a conveniencia cuando el quiere (SUPONGO) y entonces tendría que ir casi adivinando la pid (en realidad sería hacer la conexion primero, luego mirar con
netstat -puta, identificar la pid que se enlaza a la ip de máquina que corre la instancia cliente) lo cual es un poco molesto cuando se hace mas de dos veces, me quedé con la opcion (2): Limitar el ancho de banda por usuario.

Hay que aclarar que si bien esta es la eleccion, es muy sencillo hacer que haga la limitacion solo por la pid (esto es la parte encargada a iptables).

Para empezar el server tiene un so ubuntu 7.10, y el mysql de serie que trae es configurado para correr con el user mysql, entonces no me quedaba mas que limitar el bandwidth para este usuario en el servidor, e ir luego a mi maquina y limitar el bandwidth a mi usuario con el que corro la instancia del sistema (olvidé decir que mi desktop es un ubuntu 7.10 también).

Ejemplos:

NOTA: una forma sencilla de ver con que usuario corre tu proceso puede ser:

jaa@dino-thunder:~$ ps aux | head -n1 && ps aux | grep mysqld
USER PID %CPU %MEM VSZ RSS TTY STAT START TIME COMMAND
root 5033 0.0 0.0 1712 444 ? S 10:07 0:00 /bin/sh /usr/bin/mysqld_safe
mysql 5077 0.0 1.0 134036 4512 ? Sl 10:07 0:03 /usr/sbin/mysqld ... (coooontinua)
root 5079 0.0 0.1 1640 456 ? S 10:07 0:00 logger -p daemon.err -t mysqld_safe -i -t mysqld
jaa 8877 0.0 0.1 2896 764 pts/1 R+ 16:45 0:00 grep mysql

Como se para /usr/sbin/mysqld el usuario (primer columna) es mysql.

root@dino-thunder:/home/jaa# ./lbuserng.sh user mysql rate 512 unit kbit if eth0
Configuracion aplicada: user=mysql rate=512 unit=kbit if=eth0

Si tenés tu mysql server corriendo a nombre del user mysql entonces el ancho de banda de salida del usuario y por lo tanto del servidor va a ser de 512 kbit/s.

root@dino-thunder:/home/jaa# ./lbuserng.sh user jaa rate 10 unit mbit if eth0
Configuracion aplicada: user=jaa rate=10 unit=mbit if=eth0

limita todo el trafico saliente que genere el user jaa por la interfaz eth0 a una tasa de 256 kbit/s.

Por ejemplo si se quiere limitar el bandwidth para apache:

root@dino-thunder:/home/jaa# ps aux | grep apache2
...
www-data 5530 0.0 0.0 9664 380 ? S 10:08 0:00 /usr/sbin/apache2 -k start
www-data 5531 0.0 0.1 231232 584 ? Sl 10:08 0:00 /usr/sbin/apache2 -k start

es muy sencillo notar que corre con www-data:

root@dino-thunder:/home/jaa# ./lbuserng.sh user www-data rate 256 unit kbit if eth0
Configuracion aplicada: user=www-data rate=256 unit=kbit if=eth0

Ver la configuracion:

root@dino-thunder:/home/jaa# ./lbuserng.sh show_conf eth0
Qdiscs
qdisc htb 1: r2q 10 default 60 direct_packets_stat 0 ver 3.17
Sent 0 bytes 0 pkt (dropped 0, overlimits 0 requeues 0)
rate 0bit 0pps backlog 0b 0p requeues 0
Clases
class htb 1:33 root prio 0 quantum 3200 rate 256000bit ceil 256000bit burst
1727b/8 mpu 0b overhead 0b cburst 1727b/8 mpu 0b overhead 0b level 0
Sent 0 bytes 0 pkt (dropped 0, overlimits 0 requeues 0)
rate 0bit 0pps backlog 0b 0p requeues 0
lended: 0 borrowed: 0 giants: 0
tokens: 55296 ctokens: 55296

class htb 1:1000 root prio 0 quantum 125000 rate 10000Kbit ceil 10000Kbit burst
6598b/8 mpu 0b overhead 0b cburst 6598b/8 mpu 0b overhead 0b level 0
Sent 0 bytes 0 pkt (dropped 0, overlimits 0 requeues 0)
rate 0bit 0pps backlog 0b 0p requeues 0
lended: 0 borrowed: 0 giants: 0
tokens: 5406 ctokens: 5406

class htb 1:111 root prio 0 quantum 6400 rate 512000bit ceil 512000bit burst
1855b/8 mpu 0b overhead 0b cburst 1855b/8 mpu 0b overhead 0b level 0
Sent 0 bytes 0 pkt (dropped 0, overlimits 0 requeues 0)
rate 0bit 0pps backlog 0b 0p requeues 0
lended: 0 borrowed: 0 giants: 0
tokens: 29696 ctokens: 29696

Filters
filter parent 1: protocol ip pref 49151 fw
filter parent 1: protocol ip pref 49151 fw handle 0x21 classid 1:33
filter parent 1: protocol ip pref 49151 fw
filter parent 1: protocol ip pref 49151 fw handle 0x3e8 classid 1:1000
filter parent 1: protocol ip pref 49152 fw
filter parent 1: protocol ip pref 49152 fw handle 0x6f classid 1:111

Limpiar la configuracion:
./lbuserng.sh clear eth0

Pero esta última pimpia las configuraciones aplicadas con tc. Y para este script también aplicamos reglas con iptables.

Si queremos que limpie las reglas de iptables:

./lbuserng.sh full_clear eth0

pero OJO porque elimina todas las reglas de la tabla mangle, entonces esto afecta de dos formas

1) si habias agregados limites para usuarios en otras interfaces entonces ya no se aplicaran porque iptables no hara la parte que le toca (entonces tendras que hacer clear sobre cada interfaz y volver a empezar)

2) Si tenias reglas ya aplicadas en tu tabla mangle de iptables para otros objetivos entonces se esta quemando el culo, tendras que volver a aplicarlas nuevamente ! (si ya se que es un garron, pero controlar todo esto ya demanda mucho mas trabajo y la idea es que este sea un trabajo simple para testing, y a lo sumo setear reglas al arranque del sistema).

NOTAS:

No intentes probar estos scripts unicamente con conexiones a localhost, porque por algun motivo no he logrado que funcionen, lo que si aseguron que funcionaron fantasticamente en conexiones en red. Para realizar todas mis pruebas iniciales lo que hice fue levantar un apache en un server, que comparta un achivo por http, y
desde mi firefox hacia descargas, prueba que para mi resulto perfecta, luego pase a las pruebas con el sistema que antes comente y resultaron bastante acorde con las limitaciones.

Scripts:

[1]: lbnetng.sh (encodeado con base64):
--- lbnetng.b64 ---
--- Para obtener el script ejecutar: ---
--- "openssl base64 -d -in lbnetng.b64 -out lbnetng.sh" ---
IyEvYmluL2Jhc2gKIyBlbmNvZGluZyB1dGY4CiMgQXV0b3I6IEpvbmF0YW4gQW5h
dWF0aQojIGVtYWlsOiBiYXJha2F3aW5zQGdtYWlsLmNvbQoKIyBVU08gIyAuL2xi
bmV0IHJ1bGVJZCBVTklRVUVJRCBbW2hvc3QgSVBdIHxbbmV0IElQL01BU0tdXSBb
cmF0ZSBNQVhSQVRFXSBbdW5pdCBVTklUXSBbaWYgSU5URVJGQUNFXSB8IFtjbGVh
ciBJTlRFUkZBQ0VdIHwgW3Nob3dfY29uZiBJTlRFUkZBQ0VdCiMgTGltaXRhIGVs
IGFuY2hvIGRlIGJhbmRhIGRlIHN1YmlkYSBoYWNpYSB1bmEgcmVkIG8gaG9zdAoj
IC0gcnVsZUlkOiBbT0JMSUdBVE9SSU9dIElkZW50aWZpY2Fkb3IgZGUgcmVnbGEs
IGRlYmUgc2VyIHVuIGVudGVybyB1bmljbyBwb3IKIyAgIHJlZCAoMSwyLDMsNC4u
LikuCiMgLSBuZXQgZXMgbGEgaXAgYSBsYSBjdWFsIHNlIGxlIGFwbGljYXJhIGxh
IHJlZHVjY2lvbiBlbiBlbCBhbmNobyBkZSBiYW5kYSBkZQojICAgcmVzcHVlc3Rh
IGRlc2RlIGVsIHNlcnZpZG9yIChlajogMTkyLjE2OC4wLjIzKSAsIGRlZmF1bHQ6
IHRvZGFzIGxhcyByZWRlcy4KIyAtIGlwIGVzIGxhIGlwIGRlIGhvc3QgYSBsYSBx
dWUgc2UgZGVzZWEgYXBsaWNhciBsYSByZWR1Y2Npb24uCiMgLSByYXRlOiBlcyBl
bCByYXRlIGVuIGtiaXQvcyBwb3IgZGVmZWN0byAoT0pPIHF1ZSBubyBzb24ga2Jp
dHMpLCBhIDI1NiBwb3IgCiMgICBkZWZhdWx0LgojIC0gaWY6IGVsaWdlIHVuYSBp
bnRlcmZheiBkZSByZWQgKHBvciBkZWZlY3RvIGV0aDA6MSkKIyAtIHVuaXQgZGVj
aWRlIGxhIHVuaWRhZCBkZSB0cmFiYWpvIChrYml0LCBrYnBzLC4uLiB2ZXIgbWFu
IHRjKSBwb3IgZGVmZWN0bwojICAgZXN0YSBlbiBrYml0IHBvciBzZWd1bmRvCiMg
LSBjbGVhcjogbGltcGlhIHRvZGFzIGxhcyByZWdsYXMgcGFyYSBsYSBpbnRlcmZh
YyBJTlRFUkZBWi4KIyAtIHNob3dfY29uZjogbXVlc3RyYSBsYSBjb25maWd1cmFj
aW9uIHBhcmEgbGEgaW50ZXJmYXogSU5URVJGQVoKCgpUQz0ndGMnCkRFVj0nZXRo
MCcKUlVMRUlEPScnCk1BWFJBVEU9JzI1NicKVU5JVD0na2JpdCcKQ0xFQVJGTEFH
PSJGQUxTRSIKRFNUSVA9JzAvMCcKZmluYWxfY29uZmlnPScnCkNMRUFSRkxBRz0i
RkFMU0UiClNIT1dDT05GRkxBRz0iRkFMU0UiCgpmdW5jdGlvbiBzaG93X2NvbmZf
YnVpbGRlciAgKCkKewogICAgaWYgW1sgLXogJGZpbmFsX2NvbmZpZyBdXSA7IHRo
ZW4KICAgICAgICBmaW5hbF9jb25maWc9IkNvbmZpZ3VyYWNpb24gYXBsaWNhZGE6
IiAKICAgIGZpIAogICAgZmluYWxfY29uZmlnPSIkZmluYWxfY29uZmlnICQxPSQy
Igp9CgpmdW5jdGlvbiBzaG93X2N1c3RvbV9jb25mICgpCnsKICAgIGVjaG8gJGZp
bmFsX2NvbmZpZwp9CgpmdW5jdGlvbiBzaG93X2NvbmYgKCkKewogICAgZWNobyAi
UWRpc2NzIgogICAgJFRDIC1zIC1kIHFkaXNjIHNob3cgZGV2ICRERVYKICAgIGVj
aG8gIkNsYXNlcyIKICAgICRUQyAtcyAtZCBjbGFzcyBzaG93IGRldiAkREVWCiAg
ICBlY2hvICJGaWx0ZXJzIgogICAgJFRDIGZpbHRlciBzaG93IGRldiAkREVWCn0K
CmZ1bmN0aW9uIHNldF9zdGFuZGFyZF9hcmdzICgpIAp7CiAgICBjYXNlICQxIGlu
CiAgICAgICAgInJhdGUiKQogICAgICAgICAgICBNQVhSQVRFPSQyIDs7CiAgICAg
ICAgImlmIikKICAgICAgICAgICAgREVWPSQyIDs7ICAgICAgICAKICAgICAgICAi
dW5pdCIpCiAgICAgICAgICAgIFVOSVQ9JDIgOzsKICAgICAgICAiY2xlYXIiKQog
ICAgICAgICAgICBERVY9JDIKICAgICAgICAgICAgQ0xFQVJGTEFHPSJUUlVFIiA7
OwogICAgICAgICJzaG93X2NvbmYiKQogICAgICAgICAgICBERVY9JDIKICAgICAg
ICAgICAgU0hPV0NPTkZGTEFHPSJUUlVFIiA7OwogICAgZXNhYwp9CgpmdW5jdGlv
biBjbGVhbnVwX3J1bGVzICgpCnsKICAgICRUQyBxZGlzYyBkZWwgZGV2ICRERVYg
cm9vdCAyPiAvZGV2L251bGwgPiAvZGV2L251bGwKfQoKZnVuY3Rpb24gc2V0X2N1
c3RvbV9hcmdzICggKQp7CiAgICBjYXNlICQxIGluCiAgICAgICAgImhvc3QiKQog
ICAgICAgICAgICBEU1RJUD0kMi8zMiA7OwogICAgICAgICJuZXQiKQogICAgICAg
ICAgICBEU1RJUD0kMiA7OwogICAgICAgICJydWxlSWQiKQogICAgICAgICAgICBS
VUxFSUQ9JDIgOzsKICAgIGVzYWMKfQoKZnVuY3Rpb24gc2hvd191c2VkX2lkcyAo
ICkKewogICAgaWRsaXN0PSQodGMgY2xhc3Mgc2hvdyBkZXYgZXRoMCAgfCBzZWQg
LW4gJ3MvXmNsYXNzIFteIF1cKyAxOlwoWzAtOV1cK1wpLlwrJC9cMS9ncCcpCiAg
ICBlY2hvICRpZGxpc3QKfQoKY2FzZSAkMSBpbgogICAgImhlbHAiKQogICAgICAg
IGVjaG8KICAgICAgICBlY2hvICJMaW1pdGEgZWwgdHJhZmljbyBkZSBzdWJpZGEg
aGFjaWEgbGEgcmVkIG8gaG9zdC4iCiAgICAgICAgZWNobyAiTU9ETyBERSBVU086
ICQwIFtuZXQgbmV0L21hc2tiaXRzIHwgaG9zdCBhZGRyZXNzXSBbcmF0ZSBtYXhS
YXRlXSBbdW5pdCBiYW5kd2lkdGhVbml0XSBbaWYgaW50ZXJmYWNlXSB8IFtjbGVh
ciBJTlRFUkZBQ0VdIgogICAgICAgIGVjaG8gCiAgICAgICAgZXhpdCA7OwogICAg
InNob3dfY29uZiIpCiAgICAgICAgc2hvd19jb25mIAogICAgICAgIGV4aXQgOzsK
ZXNhYwoKaT0wCmxpc3RbMF09IiIKbGlzdFsxXT0iIgpmb3IgcGFyYW0gaW4gJEAg
OyBkbwogICAgbGlzdFskaV09JHBhcmFtIAogICAgbGV0IGkrPTEKICAgIGlmIFtb
ICRpIC1lcSAyIF1dIDsgdGhlbgogICAgICAgIHNldF9zdGFuZGFyZF9hcmdzICR7
bGlzdFswXX0gJHtsaXN0WzFdfQogICAgICAgIHNldF9jdXN0b21fYXJncyAke2xp
c3RbMF19ICR7bGlzdFsxXX0KICAgICAgICBzaG93X2NvbmZfYnVpbGRlciAke2xp
c3RbMF19ICR7bGlzdFsxXX0KICAgICAgICBsZXQgaT0wCiAgICBmaQpkb25lCgpp
ZiBbWyAkQ0xFQVJGTEFHID09ICJUUlVFIiBdXSA7IHRoZW4KICAgIGNsZWFudXBf
cnVsZXMKICAgIGV4aXQgCmVsaWYgW1sgJFNIT1dDT05GRkxBRyA9PSAiVFJVRSIg
XV0gOyB0aGVuCiAgICBzaG93X2NvbmYKICAgIGV4aXQgCmZpCgpVU0VSSUQ9JChj
YXQgL2V0Yy9wYXNzd2QgfCBncmVwICRVU0VSTkFNRSB8IHNlZCAtbiAncy9cKFte
Ol1cKzpcKVx7Mlx9XChbXjpdXCtcKVwoOi5cKyRcKS9cMi9ncCcpCmlmIFtbIC16
ICRVU0VSSUQgXV0gOyB0aGVuCiAgICBlY2hvICJFbCB1c3VhcmlvICRVU0VSTkFN
RSBwYXJlY2Ugbm8gZXhpc3RpciIKICAgIGV4aXQKZmkKaWYgW1sgLXogJFJVTEVJ
RCBdXSA7IHRoZW4KICAgIGVjaG8gIkRlYmUgZXNwZWNpZmljYXIgZWwgcnVsZUlk
IChubyBzZWEgY29iYXJkZSwgeSBkZSBjdWFscXVpZXJhIHF1ZSBubyIKICAgIGVj
aG8gImhhbGxhIHB1ZXN0byBhdW4uIFB1ZWRlIHNlciBjdWFscXVpZXIgRVhDRVBU
TyBsb3Mgc2lndWllbnRlczoiCiAgICBzaG93X3VzZWRfaWRzCiAgICBlY2hvIAog
ICAgZXhpdApmaQoKaWYgW1sgJENMRUFSRkxBRyA9PSAiVFJVRSIgXV0gOyB0aGVu
CiAgICBjbGVhbnVwX3J1bGVzCiAgICBleGl0IAplbGlmIFtbICRTSE9XQ09ORkZM
QUcgPT0gIlRSVUUiIF1dIDsgdGhlbgogICAgc2hvd19jb25mCiAgICBleGl0CmZp
CgokVEMgcWRpc2MgYWRkIGRldiAkREVWIHJvb3QgaGFuZGxlIDE6IGh0YiBkZWZh
dWx0IDYwIDI+IC9kZXYvbnVsbCA+IC9kZXYvbnVsbAokVEMgY2xhc3MgYWRkIGRl
diAkREVWIHBhcmVudCAxOiBjbGFzc2lkIDE6JHtSVUxFSUR9IGh0YiByYXRlICR7
TUFYUkFURX0ke1VOSVR9IGNlaWwgJHtNQVhSQVRFfSR7VU5JVH0gCiRUQyBmaWx0
ZXIgYWRkIGRldiAkREVWIHByb3RvY29sIGlwIHBhcmVudCAxOiBwcmlvIDEgdTMy
IG1hdGNoIGlwIGRzdCAke0RTVElQfSBmbG93aWQgMToxCiRUQyBmaWx0ZXIgYWRk
IGRldiAkREVWIHByb3RvY29sIGlwIHBhcmVudCAxOiBoYW5kbGUgOTkgZncgY2xh
c3NpZCAxOjEKCnNob3dfY3VzdG9tX2NvbmYKIyB2aW06c3c9NDpzb2Z0dGFic3Rv
cD00OmV4cGFuZHRhYjpzeW50YXg9c2g6bm93cmFwOm51OmZpbGV0eXBlPXNoCgo=
--- Fin del archivo ---

[2]: lbuserng.sh (encodeado con base 64):
--- lbuserng.b64 ---
--- Para obtener el script ejecutar: ---
--- "openssl base64 -d -in lbuserng.b64 -out lbuserng.sh" ---
IyEvYmluL2Jhc2gKIyBlbmNvZGluZyB1dGY4CiMgQXV0b3I6IEpvbmF0YW4gQW5h
dWF0aQojIGVtYWlsOiBiYXJha2F3aW5zQGdtYWlsLmNvbQojCiMgVVNPICMgLi9s
YnVzZXIgW1t1c2VyIFVTRVJOQU1FXSBbcmF0ZSBSQVRFXSBbdW5pdCBVTklUXSBb
aWYgSU5URVJGQUNFXSB8ICBbc2hvd19jb25mIElOVEVSRkFDRV0gfCBbaGVscF0g
fCBbY2xlYXIgSU5URVJGQUNFXSB8IFtmdWxsX2NsZWFyIElOVEVSRkFDRV1dCiMg
TGltaXRhIGVsIGFuY2hvIGRlIGJhbmRhIGRlIHN1YmlkYSBkZSB1biB1c3Vhcmlv
IGVuIGVsIHNpc3RlbWEKIyAtIHVzZXI6IGVzIGVsIHVzdWFyaW8gcGFyYSBlbCBj
dWFsIHF1aWVyZSBsaW1pdGFyc2UgZWwgYmFuZHdpZHRoIGRlIGVudmlvCiMgICBw
b3IgZGVmYXVsdCBhY3R1YSBzb2xvIHNvYnJlIGVsIHVzdWFyaW8gYWN0dWFsLgoj
IC0gcmF0ZSBlcyBlbCByYXRlIGVuIGtiaXQvcyBwb3IgZGVmZWN0byAoT0pPIHF1
ZSBubyBzb24ga2JpdHMpLCBhIDI1NiBwb3IgCiMgICBkZWZhdWx0LgojIC0gaWY6
IGVsaWdlIHVuYSBpbnRlcmZheiBkZSByZWQgKHBvciBkZWZlY3RvIGV0aDA6MSkK
IyAtIHVuaXQgZGVjaWRlIGxhIHVuaWRhZCBkZSB0cmFiYWpvIChrYml0LCBrYnBz
LC4uLiB2ZXIgbWFuIHRjKSBwb3IgZGVmZWN0bwojICAgZXN0YSBlbiBrYml0IHBv
ciBzZWd1bmRvLgojIC0gY2xlYXI6IGxpbXBpYSB0b2RhcyBsYXMgcmVnbGFzIHBh
cmEgbGEgaW50ZXJmYXogSU5URVJGQVouCiMgLSBmdWxsX2NsZWFyOiBsaW1waWEg
dG9kYXMgbGFzIHJlZ2xhcyBwYXJhIGxhIGludGVyZmF6IElOVEVSRkFaLCB5IGFk
ZW1hcyAKIyAgIGxpbXBpYSB0b2RvYXMgbGFzIHJlZ2xhcyBkZSBsYSB0YWJsYSBt
YW5nbGUgZGUgaXB0YWJsZXMuCiMgLSBzaG93X2NvbmY6IG11ZXN0cmEgbGEgY29u
ZmlndXJhY2lvbiBwYXJhIGxhIGludGVyZmF6IElOVEVSRkFaCgojTk9UQTogZmFs
dGEgcHJvYmFyIGxhIGVmZWN0aXZpZGFkIGRlbCBzY3JpcHQsIHNpIGJpZW4gcGFy
ZWNlcmllcmEgcXVlIHRpZW5lIHF1ZQojICAgICAgZnVuY2lvbmFyIGNvbiBzb2xv
IHZlciBsYSBjb25maWd1cmFjaW9uIGFwbGljYWRhLCB0b2RhYmlhIG5vIGVzdGEg
cHJvYmFkbwojICAgICAgcXVlIGVsIG1hcmNhZG8gZGUgaXB0YWJsZXMgeSBsYXMg
cmVnbGFzIHNlIGFwbGlxdWVuIGNvcnJlY3RhbWVudGUuCgpVU0VSTkFNRT0iJExP
R05BTUUiClRDPXRjIApERVY9ImV0aDAiCk1BWFJBVEU9MjU2ClVOSVQ9ImtiaXQi
CkNMRUFSRkxBRz0iRkFMU0UiClNIT1dDT05GRkxBRz0iRkFMU0UiCkNMRUFSX0lQ
VEFCTEVTX01BTkdMRV9UPSJGQUxTRSIKZmluYWxfY29uZmlnPSIiCmZ1bmN0aW9u
IHNob3dfY29uZl9idWlsZGVyICgpCnsKICAgIGlmIFtbIC16ICRmaW5hbF9jb25m
aWcgXV0gOyB0aGVuCiAgICAgICAgZmluYWxfY29uZmlnPSJDb25maWd1cmFjaW9u
IGFwbGljYWRhOiIgCiAgICBmaSAKICAgIGZpbmFsX2NvbmZpZz0iJGZpbmFsX2Nv
bmZpZyAkMT0kMiIKfQoKZnVuY3Rpb24gc2hvd19jdXN0b21fY29uZiAoKQp7CiAg
ICBlY2hvICRmaW5hbF9jb25maWcKfQoKZnVuY3Rpb24gc2hvd19jb25mICgpCnsK
ICAgIGVjaG8gIlFkaXNjcyIKICAgICRUQyAtcyAtZCBxZGlzYyBzaG93IGRldiAk
REVWCiAgICBlY2hvICJDbGFzZXMiCiAgICAkVEMgLXMgLWQgY2xhc3Mgc2hvdyBk
ZXYgJERFVgogICAgZWNobyAiRmlsdGVycyIKICAgICRUQyBmaWx0ZXIgc2hvdyBk
ZXYgJERFVgp9CgpmdW5jdGlvbiBzZXRfc3RhbmRhcmRfYXJncyAoICkgCnsKICAg
IGNhc2UgJDEgaW4KICAgICAgICAicmF0ZSIpCiAgICAgICAgICAgIE1BWFJBVEU9
JDIgOzsKICAgICAgICAiaWYiKQogICAgICAgICAgICBERVY9JDIgOzsgICAgICAg
IAogICAgICAgICJ1bml0IikKICAgICAgICAgICAgVU5JVD0kMiA7OwogICAgICAg
ICJjbGVhciIpCiAgICAgICAgICAgIERFVj0kMgogICAgICAgICAgICBDTEVBUkZM
QUc9IlRSVUUiIDs7CiAgICAgICAgInNob3dfY29uZiIpCiAgICAgICAgICAgIERF
Vj0kMgogICAgICAgICAgICBTSE9XQ09ORkZMQUc9IlRSVUUiIDs7CiAgICBlc2Fj
Cn0KCmZ1bmN0aW9uIGNsZWFudXBfcnVsZXMgKCkKewogICAgJFRDIHFkaXNjIGRl
bCBkZXYgJERFViByb290IDI+IC9kZXYvbnVsbCA+IC9kZXYvbnVsbAp9CgpmdW5j
dGlvbiBzZXRfY3VzdG9tX2FyZ3MgKCApIAp7CiAgICBjYXNlICQxIGluCiAgICAg
ICAgInVzZXIiKQogICAgICAgICAgICBVU0VSTkFNRT0kMiA7OwogICAgICAgICJm
dWxsX2NsZWFyIikKICAgICAgICAgICAgREVWPSQyCiAgICAgICAgICAgIENMRUFS
RkxBRz0iVFJVRSIKICAgICAgICAgICAgQ0xFQVJfSVBUQUJMRVNfTUFOR0xFX1Q9
IlRSVUUiCiAgICBlc2FjCn0KCmNhc2UgJDEgaW4KICAgICJoZWxwIikKICAgICAg
ICBlY2hvIAogICAgICAgIGVjaG8gIkxpbWl0YSBlbCB0cmFmaWNvIGRlIHN1Ymlk
YSBkZSB0b2RvcyBsb3MgcHJvY2Vzb3MgZGUgdW4gdXN1YXJpby4iCiAgICAgICAg
ZWNobyAiTU9ETyBERSBVU086ICQwIFt1c2VyIHVzZXJQYXR0ZXJuXSBbcmF0ZSBt
YXhSYXRlXSBbdW5pdCBiYW5kd2lkdGhVbml0XSBbaWYgaW50ZXJmYWNlXSIKICAg
ICAgICBlY2hvCiAgICAgICAgZXhpdCAgOzsKZXNhYwoKaT0wCmxpc3RbMF09IiIK
bGlzdFsxXT0iIgpmb3IgcGFyYW0gaW4gJEAgOyBkbwogICAgbGlzdFskaV09JHBh
cmFtIAogICAgbGV0IGkrPTEKICAgIGlmIFtbICRpIC1lcSAyIF1dIDsgdGhlbgog
ICAgICAgIHNldF9zdGFuZGFyZF9hcmdzICR7bGlzdFswXX0gJHtsaXN0WzFdfQog
ICAgICAgIHNldF9jdXN0b21fYXJncyAke2xpc3RbMF19ICR7bGlzdFsxXX0KICAg
ICAgICBzaG93X2NvbmZfYnVpbGRlciAke2xpc3RbMF19ICR7bGlzdFsxXX0gCiAg
ICAgICAgbGV0IGk9MAogICAgZmkKZG9uZQoKaWYgW1sgJENMRUFSRkxBRyA9PSAi
VFJVRSIgXV0gOyB0aGVuCiAgICBjbGVhbnVwX3J1bGVzCiAgICBpZiBbWyAkQ0xF
QVJfSVBUQUJMRVNfTUFOR0xFX1QgPT0gIlRSVUUiIF1dIDsgdGhlbgogICAgICAg
IGlwdGFibGVzIC10IG1hbmdsZSAtRgogICAgZmkKICAgIGV4aXQgCmVsaWYgW1sg
JFNIT1dDT05GRkxBRyA9PSAiVFJVRSIgXV0gOyB0aGVuCiAgICBzaG93X2NvbmYK
ICAgIGlwdGFibGVzIC10IG1hbmdsZSAtLWxpc3QgCiAgICBleGl0IApmaQoKVVNF
UklEPSQoY2F0IC9ldGMvcGFzc3dkIHwgZ3JlcCAkVVNFUk5BTUUgfCBzZWQgLW4g
J3MvXChbXjpdXCs6XClcezJcfVwoW146XVwrXClcKDouXCskXCkvXDIvZ3AnKQpp
ZiBbWyAteiAkVVNFUklEIF1dIDsgdGhlbgogICAgZWNobyAiRWwgdXN1YXJpbyAk
VVNFUk5BTUUgcGFyZWNlIG5vIGV4aXN0aXIiCiAgICBleGl0CmZpCgppcHRhYmxl
cyAtdCBtYW5nbGUgLUEgT1VUUFVUIC0tb3V0LWludGVyZmFjZSAkREVWIC0tbWF0
Y2ggb3duZXIgLS11aWQtb3duZXIgJFVTRVJJRCAtaiBNQVJLIC0tc2V0LW1hcmsg
JFVTRVJJRAojJFRDIHFkaXNjIGRlbCBkZXYgJERFViByb290IDI+JjEgPi9kZXYv
bnVsbAokVEMgcWRpc2MgYWRkIGRldiAkREVWIHJvb3QgaGFuZGxlIDE6IGh0YiBk
ZWZhdWx0IDYwIDI+IC9kZXYvbnVsbCA+IC9kZXYvbnVsbCAKJFRDIGNsYXNzIGFk
ZCBkZXYgJERFViBwYXJlbnQgMTogY2xhc3NpZCAxOiRVU0VSSUQgaHRiIHJhdGUg
JHtNQVhSQVRFfSR7VU5JVH0gY2VpbCAke01BWFJBVEV9JHtVTklUfSAgMj4gL2Rl
di9udWxsID4gL2Rldi9udWxsCmlmIFtbICQ/ID09IDAgXV0gOyB0aGVuCiAgICAk
VEMgZmlsdGVyIGFkZCBkZXYgJERFViBwcm90b2NvbCBpcCBwYXJlbnQgMTogaGFu
ZGxlICRVU0VSSUQgZncgY2xhc3NpZCAxOiRVU0VSSUQKICAgIHNob3dfY3VzdG9t
X2NvbmYKZWxzZQogICAgZWNobyAiRWwgc2V0ZW8gbm8gcHVkbyByZWFsaXphcnpl
LCB0YWwgdmV6IHNlYSBxdWUgZWwgdXN1YXJpbyB5YSBmdWUiCiAgICBlY2hvICJj
b25maWd1cmFkbyBwb3IgZXN0ZSBzY3JpcHQuIgpmaQojIHZpbTpzdz00OnNvZnR0
YWJzdG9wPTQ6ZXhwYW5kdGFiOnN5bnRheD1zaDpub3dyYXA6bnU6ZmlsZXR5cGU9
c2gK
--- Fin del archivo ---

Referencias

[1]: (http://lartc.org/howto/, y en español http://www.gulic.org/comos/LARTC), man tc