Depuis la création de l'association en 1996, l'équipe de "Guatemala 96" a développé de nombreux projets sur le terrain et en France.

Quand on parle du Guatemala on pense en premier au café, mais découvrez également ce que l'apiculture apporte en plus aux familles la pratiquant.

Vous trouverez dans ce reportage, les bienfaits du marché équitable dans l'apiculture du Guatemala et du Mexique.

Découvrez aussi les règles et les tests de qualité du miel avant son exportation.

un mythe, non une véritée !

Ce script a pour but de récupérer un dossier ftp et tous ses sous dossiers puis de le compresser.

1. Instalation :

Copier les lignes  de script dans un fichier backup.pl.

Le script :

1. #!/usr/bin/perl
2. use strict;
3. use Net::FTP;
4. use Net::FTP::Recursive;
5. use Socket;
6. #use warnings;
7.  
8. ##################################
9. #                                #
10. # Debut definition des variables #
11. #                                #
12. ##################################
13.  
14. my $rep_bck = "/var/backup/"; # dossier local pour deposer la sauvegarde
15.  
16.  
17. ##################################
18. #                                #
19. #  Fin definition des variables  #
20. #                                #
21. ##################################
22.  
23. print("*********** Windows Backup ************");
24. if ( ! @ARGV)
25. {
26.         die(print("*********** FATAL ERROR - No IP server ************"));
27. }
28. else
29. {
30.         my $Vargv = $ARGV[0];
31.         my @IP = split(/./, $Vargv);
32. #       print "$ARGV[0] n";
33.         my $nbBlockIP = @IP;
34. #       print "$nbBlockIP n";
35.  
36.         if ( $nbBlockIP != 4)
37.         {
38.                 die(print("*********** FATAL ERROR - No IP server or incomplet IP ************"));
39.         }
40.         while (@IP)
41.         {
42.                 my $bloqueIP = (shift @IP);
43. #               print "$bloqueIPn";
44.                 if ($bloqueIP !~ m/^d+$/)
45.                 {
46.                         die(print("*********** FATAL ERROR - No IP server or not valid IP ************"));
47.                 }
48.                 elsif ($bloqueIP >= 255)
49.                 {
50.                         die(print("*********** FATAL ERROR - not valid IP ************"));
51.                 }
52.  
53.         }
54. }
55. my @IP = split(/./, @ARGV[0]);
56. my $ts = int(((time()/60)/60)/24);
57. #print "$ARGV[0] n";
58. #print "$ARGV[1] n";
59. #print "$ARGV[2] n";
60. #print "n$rep_bckn";
61. #print "$tsn";
62. #print "@IP[0]-@IP[1]-@IP[2]-@IP[3]n";
63. `/bin/mkdir -p "$rep_bck"` if ( ! -d $rep_bck );
64. `/bin/mkdir -p "$rep_bck/@ARGV[0]"` if ( ! -d $rep_bck."/".@ARGV[0] );
65.  
66. if (  -d $rep_bck."/".@ARGV[0] ) {
67.  
68.         print "recuperation de tous les fichiersn";
69.         chdir $rep_bck."/".@ARGV[0];
70.  
71.         my $ftp = Net::FTP::Recursive->new(@ARGV[0], Timeout => 120, Debug => 0);
72.         $ftp->login(@ARGV[1],@ARGV[2]);
73.         $ftp->pasv ();
74.         $ftp->binary();
75.         $ftp->rget( "/*" ) or warn "impossible de telecharger ", $ftp->message;
76.         $ftp->quit;
77. }
78.  
79. print "creation de l'archive";
80.  
81. `tar -cvzf $rep_bck/fichier_backup.@ARGV[1].$ts.tar.gz $rep_bck/@ARGV[0] --remove-files`;

2. Configuration :

Ajustez le dossier dans le quel la sauvegarde sera faites en modifiant la ligne 14 du script.

3. Utilisation :

L'utilisation du script est très simple, vous passez en paramètre l'ip du serveur, le login et le mot de passe.

exemple : ./backup.pl 127.0.0.1 mon_login mon_pass

1. Les besoins :

•   logiciel mbox2mdir (http://sageshome.net/oss/mbox2mdir.php)

2. installation de mbox2mdir

L'installation de l'outils mbox2mdir et très simple

exécutez les commandes suivantes :

• wget http://sageshome.net/downloads/oss/mbox2mdir-1.4.tar.bz2
  
• bunzip2 mbox2mdir-1.4.tar.bz2
  
• tar xvf mbox2mdir-1.4.tar
  
• cd mbox2mdir-1.4
  
• make

l'outils et installé si l'on execute mbox2mdir sans paramètre nous avons alors l'aide suivant qui apparaît :

Mailbox to Maildir Converter, Version 1.4 built: Dec 12 2008 Copyright(C) Sergey A. Galin.
This program is distibuted under GNU General Public License v.2 or later.
Homepage: http://sageshome.net/oss/

USAGE:   mbox2mdir <input mailbox file> <output maildir> [options]
OPTIONS:
         -t      - Truncate input Maildir file after successful conversion.
         -s      - Silent mode (error reporting only).
EXAMPLE: $ mbox2mdir /var/qmail/alias/Mailbox /home/john/Maildir/cur -s -eeml

3. Conversion des boîtes

Allez dans le dossier contenant les boîtes mails au format Mailbox, exemple /var/mail/ puis exécutez la ligne suivante :

• mkdir mail ; for i in `ls`; do echo $i ; mv $i mail/$i ; mkdir -p $i/cur ; chown $i:mail $i ; chown $i:mail $i/cur ; /root/mbox2mdir-1.4/mbox2mdir mail/$i $i/cur/ -t ; chown $i:mail $i/cur/* ;done

si tous c'est bien passé modifier votre serveur imap pour qu'il prenne en compte le nouveau format et redémarez le

Dans le cas de Dovecot il faut rajouter une ligne  dans la zone ## Mailbox locations and namespaces

• mail_location = maildir:/var/mail/%u

après maildir: on indique le chemin dans notre cas toutes les boites sont dans /var/mail/ et %u pour indiquer que c'est le nom d'utilisateur.