#
# TextLib Z3950 - script parameter beallito
# script [dbase] ...
# script.dbase ...
# hivasoknal beallitja a
# $ext=.dbase
# $par=[dbase]

unset ext par dbname

#script nev kiterjesztese?
iam=${0##*/}
iam=${iam##*./}
name=${iam%.*}
ext=${iam##"$name"}
if [ "$ext" == ".exe" ]; then ext=""; fi
unset iam name

# elso parameter [xxx] alaku?
if [ "${1:0:1}" == "[" ]; then
  x=${1/[/};
  x=${x/]/};
  if [ "$x" != "" ]; then ext=.$x; fi
  unset x
  shift
fi

if [ "$ext" != "" ]; then
   dbname=${ext/./}
   par=\[${ext/./}\];
fi

TLZ3950LOG=/var/log/tlz3950$ext/tlz3950.log
TLGWLOG=/var/log/tlz3950$ext/tlgw.log
TLMDIR=/usr/share/tlz3950
PROGNAME=g-tlz3950.exe
SCRIPTNAME=tl_z3950
TLLOCKFILE=/var/lock/subsys/textlib-z3950$ext
PIDPATH=/home/textlib/.textlib
TLZ3950PID=$PIDPATH/tlz3950$ext.pid

# PID fajlrol megmondja, hogy
#   - van a file ES fut is a benne leirt PID-u process
#   - Ha PIDfile van, de a progam nem fut, PID fajlt torli.
#  RETURN: 0, ha fut; 1 - ha nem fut
PidRun()
{ RetVal=1
    #echo file: $1
    PidRunPID=`cat $1 2> /dev/null`
    if [ "$PidRunPID" != "" ]; then
       PidRunProg=`ps -p $PidRunPID -o comm=`
       #echo $PidRunPID, $PidRunProg
       if [[ $PidRunProg =~ g-tlz3950 ]]; then
           #echo tenyleg FUT
           RetVal=0
       else
           #echo Torles: $1
           rm -rf $1
       fi
    fi
  (( ! $RetVal ))
}

