On voit bien les limites de ce système, il manque une gestion efficace des tags. Après avoir testé divers produits: digikam, picasa, jbrout, mon intérêt s’est porté sur F-spot. Étant utilisateur de Gnome, c’est celui qui semble le mieux intégré à l’environnement. Les fonctionnalités sont intéressantes, mais il manque cruellement d’une fonctionnalité d’import en masse qui marche (l’import prévu dans f-spot ne permet pas de dépasser le millier de photos sous peine de saturer toute la ram) et qui ne perturbe pas mon classement en dossiers. Après une petite analyse de leur système de stockage des metadata (sqlite3), voici un petit script perl vite fait qui permet d’importer en masse sans déplacer vos photos.

[code lang="bash"]

sudo apt-get install libdbd-sqlite3-perl libdate-manip-perl libdbi-perl libimage-exiftool-perl

wget http://www.equinoxefr.org/wp-content/uploads/2008/07/import2fspot.pl

chmod +x import2fspot.pl

[/code]

Lancez maintenant F-spot une première fois si ce n’est pas déjà fait afin qu’il créé une base de donnée vierge.

Quittez F-spot,ensuite, dans un terminal, lancez l’import.

Quelques minutes plus tard, vous voilà avec toutes vos photos importées dans F-spot. Voilà les temps relevés avec la commande time pour importer 13800 photos:

real    17m28.227s
user    12m12.038s
sys    0m23.117s

Les photos sont toutes taggées avec le nom du répertoire dans lequel elles se trouvent pour ne pas perturber le classement par répertoire. Normalement, les photos déjà importées ne sont pas réimportées.

Je n’ai pas importé les éventuels tags exifs existants dans les photos (je n’en ai pas) mais ce n’est pas très difficile à faire. Si jamais quelqu’un s’y intéresse, merci de m’envoyer le code, je publierai les modifs ici

Rémy vous propose une nouvelle version disponible ici http://zouf.org/public/import2fspot.pl Merci

Comme d’habitude, mon fidèle ami Perl est là pour m’aider

Grisbi est un excellent logiciel de comptabilité personnelle. Seulement voilà, il permet d’importer des fichier pour faire des pointages, mais pas de les récupérer directement sur les sites internet des banques. Voilà un petit script perl pour combler cette lacune.

Tout d’abord, il faut récupérer le module Perl permettant d’accéder au site web de votre banque, ici la BanquePostale.
[code lang="bash"]
wget http://search.cpan.org/CPAN/authors/id/P/PI/PIXEL/Finance-Bank-LaPoste-4.00.tar.gz
tar xvf Finance-Bank-LaPoste-4.00.tar.gz
cd Finance-Bank-LaPoste-4.00
perl Makefile.PL
make sudo make install
[/code]
Ensuite, il fait créer le script videoposte.pl suivant:

[code]

#!/usr/bin/perl -w

use Finance::Bank::LaPoste;
use POSIX;

my @accounts = Finance::Bank::LaPoste->check_balance(username => "XXXXXX",
password => "NNNNNN");

foreach my $account (@accounts)
{
my $date=strftime("%Y%m%d", localtime);
my $qifdate=strftime("%d/%m/%Y", localtime);
my $filename=$account->;account_no."_".$date.".qif";
open(FD,"> $filename" );
print FD "!Type:Bank\n";
print FD "D".$qifdate."\n";
print FD "T".$account->balance."\n";
print FD "CX\n";
print FD "PSolde\n";
print FD "L[".$account->name."]\n";
print FD "^\n";
foreach ($account->statements)
{
my ($y,$m,$d)=($_->date =~ m/(\d+)\/(\d+)\/(\d+)/);
print FD "D".$d."/".$m."/".$y."\n";
print FD "P".$_->description."\n";
print FD "M".$_->description."\n";
print FD "T".$_->amount."\n";
print FD "L[Import AUTO]\n^\n";
}
close(FD);
}

[/code]

Pensez à remplacer les XXXX et NNNN par vos numéros de compte et votre mot de passe. Ensuite, le script va vous créer autant de fichier QIF que vous n’avez de comptes. Chaque fichier contient votre relevé de compte des 30 derniers jours. Vous pouvez par exemple placer ce script dans la crontab pour qu’il vous récupère vos relevés de comptes toutes les semaines.

Vous n’avez plus qu’à importer ces fichiers dans grisbi pour pointer automatiquement vos opérations.

Je n’ai pas testé, mais le script doit fonctionner pour les autres banques, il suffit juste d’utiliser le bon module Perl.

Comme il est précisé sur le site de l’auteur, celui-ci vous invite à relire son code pour s’assurer de son intégrité (On ne sait jamais, quand il s’agit d’argent…).

Amusez vous bien

[EDIT 5/04]: Module perl mis à jour en version 4.00 pour supporter la nouvelle authentification mise en place par la Banque Postale.

