# devel (equivalent a .profileo sur HP9000 natux01:)
#---------------------------------------------------
#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:/user/commun/gmao
BASE=/user/nat/adm
BAS1=/user/club/clien                                                    
BAS2=/user/gmao/gmao 
export BASE BAS1 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 serveurs
## -----------------------
if test ! -f "${BASE}".lk
then proserve "${BASE}" -L 2000 -n 4
   serv=$?
   if test "${serv}" -ne 0 
   then echo -n "*** LA BASE ${BASE} N'A PU ETRE DEMARREE (Faites return) ***" 
        read x; exit
   fi
fi
#--------------------------
if test ! -f "${BAS1}".lk                                        
then proserve "${BAS1}" -L 2000 -n 3
   serv=$?
   if test "${serv}" -ne 0 
   then echo -n "*** LA BASE ${BAS1} N'A PU ETRE DEMARREE (Faites return) ***" 
        read x; exit
   fi
fi

#--------------------------
if test ! -f "${BAS2}".lk                                        
then proserve "${BAS2}" -L 2000 -n 3
   serv=$?
   if test "${serv}" -ne 0 
   then echo -n "*** LA BASE ${BAS2} N'A PU ETRE DEMARREE (Faites return) ***" 
        read x; exit
   fi
fi

###mpro -e 500 -l 500 -d dmy -D 500 -E -o "lpr -s" "${BASE}" -cpstream iso8859-1 -cpinternal iso8859-1 -p debu2.p
mpro -e 500 -l 500 -d dmy -D 500 -E -o "lpr -s" "${BASE}" 
