Subversion Repositories sysadmin_scripts

# this is an alternative to maintaining the hierarchy of the original system.

# instead, it will take 

sub processFolderByDate {

   my ( $sourceAccount, $targetAccount, $folder, $targetFormat, $dateBefore, $sourceDelimiter, $targetDelimiter, $deleteOnSuccess ) = @_;

   my $numMessages = 0;

   $sourceAccount->expunge_mailbox( $folder ); # clean it up so we don't copy deleted messages

   $sourceAccount->select( $folder ) or die "Could not connect to folder $folder\n"; # move into the correct folder for the source

   my @ids = $sourceAccount->search_sent_before( $dateBefore ); # use sent_before to get the sent date from message

#   print join( "\n\t\t\t", @ids ) . "\n";

   return 0 unless @ids; # we have nothing to copy, so exit

   if ( $sourceDelimiter ne $targetDelimiter ) { # different delimiters, so we have to change them in the folder def

      # they may contain meta chars, so escape them. We can use \Q \E in the pattern to match, but the 

      # second part of the s/// will substitute literal EXCEPT for the delimiter and the dollar sign

      # I'm escaping the double quote (what I'm using for the delimiter) "just in case" but I'm not doing

      # the dollar sign, so this will fail, fail, fail if there is an issue there.

      my $escapedTargetDelimiter = $targetDelimiter eq '"' ? '\\' .  $targetDelimiter : $targetDelimiter;

      $folder =~ s"\Q$sourceDelimiter\E"$escapedTargetDelimiter"g;

   }

   if ( $targetAccount->select( $folder ) || &makeFolder( $targetAccount, $folder, $targetDelimiter ) ) {

      foreach my $id ( @ids ) {

         my @flags = $sourceAccount->msg_flags( $id );

         my $message = $sourceAccount->get( $id ) or die $sourceAccount->errstr;

         if ( $targetAccount->put( $folder, $message, @flags ) ) {

            $sourceAccount->delete( $id ) if ( $deleteOnSuccess ) ;

            $numMessages++;

         } else {

            die "Could not write to target, aborting\n$targetAccount->errstr\n";

         }

      }

   } else {

      warn "\t\t$folder not found in target and could not create it\n";

   }

   return $numMessages;

}

   $heirarchy = '' unless $hierarchy;

      my $messages;

      if ( $heirarchy ) {

         $messages = &processFolderByDate( $sourceAccount, $targetAccount, $folder, $hierarchy, $date, $$source{'separator'}, $$target{'separator'}, $deleteOnSuccess );

      } else {

      }