equal
deleted
inserted
replaced
67 # now sitting inside the directory for the last full backup |
67 # now sitting inside the directory for the last full backup |
68 verbose "Now in @{[$ftp->pwd]}.\n"; |
68 verbose "Now in @{[$ftp->pwd]}.\n"; |
69 |
69 |
70 # and now we can start doing something with our filesystems |
70 # and now we can start doing something with our filesystems |
71 foreach my $dev (keys %dev) { |
71 foreach my $dev (keys %dev) { |
72 my $file = basename($dev) . ".$level.gz.ssl"; |
72 my $file = basename($dev) . ".$opt_level.gz.ssl"; |
73 my $label = "$NODE:" . basename($dev{$dev}); |
73 my $label = "$NODE:" . basename($dev{$dev}); |
74 verbose "Working on $dev as $dev{$dev}, stored as $file\n"; |
74 verbose "Working on $dev as $dev{$dev}, stored as $file\n"; |
75 $ENV{key} = $default{KEY}; |
75 $ENV{key} = $default{KEY}; |
76 my $dumper = open(my $dump, "-|") or do { |
76 my $dumper = open(my $dump, "-|") or do { |
77 my $head = <<__; |
77 my $head = <<__; |