#!/bin/csh
# mail-reorder	reorders the new mail and sends it out.

#Change this to the program to run.
set PROG = "/home/myacct/Mix/mixmaster -R >> /home/myacct/Mix/log"

# Change this to the incoming mail spool directory.
cd /home/myacct/reorder

#Set pool size
@ maxpool = 5

if( -e working) exit
if( -e none) exit
echo "" > working

#Move messages into outgoing
echo "" > lock
sleep 10
mv in*  outgoing/
echo "" > none
\rm lock

@ num = `rnd 1`
loop:
@ i = 0
set list = ""
foreach joe (outgoing/in*)
  @ i = ($i + 1)
  set list = ($list $joe)
end
if ($i > $maxpool) then
  @ num = `rnd 1`
  @ num = (($num % $i) + 1)
  $PROG < $list[$num] 
  \rm $list[$num]
endif
@ i = ($i - 1)
if ($i > $maxpool) goto loop

\rm working
