Subversion Repositories sysadmin_scripts

Rev

Rev 58 | Rev 108 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 58 Rev 86
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;