perl script using Text::DeDuper to archive posts which have been allready archived. It works for single-user installations currently.