#!/usr/bin/perl -s
$ENV{PATH}='/bin:/usr/bin:/usr/local/mysql/bin';

umask 0;

my ($sec,$min,$hour,$mday,$mon,$year) = localtime(time);
my $time = sprintf "%0.2d.%0.2d.%0.2d.%2.2d%2.2d", ($year%100),++$mon,$mday,$hour,$min;

chdir "/root/sql";
@ls=`ls *.maillist.sql.gz`;
chomp @ls;
@md5a = `gzip -dc $ls[-1] | md5sum`;
print ".\n";
system "mysqldump -p########## maillist > $time.maillist.sql" || die "$!";
print ".\n";
system "gzip --best $time.maillist.sql" || die "$!";
print ".\n";
@md5b = `gzip -dc $time.maillist.sql.gz | md5sum`;
system "rm $time.maillist.sql.gz" if $md5a[0] eq $md5b[0];

@ls=`ls *.leadcapture.sql.gz`;
chomp @ls;
@md5a = `gzip -dc $ls[-1] | md5sum`;
print ".\n";
system "mysqldump -p########## leadcapture > $time.leadcapture.sql" || die "$!";
print ".\n";
system "gzip --best $time.leadcapture.sql" || die "$!";
print ".\n";
@md5b = `gzip -dc $time.leadcapture.sql.gz | md5sum`;
system "rm $time.leadcapture.sql.gz" if $md5a[0] eq $md5b[0];