+ if (defined $self->{directory}) {
+ if (!-d $self->{directory}) {
+ $self->print_to_server_and_die(
+ "Directory $self->{directory}: $!",
+ $Amanda::Script_App::ERROR);
+ }
+ if (!-w $self->{directory}) {
+ $self->print_to_server_and_die(
+ "Directory $self->{directory}: $!",
+ $Amanda::Script_App::ERROR);
+ }
+ push @cmd, "--directory", $self->{directory};
+ }
+ if ($#{$self->{include_list}} == 0) {
+ push @cmd, "--files-from", $self->{include_list}[0];
+ }
+ if ($#{$self->{exclude_list}} == 0) {
+ push @cmd, "--exclude-from", $self->{exclude_list}[0];
+ }