- #
- # Temporary: create backupInfo files in each backup
- # directory
- #
- foreach ( my $i = 0 ; $i < @Backups ; $i++ ) {
- BackupPC::Storage->backupInfoWrite($dir, $Backups[$i]{num},
- $Backups[$i]);
- if ( 0 ) {
- my $bkupNum = $Backups[$i]{num};
- if ( !-f "$dir/$bkupNum/backupInfo" ) {
- my($dump) = Data::Dumper->new(
- [ $Backups[$i]],
- [qw(*backupInfo)]);
- $dump->Indent(1);
- if ( open(BKUPINFO, ">", "$dir/$bkupNum/backupInfo") ) {
- print(BKUPINFO $dump->Dump);
- close(BKUPINFO);
- }
- }
- }
- }
-