#!/usr/bin/env perl

use strict;
use warnings;

use Data::Dumper;

my $path = '/tmp';
my $user ='';
my $host = '';
my $pass = '';

my @dbs = (
           {name => 'ads',      include => 1},
          );

my $start = time;

for my $db (@dbs) {
    next unless $db->{include} == 1;
    my $db_name = $db->{name};
    my $sql_file = "$path/$db_name.sql";
    my $start = time;
    print "Dumping $db_name to $sql_file\n";
    my $out = `/usr/bin/ssh $user\@$host "mysqldump --add-drop-database --databases $db_name" > $sql_file`;
    print "Out $out";
}

my $end = time - $start;

#print "Full sync took: $end seconds.\n";

1;