I have written a very basic perl script to do tape ejection based on the
last written date and how long the tape should remain in the
library.  It has a simple config file that reads each line and processes
by class name or volume pool.  If anyone is interested, I can send them
a copy and hopefully it can be improved to add vaulting capabilities.