#LANG=engli

export TERM TERMINFO TERMCAP CERASE CKILL CINTR CQUIT
export LOGNAME MAIL LANG

CERASE=" "
CKILL="@"
CINTR="^?"

TERM=wy60   
u=`tty`
ecran=`basename $u`
num=`who -u | grep "$ecran" | awk '{ print $8}'`
bis=`expr $num : '.*\..*\..*\(..\)'`
#if test "$bis" -gt 50 && test $bis -lt 60
  #then TERM=vt100
#fi

export TERM
VISUAL=vi
## init des variables 
## ------------------ 
PATH=.:$PATH
PROPATH=.:$HOME/tools:/user/commun/progadm:/user/commun/prognat:/user/commun/progsta:/user/commun/entre:/user/commun/prognat/france:/user/commun/progadm/france:/user/commun/progclie:/user/commun/progfond:/user/commun/progsuiv:/user/commun/progapp:/user/commun/progapp/tty/adm2:/user/commun/progapp/tty:/user/commun
BASE=/user/nat/adm
BAS1=/user/depot/depot
BAS2=/user/club/clien 
BAS3=/user/fond/fond
export BASE BAS1 BAS2 BAS3 PATH PROPATH
stty ignbrk intr  
# purge fichiers probleme
# -----------------------
if test -f /usr/probleme/*.sys
then for i in `ls -l /usr/probleme/*.sys | awk '{ if ( $5 <= 0 ) print $9 }'`
     do
        rm "${i}"
     done
fi
## test
## ----
while true
do
   if test -f /usr/tmp/SRVE
   then echo "
   
*******************************************
VEUILLEZ PATIENTER, LANCEMENT EN COURS !!!!
Faites entree pour continuer.              
*******************************************"; read x
	exit
   else break
   fi
done

## test lancement serveur
## ----------------------
if test ! -f "${BASE}".lk
then proserve "${BASE}" -L 2000 -n 4
     serv=$?
     if test "${serv}" -ne 0 
     then echo -n "*** LA BASE N'A PUT ETRE DEMARREE (Faites return) ***" 
          read x; exit
     fi
fi
if test ! -f "${BAS1}".lk
then proserve "${BAS1}" -L 2000 -n 3
fi
if test ! -f "${BAS2}".lk
then proserve "${BAS2}" -L 2000 -n 3
fi
if test ! -f "${BAS3}".lk
then proserve "${BAS3}" -L 2000 -n 3
fi
##
##
mpro -e 500 -l 500 -d dmy -D 500 -E -o "lpr -s" "${BASE}" -p debu2.p

