#!/usr/bin/perl -w

use lib '/usr/sl';
use slbackup;

######################################################################
$source = 'x200';
@disks  = qw (
               sda
            );
######################################################################

CheckHostName($source);

SaveSystemInfos();

SaveBootSector(@disks);

SaveFdisk(@disks);

$exclude       = $DefaultExcludeList;
$rsync_options = $DefaultRsyncOptions;
$tar_options   = $DefaultTarOptions;
$target        = "${DefaultTarget}$source/";

$exclude       = $exclude . ' --exclude /transfer';
$exclude       = $exclude . ' --exclude /media';
$exclude       = $exclude . ' --exclude /home/loescher/.local/share/Trash';

@dirs = split('--exclude ',$exclude);
CreateMissingDirectoriesScript(@dirs);

$tar_target = CheckTarOption();
if (defined $tar_target)
{
  #print "tar $exclude $tar_options $tar_target /\n";
  xsystem("tar $exclude $tar_options $tar_target /");
}
else
{
  #print "rsync $rsync_options $exclude / $target\n";
  xsystem("rsync $rsync_options $exclude / $target");
}