Lines 132-138
foreach my $acct (@accounts) {
Link Here
|
132 |
} else { |
132 |
} else { |
133 |
mkdir "$working_dir/archive" unless -d "$working_dir/archive"; |
133 |
mkdir "$working_dir/archive" unless -d "$working_dir/archive"; |
134 |
say sprintf "Moving file to archive: %s", $filename if $verbose; |
134 |
say sprintf "Moving file to archive: %s", $filename if $verbose; |
135 |
# move( $full_path, "$working_dir/archive/$filename" ); |
135 |
move( $full_path, "$working_dir/archive/$filename" ); |
136 |
} |
136 |
} |
137 |
} else { |
137 |
} else { |
138 |
say sprintf "Error processing file: %s", $filename if $verbose; |
138 |
say sprintf "Error processing file: %s", $filename if $verbose; |
139 |
- |
|
|