#!/bin/sh 
#
# se alguma mensagem esta' sendo atendida
# coloca mensagem recem chegada no diretorio de 
# espera


# Adapted on April 17, 1997: T.K.

msg=/tmp/me.$$
cat >$msg

artrab=${STOLFIHOME}/ortho/remote
lock="/tmp/lock.ortho.server.`date +\"%a\"`"
erro=/tmp/erro.$$
fila=$artrab/fila
log=$artrab/log

PATH=$artrab/bin:/usr/bin:/bin:/usr/ucb:$PATH

export PATH

if 
  test \! -f $lock 
then
  touch $lock

  processa <$msg >>$erro 2>&1

  rm $msg

  for i in `ls $fila`
  do
    processa <$fila/$i >>$erro 2>&1
    rm $fila/$i
  done

  cat $erro >>$log/erro.processa

  rm $erro

  rm /tmp/lock.ortho.server.*

else
  mv $msg $fila

fi