FTP Perl backup script for Debian 7

ftp-backup.pl

#!/usr/bin/perl -w

# ORGINAL FTP BACKUP SCRIPT V1.00
# Version 1.01 2nd hand coded BY ZEROF <zerof at backbox.org>
# This script was updated because some providers support only FTP passive mode (like online.net)
# And I needed Debian support as well (replaced path of gzip)
# SFTP support didn't work, need few lines of new code I guess, I didn't spend to much time on that part
# i just disabled, for now. If you have idea about fixing this, keep me posted.
# Is this best solution you will find? Nop, find some more secured scipt like duplicity
# COPYRIGHT 2013 - WEBHOSTINGHERO.COM
# Orginal script http://www.webhostinghero.com/ftp-backup-script-for-websites-and-mysql/

# DELETE BACKUP AFTER FTP UPLOAD (0 = no, 1 = yes)
$delete_backup = 1;

# ENTER THE PATH TO THE DIRECTORY YOU WANT TO BACKUP, NO TRAILING SLASH
$homedir = '/var/www/public_html';

# ENTER THE PATH TO THE LOCAL DIRECTORY YOU WISH TO SAVE THE BACKUP FILE TO, NO TRAILING SLASH
# LOCAL BACKUP DIRECTORY MUST BE OUTSIDE THE HOME DIRECTORY
$backup_dest_dir = '/var';

# FTP PARAMETERS
$ftp_backup = 1;
#SFTP removed, need to be fixed
#$use_sftp = 0;
$ftp_host = "somehost.com";
$ftp_port = 21; # FTP (default 21) OR SFTP (default 22) PORT
$ftp_user = "user";
$ftp_pwd = "password";
$ftp_dir = "/backup";
$ftp_debug = 0;


# BACKUP FILE NAME OPTIONS
($a,$d,$d,$day,$month,$yearoffset,$r,$u,$o) = localtime();
$year = 1900 + $yearoffset;
$homedir_archive = "homedir_backup-$day-$month-$year.tar.gz";
$full_backup_file = "full_site_backup-$day-$month-$year.tar.gz";

# MYSQL BACKUP PARAMETERS
$dbhost = 'localhost';
$dbuser = 'user';
$dbpwd = 'password';
$mysql_backup_file = "mysql_databases-$day-$month-$year.sql.gz";
$backup_all_databases = 'no'; # IF SET TO NO, SPECIFY INDIVIDUAL DATABASE NAME(S) BELOW

# ENTER DATABASE NAMES TO BACKUP SEPARATED BY SPACES (ONLY IF backup_all_databases IS SET TO 'no')
$database_names = 'name';

# SYSTEM COMMANDS
$cmd_mysqldump = '/usr/bin/mysqldump';
#Fixed for Debian 7 
$cmd_gzip = '/bin/gzip';

# ----------- DO NOT EDIT BELOW THIS LINE -----------

# CHECK TO SEE IF DIRECTORY BACKUP EXISTS
if(!-d $homedir)
{
	die "Invalid path name (directory_to_backup): $homedir";
}

# CHECK TO SEE IF LOCAL BACKUP DIRECTORY EXISTS
if(!-d $backup_dest_dir)
{
	print "\nCreating local backup directory: $backup_dest_dir\n";
	mkdir $backup_dest_dir or die "Error creating local backup directory (backup_dest_dir): $backup_dest_dir ";
}

# CURRENT DATE / TIME
($a,$d,$d,$day,$month,$yearoffset,$r,$u,$o) = localtime();
$year = 1900 + $yearoffset;

# BACKUP FILES
print "\nArchiving home directory ($homedir)\n";
$syscmd = "tar --exclude $backup_dest_dir" . "/*  -czf $backup_dest_dir/$homedir_archive -C $homedir .";
system($syscmd);

# MYSQL DATABASE BACKUP
if($backup_all_databases eq 'yes')
{
  print "\nCreating SQL dump of all databases";
  $syscmd = "$cmd_mysqldump --host=$dbhost --user=$dbuser --password=$dbpwd --add-drop-table --all-databases -c -l | $cmd_gzip > $backup_dest_dir/$mysql_backup_file";
}
elsif(!$database_names eq "")
{
  $syscmd = "$cmd_mysqldump --host=$dbhost --user=$dbuser --password=$dbpwd --add-drop-table --databases $database_names -c -l | $cmd_gzip > $backup_dest_dir/$mysql_backup_file";
}
system($syscmd);

