Ubuntu-fr

bieuzent

[Picasa - Thunderbird] - Envoi par mail

Bonjour,

Depuis la mise à jour de la distribution UbuntuStudio en 13.04, ma femme peux plus envoyer les photos à partir de Picasa (oui, je sais c'est pas bien, mais les vielles habitudes ont la vie dure ) via thunderbird, elle a le message suivant :

Capture d'écran

Le script n'a pas changer. J'avoue que j'ai beau retourner le problème dans tout les sens j'y vois plus clair .
Voici le script utilisé :

#!/usr/bin/perl

# Copyright © 2008 AMAITOR
#

# Save as /opt/google/picasa/3.0/bin/picasa-hook-email.sh
# Yes ".sh", even if it is Perl code

use strict;

# $ARGV[0] is a mailto URI
my $uri = $ARGV[0];

# Transform it into the Thunderbird syntax
# http://www.mozilla.org/docs/command-line-args.html
$uri =~ s/^mailto:\?//;
my @options = map { s!,!%2C!g; s!'!%27!g; $_ } split /&/, $uri;

# All files must be in a single attachment option
my $attach = "attachment='" . join(',',
    map { my $a=$_; $a=~s!^attach=!file://!; $a }
    grep {m/^attach=/} @options) . "'";

my $options = join(',', grep(!m/^attach=/, @options), $attach);

=cut
open my $f, '>', '/tmp/picasa-hook-email.txt';
print $f <<EOF;
Before:
$uri
After:
$options
EOF
close $f;
=cut

my $thunderbird;
foreach my $tb ('/usr/bin/thunderbird', '/usr/bin/mozilla-thunderbird') {
    if (-x $tb) {
        $thunderbird = $tb;
        last;
    }
}

# Remove Picasa pollution
delete $ENV{'LD_LIBRARY_PATH'};

# Run Thunderbird
exec $thunderbird, $thunderbird, '-compose', $options;

Version de thunderbird 17 - Version Picasa 3.8
D'avance merci

Dernière modification par bieuzent (Le 29/04/2013, à 11:02)

---

UbuntuStudio 13.04 64 bits / Sempron 140 - 5G RAM

bieuzent

Re : [Picasa - Thunderbird] - Envoi par mail

Up

---

UbuntuStudio 13.04 64 bits / Sempron 140 - 5G RAM

bieuzent

Re : [Picasa - Thunderbird] - Envoi par mail

Up

---

UbuntuStudio 13.04 64 bits / Sempron 140 - 5G RAM