| Line 267... |
Line 267... |
| 267 |
# process each message to be done
|
267 |
# process each message to be done
|
| 268 |
while ( my $id = shift ( @ids ) ) {
|
268 |
while ( my $id = shift ( @ids ) ) {
|
| 269 |
# get the flags
|
269 |
# get the flags
|
| 270 |
my @flags = $sourceAccount->msg_flags( $id );
|
270 |
my @flags = $sourceAccount->msg_flags( $id );
|
| 271 |
# get the message
|
271 |
# get the message
|
| 272 |
my $message = $sourceAccount->get( $id ) or die "Error getting message ID $id: $sourceAccount->errstr\n";
|
272 |
my $message = $sourceAccount->get( $id ) or warn "Error getting message ID $id: $sourceAccount->errstr\n";
|
| 273 |
# calculate where we are going to move this to
|
273 |
# calculate where we are going to move this to
|
| 274 |
my $targetFolder = &calculateTargetFolder( $message, $source, $target );
|
274 |
my $targetFolder = &calculateTargetFolder( $message, $source, $target );
|
| 275 |
if ( $TESTING ) {
|
275 |
if ( $TESTING ) {
|
| 276 |
&logit( 0, "Would have " . ( $source->{'deleteOnSuccess'} ? 'moved' : 'copied' ) . " message to $targetFolder" );
|
276 |
&logit( 0, "Would have " . ( $source->{'deleteOnSuccess'} ? 'moved' : 'copied' ) . " message to $targetFolder" );
|
| 277 |
next;
|
277 |
next;
|