equal
deleted
inserted
replaced
50 CLIENT_ESTIMATE => YES, # estimate |
50 CLIENT_ESTIMATE => YES, # estimate |
51 MULTI_ESTIMATE => YES, # estimate for multiple levels |
51 MULTI_ESTIMATE => YES, # estimate for multiple levels |
52 CALCSIZE => NO, # estimate --calcsize |
52 CALCSIZE => NO, # estimate --calcsize |
53 # |
53 # |
54 RECORD => YES, # --record |
54 RECORD => YES, # --record |
55 COLLECTION => NO, |
55 COLLECTION => NO, |
56 ); |
56 ); |
57 |
57 |
58 sub exec_support; |
58 sub exec_support; |
59 sub exec_selfcheck; |
59 sub exec_selfcheck; |
60 sub exec_estimate; |
60 sub exec_estimate; |
79 |
79 |
80 my $opt_dumpdates; |
80 my $opt_dumpdates; |
81 |
81 |
82 MAIN: { |
82 MAIN: { |
83 my $command = shift // pod2usage; |
83 my $command = shift // pod2usage; |
|
84 |
84 #warn "<<< $command | @ARGV >>>\n"; |
85 #warn "<<< $command | @ARGV >>>\n"; |
85 GetOptions( |
86 GetOptions( |
86 'config=s' => \$opt_config, |
87 'config=s' => \$opt_config, |
87 'device=s' => \$opt_device, # --device $device |
88 'device=s' => \$opt_device, # --device $device |
88 'message=s' => \$opt_message, # --message line|xml |
89 'message=s' => \$opt_message, # --message line|xml |
441 die "Can't exec `cat': $!\n"; |
442 die "Can't exec `cat': $!\n"; |
442 } |
443 } |
443 |
444 |
444 sub exec_restore { |
445 sub exec_restore { |
445 if (not @_ or $_[0] eq '.') { |
446 if (not @_ or $_[0] eq '.') { |
446 # complete file system restore |
447 |
447 exec 'restore', '-yrf', '-'; |
448 # complete file system restore |
|
449 exec 'restore', '-yrf', '-'; |
448 } |
450 } |
449 |
451 |
450 # just some files - in this mode |
452 # just some files - in this mode |
451 # no true incremental restore can be done |
453 # no true incremental restore can be done |
452 # (it will just add new files or do updates, but it |
454 # (it will just add new files or do updates, but it |