Bonjour,
 
Je vous expose ici mon souci,
Voilà j'ai un script ci-dessous qui fonctionne parfaitement bien.
Il a pour but de m'envoyer un email au format HTML en y incluant une image d'un graph qui pointe vers une URL.
 
Comme c'est une URL, c'est en "temps réel", et donc si je retourne sur mon mail une heure plus tard, et bien mon URL se met à jour.
Ce que je veux c'est une "capture" à un instant T.
Ainsi mon image est figé dans le temps et si je retourne sur mon email une heure plus tard, l'information n'aura pas changé.
 
La solution est donc de convertir mon URL en image.
 
Comment faire?
 
 

#!/usr/bin/perl -w
use warnings;
use strict;
use MIME::Lite;
use MIME::LITE::HTML;
package Net::SMTP::TLS;
use MIME::Base64;
use Authen::SASL;
 
# set up email
my $To = "toto\@yahoo.fr";
my $From = "Graph <toto\@gmail.com>";
my $Cc = "";
my $Bcc = ""; 
my $Subject = "[Graph]";
my $Top = "<span style=\"font-size:10pt;font-family:Verdana\"><font color=\"#000080\">Bonjour,<BR><BR>PI,<BR><BR></font></span>";
my $URL = "http://localhost:6569/graph/graph_image.php?local_graph_id=2445&rra_id=0&view_type=tree";
my $Graph = "<BR><img src=\"$URL\"><P>";
my $HTML = "<span style=\"font-size:10pt;font-family:Verdana\"><font color=\"#000080\"><BR><BR>Cordialement.<BR></font></span>";
 
print "\n";
 
# send email
email($To, $From, $Cc, $Bcc, $Subject);
 
# email function
sub email
{
    # get incoming parameters
    my ($To, $From, $Cc, $Bcc, $Subject) = @_;
    # create a new message
    my $msg = MIME::Lite->new(
  From => $From,
  To => $To,
  Cc => $Cc,
  Bcc => $Bcc,
  Subject => $Subject,
  Type => 'multipart/related',
  Data => $Top . $Graph . $HTML
    ) or die "Error creating multipart container: $!\n";
 
    # send the email
    MIME::Lite->send('smtp', 
                                    'smtp.numericable.com', 
                                    HELLO=>'smtp.numericable.com', 
                                    PORT=>'25', 
                                    Debug => 0,
                                    Timeout => 60);
    $msg->attr("content-type" => "text/html; charset=iso-8859-1" );
    $msg->send();
    print "***** $Subject *****\n";
}
__END__

C'est quoi le format de ton graphe? Une seule image png, ou c'est composite?
Au fait,

Quand il y a rien à interpoler, on utilise les simple quotes, et on n'a pas besoin de \  
A+,

Ok je ne savais pas pour l'interpolation.
 
Mon graph est un graph http://www.cacti.net/
 
Ce que je peux faire avec mon web browser:
- Enregistrer l'image sous : mais à ce moment là il me propose uniquement le format .php (si je force en .jpg ou .png cela ne fonctionne pas)
- Copier l'URL de l'image (c'est ce que j'utilise déjà dans mon script)
- Copier l'image (ici cela me permet de le c/c dans un mail, c'est ce qui m’intéresse au final)
 
Quand j'essaye de faire un wget sur l'URL cela ne fonctionne pas, il ne me rend pas la main et le fichier téléchargé est un fichier en hexadécimal.

Je sais que c'est un graph cacti. Mais au final, un graph cacti que tu reçois, ça contient une image ou plusieurs. Et c'est a priori en gif ou png si j'en crois ceci: http://docs.cacti.net/manual:087:3 [...] h_template
Donc s'il y a qu'une image et au format png, le plus simple est d'utiliser LWP::Simple avec getstore($url, $file) pour la sauvegarder localement et d'attacher au mail cette sauvegarde.
A+,

Avec getstore($url, $file) ça marche impeccable
 
Merci une nouvelle fois Gilou !