Auto Database Backup Script 1.0

damn that was fast
thanks mate!

however, now I'm getting this

Code:

Can't use an undefined value as a symbol reference at /usr/share/perl5/Net/FTP/dataconn.pm line 54.

Hope you'll have the patience for this as well

---

 

Hi Matt

Here it is, and thanks
btw, I need it for the single database.

Code:

#!/usr/bin/perl -w
# Z22SE.co.uk
# Used in conjunction with dbbackup.sh
# Uploads current database backup, and removes files from remote location more than $old
use Net::FTP;
use Date::Manip;

# FTP PARAMETERS
$ftp_backup = 1;
$today = UnixDate("today","%Y-%m-%d");
$old = UnixDate("5 days ago","%Y-%m-%d");
$ftp_host = "xxxxxxxxxxx";
$ftp_port = "21";
$ftp_user = "xxxxxxxxx";
$ftp_pwd = "xxxxxxx";
$ftp_dir = "databases";
$dir = "/home/nginx/domains/eliterehabplacement.com/backup";

# Array of Database Files to Upload
@files = ("$dir/wp11571376db_6278.$today.sql.bz2");

# Array of Old Database Files to be Deleted
@old_files = ("wp11571376db_6278.$old.sql.bz2");

&backup();

# UPLOADING BACKUP TO BACKUP SERVER
sub backup {
if($ftp_backup == 1)
{
        my $ftp = Net::FTP->new($ftp_host, Port => $ftp_port, Debug => 0)
          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();

        foreach $file (@files) {
        $ftp->put($file)
          or warn "Upload failed ", $ftp->message;
        }

        foreach $oldfile (@old_files) {
        $ftp->delete($oldfile)
           or warn "Delete failed ", $ftp->message;
        }

        $ftp->quit();
}
}

 

you are right but I'll change the pass later
and I think only my server's IP allowed
at least that was the idea

 

Thanks mate, I appreciate your help a lot
Unfortunately it didn't work
Perhaps it's something related to ovh backup thing

got this message

Code:

Can't use an undefined value as a symbol reference at /usr/share/perl5/Net/FTP/dataconn.pm line 54.