Re: [BackupPC-users] Backuppc latest, running, security question

[Rich D. <rd...@we...>]

> Of course, in the equally or more likely scenario where you are moving
> an existing backuppc drive to a new machine or trying to recover from
> the mirrored copy you keep offsite (and may be all you have left), you'd
> probably prefer to have all the configuration under the mount point you
> just moved...
> 
Or do as I do, and keep both.  I just run this in my daily cron:

#!/usr/bin/perl -w
use strict;
use File::Copy;

my $backuppc_live = '/backup1';
my $backuppc_save = '/etc/backuppc';
my $if;
my $of;
my $dir;

system("mkdir -p $backuppc_save/conf");
system("mkdir -p $backuppc_save/pc");

# capture the main config files
$if = $backuppc_live . '/conf/config.pl';
$of = $backuppc_save . '/conf/config.pl';
copy($if, $of) or die "Could not copy $if to $of: $!\n";

$if = $backuppc_live . '/conf/hosts';
$of = $backuppc_save . '/conf/hosts';
copy($if, $of) or die "Could not copy $if to $of: $!\n";

# Get any PC specific configs
opendir(DIR, "$backuppc_live/pc") or die "Could not open the pc
directory: $!\n";
while( $dir = readdir(DIR)) {
    if ($dir eq '.' or $dir eq '..') {
        next;
    }

    if (-d "$backuppc_live/pc/$dir") {
        system("mkdir -p $backuppc_save/pc/$dir");

        $if = $backuppc_live . "/pc/$dir/config.pl";
        $of = $backuppc_save . "/pc/$dir/config.pl";
        copy($if, $of) or warn "Could not copy $if to $of: $!\n";
    }
}

close(DIR);


--
Regards,
Rich

Current Conditions in Des Moines, IA
Overcast
Temp 33.8F, Windchill 21.6F
Winds out of the South at 23mph