# CREATING FULL SITE BACKUP FILE
print "\nCreating full backup archive\n";
if(-e "$backup_dest_dir/$mysql_backup_file") {
	$syscmd = "tar -czf $backup_dest_dir/$full_backup_file -C $backup_dest_dir $homedir_archive $mysql_backup_file";
}
else {
	$syscmd = "tar -C $backup_dest_dir -cvzf $backup_dest_dir/$full_backup_file $homedir_archive";
}

system($syscmd);

# DELETING SITE AND MYSQL BACKUP FILES
if(-e "$backup_dest_dir/$mysql_backup_file") {
	unlink("$backup_dest_dir/$mysql_backup_file");
}
unlink("$backup_dest_dir/$homedir_archive");

# UPLOADING FULL SITE BACKUP TO REMOTE FTP SERVER / "This part was updated, because i wanted to enable ftp passive mod"
if($ftp_backup == 1)
{
	if($use_sftp == 0)
	{
		use Net::FTP;

		print "\nUploading backup to remote server using FTP\n";

		my $ftp = Net::FTP->new($ftp_host, Debug => $ftp_debug, port => $ftp_port Passive => 1)
		  or die "Cannot connect to server: $@";
		
		$ftp->login($ftp_user, $ftp_pwd)
		  or die "Cannot login ", $ftp->message;
		  
		$ftp->cwd($ftp_dir)
		  or die "Can't CWD to remote FTP directory ", $ftp->message;
		  
		$ftp->binary();
		
		$ftp->put("$backup_dest_dir/$full_backup_file")
		  or warn "Upload failed ", $ftp->message;
		
		$ftp->quit();
	}
	else
	{
	#SFTP removed, need to be fixed
	#		print "\nUploading backup to remote server using SFTP\n";
		
#		use Net::SFTP;

		my %args = (
			user => $ftp_user,
			password => $ftp_pwd,
			debug => $ftp_debug,
			ssh_args => {
				port => $ftp_port
			}
		);
		
		my $sftp = Net::SFTP->new($ftp_host, %args);
		
		$sftp->do_opendir($ftp_dir)
			or die "Can't open remote directory $ftp_dir";
			
		$sftp->put("$backup_dest_dir/$full_backup_file", "$ftp_dir/$full_backup_file")
			or die("Upload failed");

	}
	
	print "\nUpload completed\n";
}

# DELETING FULL SITE BACKUP
if($delete_backup == 1)
{
	print "\nDeleting local backup archive\n";
	unlink("$backup_dest_dir/$full_backup_file");
}

print "\n";#!/usr/bin/perl -w

# SIMPLE FTP BACKUP SCRIPT V1.01
# Version 1.01 2nd hand code BY ZEROF <zerof at backbox.org>
# This script was edited because some providers support only passive mode and I needed Debian support.
# Is thi
# COPYRIGHT 2013 - WEBHOSTINGHERO.COM
# Orginal script http://www.webhostinghero.com/ftp-backup-script-for-websites-and-mysql/

# DELETE BACKUP AFTER FTP UPLOAD (0 = no, 1 = yes)
$delete_backup = 1;

# ENTER THE PATH TO THE DIRECTORY YOU WANT TO BACKUP, NO TRAILING SLASH
$homedir = '/var/www/public_html';

# ENTER THE PATH TO THE LOCAL DIRECTORY YOU WISH TO SAVE THE BACKUP FILE TO, NO TRAILING SLASH
# LOCAL BACKUP DIRECTORY MUST BE OUTSIDE THE HOME DIRECTORY
$backup_dest_dir = '/var';

# FTP PARAMETERS
$ftp_backup = 1;
#SFTP removed, need to be fixed
#$use_sftp = 0;
$ftp_host = "somehost.com";
$ftp_port = 21; # FTP (default 21) OR SFTP (default 22) PORT
$ftp_user = "user";
$ftp_pwd = "password";
$ftp_dir = "/backup";
$ftp_debug = 0;


# BACKUP FILE NAME OPTIONS
($a,$d,$d,$day,$month,$yearoffset,$r,$u,$o) = localtime();
$year = 1900 + $yearoffset;
$homedir_archive = "homedir_backup-$day-$month-$year.tar.gz";
$full_backup_file = "full_site_backup-$day-$month-$year.tar.gz";

# MYSQL BACKUP PARAMETERS
$dbhost = 'localhost';
$dbuser = 'user';
$dbpwd = 'password';
$mysql_backup_file = "mysql_databases-$day-$month-$year.sql.gz";
$backup_all_databases = 'no'; # IF SET TO NO, SPECIFY INDIVIDUAL DATABASE NAME(S) BELOW

