modifying archiveit function

Hi list:
         Need some skilled perl programmer to modify
qmail-scanner-queue.pl archiveit function, to archive only
non-quarantine messages. by now the archiveit function archives all
messages incoming and outgoing (quarantine messages / non-quarantine
messages) and i seriously don't need spam and viruses messages.

Thanks for our help in advance

-- 
_________________________
   Facundo Agustin Barrera
  --------------------------------------
     www.openlabs.com.ar
"Let the penguins do the work"
---------------------------------------------
   Buenos Aires - Argentina
_________________________

-------------------------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier.
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642