|
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 |
- |
|
|