#!/bin/sh
# Index.cgi - Main Phauto-Pak Insurer Program

run_bbx ()
{
  umask 000
  export BBCONFIG=/usr/bbx3/config.bbx
  exec /usr/bbx3/bbx3 -q -m384 /u/UTIL/@DEBUT - ${arg1} ${arg2}
}
 
Get_Var ()
{
  . ./tmp/${REMOTE_ADDR}.txt 2>/dev/null
}
 
Get_Session_No ()
{
    if [ "$Session" = "" ] ; then
      . ./session.cnt
      s=`expr ${Session} + 1`
      if [ $s -gt 999 ] ; then
        c=1
      fi
      echo "Session="${s} >./session.cnt
      Wdir=${Session}
      Del_Work
    fi
    Wdir=./tmp/${Session}
    mkdir $Wdir 2>/dev/null
    SESSION_NO=$Session
    export SESSION_NO
    mv ./tmp/${REMOTE_ADDR}.txt ./${Wdir}/var.txt 2>/dev/null
}
 
Del_Work ()
{
  rm -rf ./${Wdir}
}
 
Tous()
{
  arg1=PP_RECH; arg2=TOUS; run_bbx 
#  /util/bbx PP_RECH 384 TOUS 
}

Fiche()
{
  arg1=PP_RECH; arg2=FICH; run_bbx
#  /util/bbx PP_RECH 384 FICH
}

Rech()
{
  arg1=PP_RECH; arg2=RECH; run_bbx 
#  /util/bbx PP_RECH 384 RECH
}

# Main Program
#
# disable filename globbing
set -f

echo Content-type: text/html
echo
set > set.tmp
  ./pas_pgm/io.cgi
  FICVEH=""
  Get_Var
  Get_Session_No
  case ${Page} in
	Tous)	Tous;;
	Fiche)	Fiche;;
	*)	Rech;;
  esac
exit