if( $arg eq "-p" ) {
		# get next arg as value
		$pathBackup = shift( @ARGV );
		if ( length($pathBackup) > 0 ) {
			next;
		}
	}
	# all of the above, "legal" args had "next" statements, so...
	die( "Invalid argument: $arg\n" );
}

if ($argNb < 2) {
	die("Obligatory arguments not present !");
}
#
# Connexion a a MySQL et sauvegarde des parametres
#
$path = $pathBackup;
#print "le path:$path\n";
#die("fin pour test");
# databse connection info ...
$host = "localhost";
$username = "root";
$password = "VotreMotDePasse";

# 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) {
		system("mysqldump --opt --user=$username --password=$password $db > $path/$db\.sql");
	}
}

# Backup termine liberation des objets
$sth->finish();
$dbh->disconnect();

exit;

# Fonction pour imprimer aide sur la fonction
sub DisplayUsage
	{
	print "usage:\nmysqlBackup -p path_where_backup\n\n";
	print "path_where_backup: chemin de la sauvegarde, le code du jour 0-6 est ajoute\n\n";
	print "Exemple:\nmysqlBackup -p /Volume/data/backup\n";
	print "Effectura le backup des bases de donnees ici /Volume/data/backup/\n";
	exit(1);
	}