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 :
Il est important de savoir que j'exécute ce script à partir du Shell de SourceForge.net.
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";
L'erreur qui suvient à la ligne indiquée dans le code est la suivante :
Voilà j'espère que quelqu'un saura m'aiderCommand '/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.
d'avance
Partager