Hezad's blog

#!/usr/bin/perl
 
use strict;
use warnings;
use POSIX qw(strftime);
my $date = strftime "%d-%m-%y", localtime;
 
print <<"EOP";
+ ------------------ w3bak.pl ------------------ +
|                                                |
| This script will make a backup of your server  |
| data. For now, two things are saved :          |
|                                                |
| 1) your www folder (or any folder used to host |
|    files)                                      |
| 2) your mysql databases structure and data     |
|                                                |
| USAGE :                                        |
| w3bak.pl <sql login> <sql password> <www path> |
| <backup folder>                                |
|                                                |
| DEFAULT VALUES :                               |
| <www path>       = /var/www                    |
| <backup folder>  = .                           |
|                                                |
+ -----------------------------------------------+
 
EOP
 
my $sql_login = $ARGV[0] || die('Erreur : login SQL non renseigné'."\n");
my $sql_password = $ARGV[1] || die('Erreur : password SQL non renseigné'."\n");
my $www_path = $ARGV[2] || "/var/www";
my $bak_folder = $ARGV[3] || '.';
 
$bak_folder .= "/w3bak_$date";
 
print "  -  Creating $bak_folder\n";
my $mkdir = `mkdir $bak_folder`;
print "  -  Copying $www_path\n";
my $files_bak = `cp -R $www_path $bak_folder`;
print "  -  Dumping databases\n";
my $dump = `mysqldump -u $sql_login -p$sql_password --all-databases > $bak_folder/sql_backup.sql`;
 
print "  -  Done.\n\n"