Discussion :

[cgourdet]

Bonjour à tous.

Je ne suis pas à l'aise avec perl qui est un language que connais très peu.

J'avais un script qui me permettait d'envoyer en mail le résultat des sauvegardes noctures.

Cela fonctionnait très bien avec Groupwise de Novell.

or nous avons migré sous Mdaemon et depuis mes messages ne passent plus...

Net::SMTP=GLOB(0x43c6370)>>> .
Net::SMTP=GLOB(0x43c6370)<<< 554 Message is not RFC compliant
Net::SMTP=GLOB(0x43c6370)>>> QUIT
Net::SMTP=GLOB(0x43c6370)<<< 221 See ya in cyberspace

J'ai beau chercher partout, je ne trouve pas la réponse à ma question...

Pouvez-vous m'aider ?

[Philou67430]

Peux-tu montre le script (ou bout de script) concerné ?

[cgourdet]

#! /usr/bin/perl -w

use strict;
use Getopt::Long;
use Net::SMTP;

my $mercure="172.16.7.10";
my $depuis="adm-reseau\@mon_domaine.fr";
my $vers="adm-reseau\@mon_domaine.fr";

open (FICHIER,"/root/progs/perl/etat1.txt") or die ("open: $!");
my $body = join "", <FICHIER>;
close (FICHIER);
#=======================================
my $text1 =" Sauvegardes du ";
my $text2 =" au ";

open (FIC1,"date --date '1 day ago' '+%d/%m/%Y'|");
my $date1 = join "", <FIC1>;
close (FIC1);
#print ("$date1\n");

open (FIC2,"date '+%d/%m/%Y'|");
my $date2 = join "", <FIC2>;
close (FIC2);
#print ("$date2\n");

open (FIC3,"date '+%w'|");
my $date3 = join "", <FIC3>;
close (FIC3);
#print ("$date3\n");

open (FIC4,"date --date '3 days ago' '+%d/%m/%Y'|");
my $date4 = join "", <FIC4>;
close (FIC4);
#print ("$date4\n");

open (FIC5,"hostname|");
my $serveur = join "", <FIC5>;
close (FIC5);


# my $date_ref1= join(" ", $serveur.$text1.$date1.$text2.$date2);
# my $date_ref2= join(" ", $serveur.$text1.$date4.$text2.$date2);

# my $date_ref1 = join "", $serveur, $text1, $date1, $text2, $date2;
# my $date_ref2=$serveur.$text1.$date4.$text2.$date2;

my $date_ref1 = "hello, cest moi";
my $date_ref2 = "hello, cest moi";

print ("$date_ref1\n");
print ("$date_ref2");

my $smtp = Net::SMTP->new($mercure, Debug => 1, Timeout => 30);
# my $smtp = Net::SMTP->new($mercure);

$smtp->mail($depuis);
$smtp->to($vers);


$smtp->data();

$smtp->datasend("From: $depuis");
$smtp->datasend("To: $vers");
$smtp->datasend("Date: $date2");



# ================== section Subject


if( $date3 == 1 ) { $smtp->datasend("Subject: $date_ref2\n"); }
else
{ $smtp->datasend("Subject: $date_ref1\n"); }

$smtp->datasend("\n");


# ================== fin section Subject

if( $date3 == 1 )
{ $smtp->datasend("$date_ref2"); }
else
{ $smtp->datasend("$date_ref1"); }
$smtp->datasend("$body");

$smtp->datasend("\n");

$smtp->dataend();

$smtp->quit;

[cgourdet]

Bonjour Philou...

Voici le script...

Je fais des essai dans tous les sens... Je ne vois pas ce qui cloche..

[cgourdet]

Bonjour Philou..

Excuses-moi pour le MP, c'était une erreur de ma part...

[cgourdet]

Ca avance.. Le message passe... Mais j'ai encore un petit problême d'inculture...

Je n'arrive pas à trouver comment concaténer correctement plusieurs variables
en une seule ligne..

===============================================
my $text1 =" Sauvegardes du ";
my $text2 =" au ";

open (FIC1,"date --date '1 day ago' '+%d/%m/%Y'|");
my $date1 = join "", <FIC1>;
close (FIC1);
#print ("$date1\n");

open (FIC2,"date '+%d/%m/%Y'|");
my $date2 = join "", <FIC2>;
close (FIC2);
#print ("$date2\n");

open (FIC3,"date '+%w'|");
my $date3 = join "", <FIC3>;
close (FIC3);
#print ("$date3\n");

open (FIC4,"date --date '3 days ago' '+%d/%m/%Y'|");
my $date4 = join "", <FIC4>;
close (FIC4);
#print ("$date4\n");

open (FIC5,"hostname|");
my $serveur = join "", <FIC5>;
close (FIC5);


# my $date_ref1= join(" ", $serveur.$text1.$date1.$text2.$date2);
# my $date_ref2= join(" ", $serveur.$text1.$date4.$text2.$date2);

my $date_ref1=$serveur.$text1.$date1.$text2.$date2;
my $date_ref2=$serveur.$text1.$date4.$text2.$date2;

print ("$date_ref1");
print ("$date_ref2");

# ================== section Subject


if( $date3 == 1 ) { $smtp->datasend("Subject: $date_ref2\n"); }
else
{ $smtp->datasend("Subject: $date_ref1\n"); }
$smtp->datasend("\n");

# ================== fin section Subject

if( $date3 == 1 )
{ $smtp->datasend("$date_ref2"); }
else
{ $smtp->datasend("$date_ref1"); }

===============================================

donne :

Net::SMTP=GLOB(0x1cec6f50)>>> Subject: RHsave1
Net::SMTP=GLOB(0x1cec6f50)>>> Sauvegardes du 29/06/2009
Net::SMTP=GLOB(0x1cec6f50)>>> au 30/06/2009
Net::SMTP=GLOB(0x1cec6f50)>>> RHsave1
Net::SMTP=GLOB(0x1cec6f50)>>> Sauvegardes du 29/06/2009
Net::SMTP=GLOB(0x1cec6f50)>>> au 30/06/2009

===============================================
Donc, pour lui : Pas de sujet.....

Je mettrrais le script complet à disposition des que tout sera ok...
Merci de m'aider.