Voila la conf
SME-SVG
SME-PROD
SME-TEST
SME-SVG est une SME 7.3 /php5 et Mysql 5
SME-SVG sauvegarde SME-PROD et SME-TEST avec Affa
SME-PROD
SME-TEST sont sous php4/et mysql4
Cette config fonctionne correctement depuis 3 mois (Les scripts et Affa fonctionnent correctement)
En plus d'avoir un svg Affa sur mes serveur SME je fais des scripts perl et shell qui sauvegardent Ibays et Bases de données toutes les 2 h 00.
Les scripts sont lancé avec un cron sans soucis
3 Scripts 1 principal save qui va mapper les répertoire de svg lancer les scripts de dumpsql et de svg des Ibays
Les scripts dumpsql sont tous les trois identiques (a part le mdp root de mysql):
- Code: Tout sélectionner
#!/usr/bin/perl -w
# Philippe Devaud 24 mai 2004
#
# Backup des bases de donnees MySQL au moyen d'un script PERL
#
# Flavien Villant Modification 14 Novembre 2007
# http://doc.domainepublic.net/mysql/doc_mysql/contrib.html
#
use DBI;
# Connexion a a MySQL et sauvegarde des parametres
#
my ($month,$day) = @_;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); ## Commande recuperant l'heure et la date systeme
$month = $mon + 1;
$month = sprintf ("%02d",$month);
$day = sprintf ("%02d",$mday);
$hour = sprintf ("%02d",$hour);
$min = sprintf ("%02d",$min);
$sec = sprintf ("%02d",$sec);
$time = "$hour.$min.$sec";
$year += 1900;
$date = "$day.$month.$year";
$datestamp = "$year$month$day";
$timestamp = "$hour.$min.$sec";
$path = "/save/ekis-web-test/".$datestamp;
# databse connection info ...
$username = "root";
$password = "";
@host = ("localhost");
foreach $host (@host) {
# connect to the database and retrieve a tuple of your databases
$dbh = DBI->connect("DBI:mysql:host=$host",$username,$password) or die "Bad login info";
# Dp, le 21 mai 2004 -> je prends toutes les DB avec show databases
$sth = $dbh->prepare("show databases");
$sth->execute();
# for each database ... back it up!
while(@row = $sth->fetchrow_array()) {
if(!$row[0]) { die "No dbs to backup!"; }
foreach $db (@row) {
$test2 = substr($db,0,4);
$test = substr($db,0,5);
if ($db eq "test" || $test2 eq "Copy" || $test2 eq "copy" || $test eq "Copie" || $test eq "copie") {}
else {
system("mysqldump --add-drop-table --complete-insert --database ".$db." | zip > ".$path."/".$datestamp."_".$db.".sql.zip");
}
}
}
# Backup termine liberation des objets
$sth->finish();
$dbh->disconnect();
}
exit;
Tous fonctionnais jusqu'à hier sur les trois serveur mais depuis hier soir le serveur de SVG me renvois ceci :
- Code: Tout sélectionner
[root@SME-SVG ~]# /root/dumpmysql
Name "main::date" used only once: possible typo at /root/dumpmysql line 26.
Name "main::time" used only once: possible typo at /root/dumpmysql line 24.
Name "main::timestamp" used only once: possible typo at /root/dumpmysql line 28.
install_driver(mysql) failed: Can't locate DBD/mysql.pm in @INC (@INC contains: /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/5.8.5 /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/5.8.4 /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/5.8.3 /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/5.8.2 /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/5.8.1 /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/5.8.0 /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5/5.8.5 /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5/5.8.4 /usr/lib/perl5/site_perl/5.8.5/5.8.3 /usr/lib/perl5/site_perl/5.8.5/5.8.2 /usr/lib/perl5/site_perl/5.8.5/5.8.1 /usr/lib/perl5/site_perl/5.8.5/5.8.0 /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi/5.8.5 /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi/5.8.4 /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi/5.8.3 /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi/5.8.2 /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi/5.8.1 /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi/5.8.0 /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.5/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.5/5.8.5 /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.5/5.8.4 /usr/lib/perl5/vendor_perl/5.8.5/5.8.3 /usr/lib/perl5/vendor_perl/5.8.5/5.8.2 /usr/lib/perl5/vendor_perl/5.8.5/5.8.1 /usr/lib/perl5/vendor_perl/5.8.5/5.8.0 /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/5.8.5/i386-linux-thread-multi /usr/lib/perl5/5.8.5 /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl/5.8.4 /usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/site_perl/5.8.2 /usr/lib/perl5/site_perl/5.8.1 /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl/5.8.4 /usr/lib/perl5/vendor_perl/5.8.3 /usr/lib/perl5/vendor_perl/5.8.2 /usr/lib/perl5/vendor_perl/5.8.1 /usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl .) at (eval 3) line 3.
Perhaps the DBD::mysql perl module hasn't been fully installed,
or perhaps the capitalisation of 'mysql' isn't right.
Available drivers: DBM, ExampleP, File, Gofer, Proxy, Sponge.
at /root/dumpmysql line 42
Donc un petit find
- Code: Tout sélectionner
[root@SME-SVGt /]# find -iname mysql.pm
./usr/lib/perl5/vendor_perl/5.8.8/i386-linux-thread-multi/Bundle/DBD/mysql.pm
./usr/lib/perl5/vendor_perl/5.8.8/i386-linux-thread-multi/DBD/mysql.pm
./usr/lib/perl5/vendor_perl/5.8.8/i386-linux-thread-multi/Mysql.pm
./usr/lib/perl5/vendor_perl/5.8.5/Mail/SpamAssassin/BayesStore/MySQL.pm
Et la je suis concé
