version 1.9, 2000/10/23 01:23:35
|
version 1.10, 2000/10/23 01:24:59
|
Line 10 my ($PWD) = `pwd`;
|
Line 10 my ($PWD) = `pwd`;
|
chomp $PWD; |
chomp $PWD; |
my ($SRCPATH) = "$PWD/../dimrub/src"; |
my ($SRCPATH) = "$PWD/../dimrub/src"; |
my ($ZIP) = "/home/piataev/bin/zip"; |
my ($ZIP) = "/home/piataev/bin/zip"; |
my $DUMPFILE = /tmp/dump.sql |
my $DUMPFILE = "/tmp/dump.sql"; |
my ($SENDMAIL) = "/usr/sbin/sendmail"; |
my ($SENDMAIL) = "/usr/sbin/sendmail"; |
my ($TMSECS) = 30*24*60*60; |
my ($TMSECS) = 30*24*60*60; |
my (%RevMonths) = |
my (%RevMonths) = |
Line 654 EOT
|
Line 654 EOT
|
if (! -f $DUMPFILE) { |
if (! -f $DUMPFILE) { |
`mysqldump -u piataev chgk > $DUMPFILE`; |
`mysqldump -u piataev chgk > $DUMPFILE`; |
} |
} |
open F, "$ZIP -j - $DUMPFILE |"; |
open F, "$ZIP -j - $DUMPFILE |"; |
print (<F>); |
print (<F>); |
close F; |
close F; |
$dbh->disconnect; |
$dbh->disconnect; |