Subversion Repositories sysadmin_scripts

Rev

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

Rev 55 Rev 56
Line 244... Line 244...
244 
   my @pattern = split '\\^', $target->{'hierarchy'};
 244 
   my @pattern = split '\\^', $target->{'hierarchy'};
245 
   $source->{'source folder list'} = \@sourceFolders;
 245 
   $source->{'source folder list'} = \@sourceFolders;
246 
   $target->{'hierachy pattern'} = \@pattern;
 246 
   $target->{'hierachy pattern'} = \@pattern;
247 
 
 247 
 
248 
   # process each message to be done
 248 
   # process each message to be done
249 
   foreach my $id ( @ids ) {
 249 
   while ( my $id = shift ( @ids ) ) {
250 
      # get the flags
 250 
      # get the flags
251 
      my @flags = $sourceAccount->msg_flags( $id );
 251 
      my @flags = $sourceAccount->msg_flags( $id );
252 
      # get the message
 252 
      # get the message
253 
      my $message = $sourceAccount->get( $id ) or die $sourceAccount->errstr;
 253 
      my $message = $sourceAccount->get( $id ) or die $sourceAccount->errstr;
254 
      # calculate where we are going to move this to
 254 
      # calculate where we are going to move this to