Bonjour,

Le principe de mon script est de récupérer une liste de contenu d'e-mails à envoyer dans une base de données, et de les envoyer. Je dois faire cela à cause des restrictions imposées par SourceForge.

Je n'ai jamais fait de Perl mais c'est le langage qui m'a paru le mieux approprié pour ce que j'avais à faire parmi les langages de script proposés par SourceForge.

Mon script ressemble à ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#!/usr/bin/perl -w
 
use strict;
use DBI;
 
my $dbhost = "mysql4-f";
my $dbuser = "f106228rw";
my $dbpassword = "******";
my $dbname = "f106228_funlaby";
my $dbdns = "dbi:mysql:$dbname\@$dbhost";
 
my $sendmail = '/usr/sbin/sendmail'; # emplacement du programme d'envoi de mails
 
my ($dbh, $query, @row, $ids, $from, $to, $subject, $body);
 
# ERREUR À LA LIGNE SUIVANTE
$dbh = DBI->connect($dbdns, $dbuser, $dbpassword, {RaiseError => 1, AutoCommit => 1})
  or die "Coudn't connect to database: " . $DBI::errstr;
 
# Traitement sur la base et envoi des e-mails
 
$dbh->disconnect;
 
print "E-mails have been successfully sent";
Il est important de savoir que j'exécute ce script à partir du Shell de SourceForge.net.

L'erreur qui suvient à la ligne indiquée dans le code est la suivante :
Command '/home/groups/f/fu/funlaby/cgi-bin/labyrinthes/newones-mailer.pl'
failed with return code 255 and error message
DBI connect('f106228_funlaby@mysql4-f','f106228rw',...) failed: Can't connect to local MySQL server through socket '/var/lib/mysql/mysql.sock' (2) at /home/groups/f/fu/funlaby/cgi-bin/labyrinthes/newones-mailer.pl line 16.
Voilà j'espère que quelqu'un saura m'aider
d'avance