Le travail dans Bibble est basé sur un système de workflow. Les images sont mises dans des files d’attentes, retouchées puis envoyées dans des files de développement. Ces files d’attente sont de simples fichiers textes placés dans le répertoire .bibble/work c’est donc simple de les créer en dehors de bibble.

J’ai écrit un petit script tout simple pour alimenter les files de travail depuis nautilus.

Voilà un petit script perl à déposer dans le répertoire .gnome2/nautilus-scripts/

 #! /usr/bin/perl -w

$RAW_EXT="CR2";

$RAW_PATH="$ENV{NAUTILUS_SCRIPT_CURRENT_URI}";

$RAW_PATH =~ s/file:\/\///i;

 $CURRENT_PATH="temporaire";

 %FILES=(); $FILES{"$CURRENT_PATH"}="";

 sub search

 {

       my $dir = shift;

         local *DIR;

         opendir DIR, $dir or die "opendir $dir: $!";

         my $found = 0;

         while ($_ = readdir DIR)

 {

             next if /^\.{1,2}$/;

             my $path = "$dir/$_";

             $FILES{"$CURRENT_PATH"}="$FILES{$CURRENT_PATH} $path"  if ( $_ =~ m/ \.$RAW_EXT$/i);

             if (-d $path)

           {

              $CURRENT_PATH=$_;

               $FILES{"$_"}="";

                search($path)

             }

         }

        closedir DIR;

}

 search($RAW_PATH);

foreach (keys(%FILES)) {

     if (length($FILES{$_}) > 0)

     {

         open (FD,"> $ENV{HOME}/.bibble/work/$_.work") or die "Opening $_.work file";

         print FD "$_ ";

         print FD "$FILES{$_} ";

         close FD;

    }

 }

J’ai un appareil photo Canon qui produit des fichiers CR2. Vous pouvez remplacer CR2 par l’extension que vous voulez.

Le script apparait dans le menu contextuel de Nautilus. Lorsque vous êtes dans le répertoire ou vous avez déchargé vos photos, cliquez sur le script, il va générer les files d’attente de bibble avec vos fichiers.

Ça vous permet de ne pas passer par l’explorateur de fichiers de bibble que je ne trouve pas très pratique.

Dans le même ordre d’idée, les tags IPTC sont stockés dans des fichiers textes. Vous pouvez aussi jouer avec facilement…

A l’ouverture du CD, j’ai été un peu déçu de ne pas trouver un sommaire pour exploiter cette mine d’informations. Qu’à cela ne tienne, un petit coup de PERL et nous voilà avec un apercu HTML de la première page des articles. Le script calcule le nombre de pages de l’article grâce à l’information contenue dans le nom du fichier et le compare avec le nombre de pages du PDF afin de déduire s’il s’agit d’un fichier avec un copyright normal ( 1 page au début ) ou avec une licence Creative commons (2 pages au début et 2 à la fin). Le script génère alors un aperçu PNG de la 1° page de l’article qu’il insère dans une page HTML.

voilà les actions à faire pour mettre en oeuvre le script. Les pdf sont copiés sur le disque dur pour plus de confort. (450Mo)

mkdir -p GLMF/PDF
cd GLMF
wget http://www.equinoxefr.org/public/build_index.pl
sudo apt-get install libpdf-api2-perl imagemagick
cd  PDF
find /media/cdrom/ -iname "*.pdf" -exec cp {} ./ \;
cd ..
./build_index.pl
reset

On aurait pu aussi supprimer les pages « gênantes », ce que j’aurais fait sans scrupule s’il s’était agit d’une pub et non d’une licence (Cf GLMF N°97 P82) . On aurait juste aimé que ces pages soient en fin de fichier et non au début afin de ne pas perturber les aperçus de fichiers.

Voilà le script, fait à la « vas vite » mais qui marche sauf pour quelques PDF qui semblent altérés (un petit bug dans ghostscript entraine un affichage tout pourri dans le terminal d’où est lancé le script. heureusement un coup de reset remet tout en ordre).

#! /usr/bin/perl

use strict;
use PDF::API2;

my $PDF_PATH="./PDF";

mkdir("THUMBNAILS");
open(FD,">index.html");
my $nb=0;
opendir(DIR, "$PDF_PATH") || die "can't opendir ./PDF: $!";
my @files = grep { /\.pdf$/ } readdir(DIR);
closedir DIR;

