Komplette Ordner mit tar packen und speichern

#!/usr/bin/perl
 
$MYSQL_HOST = "localhost";
$MYSQL_DATA = "database";
$MYSQL_USER = "backup";
$MYSQL_PASS = "sql passwort";

CREATE TABLE IF NOT EXISTS `backup_folders` (
  `folder` varchar(255) NOT NULL,
  `frequency` enum('HOURLY','DAILY','WEEKLY','MONTHLY') NOT NULL,
  `name` varchar(255) NOT NULL,
  `target` varchar(255) NOT NULL,
  `owner` varchar(255) NOT NULL,
  `rights` varchar(255) NOT NULL,
  `active` enum('Y','N') NOT NULL,
  PRIMARY KEY  (`folder`,`frequency`)
) ENGINE=MyISAM DEFAULT CHARSET=latin1;

CREATE TABLE IF NOT EXISTS `backup_log` (
  `id` int(10) unsigned NOT NULL auto_increment,
  `date` datetime NOT NULL,
  `type` enum('FOLDER','DATABASE') NOT NULL,
  `message` text NOT NULL,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1

-- Benutzer mit dem Passwort "***" erstellen
CREATE USER 'backup'@'localhost' IDENTIFIED BY '***';
 
-- Dem Benutzer die noetigen Leserechte geben
GRANT SELECT ,
RELOAD ,
LOCK TABLES ON * . * TO 'backup'@'localhost' IDENTIFIED BY '***' WITH MAX_QUERIES_PER_HOUR 0 MAX_CONNECTIONS_PER_HOUR 0 MAX_UPDATES_PER_HOUR 0 MAX_USER_CONNECTIONS 0 ;
 
-- Dem Benutzer erlauben, in die Log-Tabelle zu schreiben
GRANT SELECT , INSERT ON `database`.`backup_log` TO 'backup'@'localhost';

#!/usr/bin/perl
 
require '/pfad/zu/config.inc.pl';
use DBI;
 
##################################################################################################
 
sub filename {
   my ($string) = @_;
   $string =~ s/[^[:alnum:]_.]/_/g;
   return $string;
}
 
##################################################################################################
 
 
 
if($ARGV[0] eq "HOURLY" || $ARGV[0] eq "DAILY" || $ARGV[0] eq "WEEKLY" || $ARGV[0] eq "MONTHLY") {
   $frequency = $ARGV[0];
} else {
   print "Usage:\n";
   print "   ".$0." HOURLY\n";
   print "   ".$0." DAILY\n";
   print "   ".$0." WEEKLY\n";
   print "   ".$0." MONTHLY\n\n";
   exit;
}
 
# Datum ermitteln
 
my ($sec,$min,$hour,$mday,$mon,$year) = localtime(time);
my $time = sprintf("%0.2d-%0.2d-%0.2d",$hour,$min,$sec);
my $date = sprintf("%0.2d-%0.2d-%0.2d",$year+1900,++$mon,$mday);
 
# Log Cache
 
my $CONTENT = "";
 
# Hostname
 
my $HOSTNAME = `hostname`;
$HOSTNAME =~ s/\n//g;
 
# Herstellen der MySQL Verbindung
 
my $DB = DBI->connect('dbi:mysql:'.$MYSQL_DATA.':localhost:3306', $MYSQL_USER , $MYSQL_PASS) || exit 1;
$CONTENT = $CONTENT."#=> Verbindung hergestellt\n";
 
# Auslesen der Datenbanken
 
$RESULT = $DB->prepare("SELECT `folder`, `name`, `target`, `owner`, `rights` FROM backup_folders WHERE frequency='".$frequency."' AND active='Y'") || die "Error: ".$DBI::errstr;
$RESULT->execute() || die "Error: ".$DBI::errstr;
$CONTENT = $CONTENT."#=> Jobs ausgelesen\n";
 
# Backups vorhanden?
if($RESULT->rows > 0) {
 
   # Backups erstellen 
   $CONTENT = $CONTENT."#=> Starte Backup fuer \"".$HOSTNAME."\" (".$frequency.")\n\n";
   while(my ($folder, $name, $target, $owner, $rights) = $RESULT->fetchrow_array)
   {
      $name = filename($name);
 
      # Falls nicht vorhanden Ordner fuer Datenbank anlegen
      $CONTENT = $CONTENT."   => \"".$folder."\" (".$name.")";
      if(-d $target) {
         if(! -d $target."/".$name."/") {
            system("mkdir ".$target."/".$name);
            system("chown -R ".$owner." ".$target."/".$name);
            system("chmod -R ".$rights." ".$target."/".$name);
         }
         if (-e $target."/".$name) {
 
            $dump_file = $target."/".$name."/".$date . "_" . $time . "_". $name . ".tar.gz";
            if(system("tar cfz ".$dump_file." ".$folder." 2> /dev/null")==0) {
               $CONTENT = $CONTENT." erfolgreich\n";
            } else {
               $CONTENT = $CONTENT." fehlgeschlagen!\n";
            }
 
            # Backup durchfuehren
            system("chown -R ".$owner." ".$dump_file);
            system("chmod -R ".$rights." ".$dump_file);
 
         } else {
            $CONTENT = $CONTENT."   FEHLER: ".$target.$name." ist nicht beschreibar!\n";
         }
      } else {
         $CONTENT = $CONTENT."   FEHLER: ".$target." existiert nicht!\n";
      }
   }
   $CONTENT = $CONTENT."\n#=> Backup beendet\n";
 
} else {
   exit 0;
}
 
# Verbindung trennen
 
$RESULT->finish() || die "Error: ".$DBI::errstr;
$DB->disconnect() || die "Error: ".$DBI::errstr;
$CONTENT = $CONTENT."#=> Datenbank Verbindung getrennt";
 
# Logverlauf in Datenbank schreiben
 
my $LOG = DBI->connect('dbi:mysql:'.$MYSQL_DATA.':localhost:3306', $MYSQL_USER , $MYSQL_PASS) || print $CONTENT;
$RESULT = $LOG->prepare("INSERT INTO backup_log SET date=NOW(), type='FOLDER', message='".$CONTENT."'") || print $CONTENT;
$RESULT->execute() || print $CONTENT;
 
$RESULT->finish() || die "Error: ".$DBI::errstr;
$LOG->disconnect() || die "Error: ".$DBI::errstr;

# Datenbank Backup
# m h dom mon dow user    command
23 *    * * *   root    /usr/bin/perl /pfad/zu/backup_folders.pl HOURLY
30 4    * * *   root    /usr/bin/perl /pfad/zu/backup_folders.pl DAILY
12 4    * * 6   root    /usr/bin/perl /pfad/zu/backup_folders.pl WEEKLY
43 4    1 * *   root    /usr/bin/perl /pfad/zu/backup_folders.pl MONTHLY