At 06:11 AM 12/20/01, Rajeev Rumale wrote:

I have a perl script that does this, which I've been wanting to get feedback on for some time. I've never had the chance to ask, though, and here's my window. The script follows, anyone is welcome to use it or pieces from it if they so desire.

I run this as a cron job nightly, as a user with the appropriate.

If it's broken for some reason, any advice on it would be most welcome.

Todd

#!/usr/bin/perl -w $|++; use strict;

# mySQL backup script, written by Todd Finney # last modified by Todd Finney, 8/12/2001

# a few variables which may change from system to # system, adjust accordingly my $data_dir = "/var/mysql/"; my $gzip = '/usr/bin/gzip'; my $mysqldump = '/usr/local/mysql/bin/mysqldump'; my $backup_dir = '/var/mysql_backup/'; my $opts = "--opt -q "; my $keep_number_of_update_backups = 3;

# get a list of all the databases, based on the # directory in which the db's reside. Done this way # so I don't have to update the script when I add # a new database. opendir(DIR,"$data_dir") || die "failed to open $data_dir $!\n"; my @databases = sort(readdir(DIR)); closedir(DIR);

# dump all the databases using mysqldump print "Backing up databases under $data_dir...\n"; for (@databases ){ next if /\.{1,2}/o; next unless -d $data_dir.$_; my $dir = $backup_dir.$_.'/'; my $file = $dir.$_.'.gz'; `/bin/mkdir $dir` if ! -d $dir; print "\tBacking up $_ in $dir..."; `$mysqldump $opts $_ | $gzip >$file`; print "done.\n"; }

# flush the logs, because the man page says to do so print "\nFlushing logs..."; `/usr/local/bin/mysqladmin flush-logs`; print "done.\n";

# get a list of all the old backup files and remove # the desired files (default any but the last 3) print "\nRemoving old update log files...\n"; opendir(LOGS, "$backup_dir"); my @ary = grep /^update-log/, readdir(LOGS); closedir(LOGS); my @sorted = reverse sort @ary; for (@sorted) { if ($keep_number_of_update_backups-- > 0 ) { print "keeping $_\n"; } else { print "deleteing ",$_,"\n"; unlink $backup_dir.$_; }

}