# ENTER DATABASE NAMES TO BACKUP SEPARATED BY SPACES (ONLY IF backup_all_databases IS SET TO 'no')
$database_names = 'name';

# SYSTEM COMMANDS
$cmd_mysqldump = '/usr/bin/mysqldump';
#Fixed for Debian 7 
$cmd_gzip = '/bin/gzip';

# ----------- DO NOT EDIT BELOW THIS LINE -----------

# CHECK TO SEE IF DIRECTORY BACKUP EXISTS
if(!-d $homedir)
{
	die "Invalid path name (directory_to_backup): $homedir";
}

# CHECK TO SEE IF LOCAL BACKUP DIRECTORY EXISTS
if(!-d $backup_dest_dir)
{
	print "\nCreating local backup directory: $backup_dest_dir\n";
	mkdir $backup_dest_dir or die "Error creating local backup directory (backup_dest_dir): $backup_dest_dir ";
}

# CURRENT DATE / TIME
($a,$d,$d,$day,$month,$yearoffset,$r,$u,$o) = localtime();
$year = 1900 + $yearoffset;

# BACKUP FILES
print "\nArchiving home directory ($homedir)\n";
$syscmd = "tar --exclude $backup_dest_dir" . "/*  -czf $backup_dest_dir/$homedir_archive -C $homedir .";
system($syscmd);

# MYSQL DATABASE BACKUP
if($backup_all_databases eq 'yes')
{
  print "\nCreating SQL dump of all databases";
  $syscmd = "$cmd_mysqldump --host=$dbhost --user=$dbuser --password=$dbpwd --add-drop-table --all-databases -c -l | $cmd_gzip > $backup_dest_dir/$mysql_backup_file";
}
elsif(!$database_names eq "")
{
  $syscmd = "$cmd_mysqldump --host=$dbhost --user=$dbuser --password=$dbpwd --add-drop-table --databases $database_names -c -l | $cmd_gzip > $backup_dest_dir/$mysql_backup_file";
}
system($syscmd);

# CREATING FULL SITE BACKUP FILE
print "\nCreating full backup archive\n";
if(-e "$backup_dest_dir/$mysql_backup_file") {
	$syscmd = "tar -czf $backup_dest_dir/$full_backup_file -C $backup_dest_dir $homedir_archive $mysql_backup_file";
}
else {
	$syscmd = "tar -C $backup_dest_dir -cvzf $backup_dest_dir/$full_backup_file $homedir_archive";
}

system($syscmd);

# DELETING SITE AND MYSQL BACKUP FILES
if(-e "$backup_dest_dir/$mysql_backup_file") {
	unlink("$backup_dest_dir/$mysql_backup_file");
}
unlink("$backup_dest_dir/$homedir_archive");

# UPLOADING FULL SITE BACKUP TO REMOTE FTP SERVER
if($ftp_backup == 1)
{
	if($use_sftp == 0)
	{
		use Net::FTP;

		print "\nUploading backup to remote server using FTP\n";

		my $ftp = Net::FTP->new($ftp_host, Debug => $ftp_debug, port => $ftp_port Passive => 1)
		  or die "Cannot connect to server: $@";
		
		$ftp->login($ftp_user, $ftp_pwd)
		  or die "Cannot login ", $ftp->message;
		  
		$ftp->cwd($ftp_dir)
		  or die "Can't CWD to remote FTP directory ", $ftp->message;
		  
		$ftp->binary();
		
		$ftp->put("$backup_dest_dir/$full_backup_file")
		  or warn "Upload failed ", $ftp->message;
		
		$ftp->quit();
	}
	else
	{
	#SFTP removed, need to be fixed
	#		print "\nUploading backup to remote server using SFTP\n";
		
#		use Net::SFTP;

		my %args = (
			user => $ftp_user,
			password => $ftp_pwd,
			debug => $ftp_debug,
			ssh_args => {
				port => $ftp_port
			}
		);
		
		my $sftp = Net::SFTP->new($ftp_host, %args);
		
		$sftp->do_opendir($ftp_dir)
			or die "Can't open remote directory $ftp_dir";
			
		$sftp->put("$backup_dest_dir/$full_backup_file", "$ftp_dir/$full_backup_file")
			or die("Upload failed");

	}
	
	print "\nUpload completed\n";
}

# DELETING FULL SITE BACKUP
if($delete_backup == 1)
{
	print "\nDeleting local backup archive\n";
	unlink("$backup_dest_dir/$full_backup_file");
}

print "\n";