root@circe.se

code:

#!/usr/bin/perl

# /*
#  * ----------------------------------------------------------------------------
#  * "THE BEER-WARE LICENSE" (Revision 42):
#  * <dr.slizer@gmail.com> wrote this file. As long as you retain this notice you
#  * can do whatever you want with this stuff. If we meet some day, and you think
#  * this stuff is worth it, you can buy me a beer in return dr slizer
#  * ----------------------------------------------------------------------------
#  */

# How it all works:
# You define the username and password for the database and a set of databases to backup. The script then uses mysqldump to dump
# the contents of all databases. The output from mysqldump is piped through gzip for compression. A symlink is made in the
# backup directory pointing to the latest backed up file.
# 
# There is an MD5 check for checking if the new file is the same as the latest backup, however this doesn't seem to work: gzip seems
# to output different data every time.
# 
# There is functions to replicate the backup to several different dirs, which ofcourse should be on other devices than the primary backup dir ;)
# 
# If you want to se exactly what the script does, use the -v argument, use -q if you want to run it as a cronjob.

# Pass -q as first parameter to the script for no output, e.g. ./backup -q
# Pass -v as first parameter to the script for extra output, e.g. ./backup -v

#--Settings--#
$username = 'username';			#Username to the database server
$password = 'password';			#Password the the database server
@databases = ('db1', 'db2');		#An array with databases to backup
$backupdir = '/var/dbbackup';		#The directory where the backups should be stored
@copydirs = ('/mnt/othermachine');	#An array with directories where the backup files should be copied to, for extra security
$tempdir = '/tmp';			#Temp dir where temp files should be stored during the scrip execution
$maxage = '60';				#The number of days old files should be stored, files older than this will be deleted

$compression = 'gzip -cfqn9';		#The command used to compress the files, the output from mysqldump is piped through this command and the output is written to file

#--Beginning of script--##

use Digest::MD5;

$maxage = $maxage*86400;

$quiet = 0;
$verbose = 0;

if(@ARGV[0] eq '-q'){$quiet = 1;}
if(@ARGV[0] eq '-v'){$verbose = 1;}

foreach $current (@databases)
{
	my($done) = 0;
	
	println('Backing up '.$current.'...', 0);
	my($command) = 'mysqldump -u '.$username.' -p'.$password.' '.$current.' | '.$compression.' > '.$tempdir.'/'.$current.'.tmp.gz';
	println('~$ '.$command, 1);
	system($command);
	
	#Checking if there is a previous backup of this file, if there is we check the md5 sum
	if(-e $backupdir.'/'.$current.'.gz')
	{
		println($backupdir.'/'.$current.'.gz exists', 1);
		
		open(OLDFILE, '<'.$backupdir.'/'.$current.'.gz') || die("Couldn't open $backupdir/$current.gzn");
		binmode(OLDFILE);
		$md5 = Digest::MD5->new;
		$md5->addfile(*OLDFILE);
		my($oldfile_md5) = $md5->b64digest;
		close(OLDFILE);
		
		open(NEWFILE, '<'.$tempdir.'/'.$current.'.tmp.gz') || die("Couldn't open $tempdir/$current.tmp.gzn");
		binmode(NEWFILE);
		$md5->new;
		$md5->addfile(*NEWFILE);
		my($newfile_md5) = $md5->b64digest;
		close(NEWFILE);
		
		println($backupdir.'/'.$current.'.gz MD5: '.$oldfile_md5, 1);
		println($tempdir.'/'.$current.'.tmp.gz MD5: '.$newfile_md5, 1);
		if($newfile_md5 eq $oldfile_md5)
		{
			println('~$ rm '.$tempdir.'/'.$current.'.tmp.gz', 1);
			system('rm '.$tempdir.'/'.$current.'.tmp.gz');
			$done = 1;
		}
		else
		{
			println('~$ rm '.$backupdir.'/'.$current.'.gz', 1);
			system('rm '.$backupdir.'/'.$current.'.gz');
		}
	}
	
	if(!$done)
	{
		#Checking what filename to use
		$filename = $current;
		
		my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
		$mon++;
		if($mon<10) { $mon = '0'.$mon; }
		if($mday<10) { $mday = '0'.$mday; }	
		my($date) = (1900+$year).'.'.$mon.'.'.$mday;
		
		$filename = $filename.'.'.$date;
		
		my($suffix) = 0;
		if(-e $backupdir.'/'.$filename.'.gz')
		{
			$suffix++;
			while(-e $backupdir.'/'.$filename.'.'.$suffix.'.gz')
			{
				$suffix++;
			}
			$filename = $filename.'.'.$suffix;
		}
		println('~$ mv '.$tempdir.'/'.$current.'.tmp.gz '.$backupdir.'/'.$filename.'.gz', 1);
		system('mv '.$tempdir.'/'.$current.'.tmp.gz '.$backupdir.'/'.$filename.'.gz');
		println('~$ ln -s '.$filename.'.gz '.$backupdir.'/'.$current.'.gz', 1);
		system('ln -s '.$backupdir.'/'.$filename.'.gz '.$backupdir.'/'.$current.'.gz');
		
		#Deleting files older than $maxage days
		$olddate = time-$maxage;
		my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($olddate);
		$mon++;
		if($mon<10) { $mon = '0'.$mon; }
		if($mday<10) { $mday = '0'.$mday; }	
		$olddate = (1900+$year).'.'.$mon.'.'.$mday;
		if(-e $backupdir.'/'.$current.'.'.$olddate.'.gz')
		{
			println('~$ rm '.$backupdir.'/'.$current.'.'.$olddate.'.*', 1);
			system('rm '.$backupdir.'/'.$current.'.'.$olddate.'.*');
		}
		
		#Copying the file to all @copydirs
 		foreach $curdir (@copydirs)
 		{
 			println('~$ cp '.$backupdir.'/'.$filename.'.gz '.$curdir.'/'.$filename.'.gz' , 1);
			system('cp '.$backupdir.'/'.$filename.'.gz '.$curdir.'/'.$filename.'.gz');
			
			#Deleting files older than $maxage days
			if(-e $curdir.'/'.$current.'.'.$olddate.'.gz')
			{
				println('~$ rm '.$curdir.'/'.$current.'.'.$olddate.'.*', 1);
				system('rm '.$curdir.'/'.$current.'.'.$olddate.'.*');
			}
		}
	}
	println($current.' backed up to '.$filename.'.gz.');
}

sub println
{
	my($string, $level) = @_;
	if(!$quiet)
	{
		if($verbose)
		{
			print($string."n");
		}
		elsif($level == 0)
		{
			print($string."n");
		}
	}
}