This perl script will copy an existing user's mailbox to a new mailbox, preserving all imap flags. I suspect the Seen flag is lost though as that is tracked on a per-user basis.

You'll also need "utils.pl" and "prefs.pl". "utils.pl" contains some simple utility functions that I grouped together in one file so that I wouldn't have to duplicate code in multiple perl scripts. "prefs.pl" contains site specific information such as mail server hostname, cyrus admin username, cyrus admin password, etc.

Usage: ./copy_user_mailbox.pl old_username new_username Copies old_username's mailbox to new_username. new_username's mailbox should not already exist.