#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 
## ------------------ 
BASE=/usr/commun/mag
COMMUN=/usr/commun
PATH=.:$PATH
PROPATH=.:$HOME/tools:$COMMUN:$COMMUN/progadm:$COMMUN/france:$COMMUN/caisse:$COMMUN/magasin:$COMMUN/gmao:$COMMUN/ceitel
export BASE COMMUN 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 -H develop -N TCP -S 2508 

     serv=$?
     if test "${serv}" -ne 0 
     then echo -n "*** LA BASE N'A PUT ETRE DEMARREE (Faites return) ***" 
          read x; exit
     fi
fi
##
####mpro -cpstream ISO8859-1 -cpinternal ISO8859-1 -e 500 -l 500 -d dmy -D 500 -E -o "lpr -s" "${BASE}" 
mpro -charset undefined -e 500 -l 500 -d dmy -D 500 -E -o "lpr -s" "${BASE}" 
####mpro -cpstream IBM850 -cpinternal IBM850 -e 500 -l 500 -d dmy -D 500 -E -o "lpr -s" "${BASE}" 

