| 1 |
#!/usr/bin/perl -w |
| 2 |
|
| 3 |
# quick hack to create BackupPC pool out of increments |
| 4 |
|
| 5 |
# 2006-02-07 Dobrica Pavlinusic <dpavlin@rot13.org> |
| 6 |
|
| 7 |
use File::Find; |
| 8 |
use Data::Dumper; |
| 9 |
|
| 10 |
use lib "/data/backuppc/lib"; |
| 11 |
use BackupPC::Lib; |
| 12 |
|
| 13 |
|
| 14 |
my $restore_path = './temp/restore.tar.gz'; |
| 15 |
|
| 16 |
# connect to BackupPC_server |
| 17 |
|
| 18 |
die("BackupPC::Lib->new failed\n") if ( !(my $bpc = BackupPC::Lib->new) ); |
| 19 |
my %Conf = $bpc->Conf(); |
| 20 |
|
| 21 |
$bpc->ChildInit(); |
| 22 |
|
| 23 |
my $err = $bpc->ServerConnect($Conf{ServerHost}, $Conf{ServerPort}); |
| 24 |
if ( $err ) { |
| 25 |
print("Can't connect to server ($err)\n"); |
| 26 |
exit(1); |
| 27 |
} |
| 28 |
|
| 29 |
sub increment { |
| 30 |
my $path = $File::Find::name; |
| 31 |
|
| 32 |
print "working on $path\n"; |
| 33 |
|
| 34 |
if (-e $restore_path) { |
| 35 |
unlink $restore_path || die "can't remove $restore_path: $!\n"; |
| 36 |
} |
| 37 |
link $path, $restore_path || die "can't create link $path -> $restore_path: $!\n"; |
| 38 |
|
| 39 |
$bpc->ServerMesg("log User backuppc started restore of $restore_path"); |
| 40 |
|
| 41 |
my $full = 0; |
| 42 |
my $r = $bpc->ServerMesg("backup restore restore backuppc $full"); |
| 43 |
print "backup --> $r\n"; |
| 44 |
|
| 45 |
# Status_backup_in_progress |
| 46 |
# Status_idle |
| 47 |
|
| 48 |
my $state = 'unknown'; |
| 49 |
|
| 50 |
while ($state ne 'Status_idle') { |
| 51 |
my $s = $bpc->ServerMesg("status hosts"); |
| 52 |
my %Status; |
| 53 |
{ |
| 54 |
eval "$s"; |
| 55 |
} |
| 56 |
$state = $Status{restore}->{state}; |
| 57 |
print "# $state\n"; #, Dumper($Status{restore}); |
| 58 |
sleep 1; |
| 59 |
} |
| 60 |
} |
| 61 |
|
| 62 |
find({ wanted => \&increment, follow => 0 }, './temp'); |
| 63 |
|
Parent Directory
| 
Revision Log