print FD "<BODY><TITLE>Index Linux-Magazine</TITLE>\n";
print FD "<table border=1>\n";
foreach my $filename (sort(@files))
{
    if ($filename !~ /GLMF_083_014_021/i)
    {
	my $pdf = PDF::API2->open("$PDF_PATH/$filename");
	my $pdf_pages = $pdf->pages;
	$pdf->end();
	my ($mag_num,$page_start,$page_end) = ($filename =~ m/^GLMF_(\d+)_(\d+)_(\d+).pdf$/i);
	my $art_pages = $page_end - $page_start;
	my $copyright_pages = $pdf_pages - $art_pages;
	if (!($nb % 4))
	{
	    if ($nb)
	    {
		print FD "</TR><TR>";
	    }
	    else
	    {
		print FD "<TR>";
	    }

	}
	print "Convert $filename $pdf_pages pages in pdf, $art_pages in article diff:$copyright_pages\n";
	print "Info: Mag n° $mag_num, article page $page_start to $page_end\n";
	my ($base_name) = ( $filename =~ m/(.*?)\.pdf$/i );
	if (! -f "./THUMBNAILS/COVER_${base_name}.png")
	{
	    if ($copyright_pages >= 5)
	    {
	       `convert -scale 400x300 "${PDF_PATH}/${filename}\[2\]" ./THUMBNAILS/COVER_${base_name}.png`;
	    }
	    else
	    {
	       `convert -scale 400x300 "${PDF_PATH}/${filename}\[1\]" ./THUMBNAILS/COVER_${base_name}.png`;
	    }
	}
	print FD "<TD align=center>GLMF Numero $mag_num<br>$pdf_pages pages<br><a href=\"$PDF_PATH/$filename\"> <IMG src=\"./THUMBNAILS/COVER_${base_name}.png\"></a></TD>\n";
	$nb++;
    }
    }
print FD "</table>\n";
print FD "</BODY>\n";
close(FD);

Ce script perl vous permet de sauvegarder chaque base de votre serveur mysql dans un fichier indépendant ce qui facilite grandement la restauration d’une seule base.

#! /usr/bin/perl -w

use strict;
use DBI;

my @EXCLUDE = ("snort" , "syslog");
my $PATH = "/data/backup";
my $HOST = "localhost";
my $USER = "backup";
my $PASSWD = "xxxx";

my $REQUEST;
my ($DB) = DBI->connect("dbi:mysql:host=$HOST",$USER,$PASSWD) or die "MYSQL -> $DBI::errstr";
$REQUEST = $DB->prepare("SHOW DATABASES;");
$REQUEST->execute;
while (my $hash_ref=$REQUEST->fetchrow_hashref())
{
    my @tmp = grep (/$hash_ref->{"Database"}/,@EXCLUDE);
    if ( $#tmp)
	{
	    my ($FILENAME)="$PATH/DUMP_" . $hash_ref->{"Database"}.".sql";
	    print "Backup " . $hash_ref->{"Database"} . " to $FILENAME\n";
	    `export LD_LIBRARY_PATH=;/usr/bin/mysqldump -u $USER -p$PASSWD -C -F -B $hash_ref->{"Database"} > $FILENAME`;
	}
	else
	{

	    print "Excluding " . $hash_ref->{"Database"} . "\n";
	}
}
$REQUEST->finish;
$DB->disconnect;

Pour utiliser ce script, un utilisateur (ici backup) doit avoir les droits suivants sur votre serveur mysql:

SELECT, RELOAD, SHOW DATABASES, CREATE TEMPORARY TABLES, LOCK TABLES

Vous devez aussi disposer des modules MySQL

Voici la construction en images.

• Construction de la transmission:

Après de nombreux essais dont vous trouverez le détail sur l’ancienne version du site (http://equinoxefr.free.fr/spip), j’ai conçu la dernière version de la boite de transmission:
Les arbres sont réalisés avec des engrenages d’imprimantes montés sur des axes en acier et des roulements à billes.


La structure de la boite est faite avec des plaques de styrène particulièrement légères et solides. Elle font 5mm d’épaisseur.
3 plaques sont collées avec de la colle epoxy pour former le corps de la boite. Les 2 autres servent de support pour les roulement et de couvercle pour la boite.

Le styrène est creusé puis égalisé à l’aide d’une dremel utilisée comme fraiseuse. ( Qu’est ce que ca fait comme poussière !

Les différents constituants de la boîte.

• Construction du chassis:

Un berceau en acier est réalisé afin de supporter la boite de transmission.

supports ammortisseurs

Le lien central présent sur la photo a été supprimé au profit de 2 liens en acier beaucoup plus fonctionnels.

• Le véhicule dans son ensemble:

J’ai installé des feux de route ( Led blanches superlumineuses et rouges ).

Le circuit de commande de l’éclairage ( un kit de chez conrad ) avec un accu de 9v pour les leds

Les liens sont réalisés avec des tiges filetées de 3mm enfilées dans un tube en acier ou alu de 5 mm. J’ai réalisé des tests de résistance en le laissant tomber d’une hauteur de 1m, il resiste sans problème et ne rebondi pas, les ammortisseurs et les suspensions font bien leur travail.

Voilà, il avance à faible vitesse a mon avis ~ 5 Km/h à fond, mais quelle puissance Reste à savoir si ma boite de transmission faite maison va résister aux contraintes.

Un seul bémol, l’engin est difficile à prendre en main au début du fait des 4 roues directrices. L’avantage c’est qu’il peut sortir d’une situation difficile en avancant en crabe…