#!/bin/bash
# TextLib szerverek allapotanak lekerdezese
# InfoKer 2005

if [ -f /usr/share/textlib/exe/tl_setpar ]; then
    . /usr/share/textlib/exe/tl_setpar
fi

param=${1-stat}

### TLSRV
if [ -x /usr/bin/tl_vezer ]; then
  /usr/bin/tl_vezer $par $param 2> /dev/null
else
  echo "TextLib szerver: nincs telepitve"
fi

### TLWLM
if [ "$param" == "stat" -o "$param" == "ver" ]; then
  ls /usr/share/textlib/wlm/null*.wlm 2> /dev/null > /dev/null;
  if [ $? == 0 ]; then
    WLMBUILD=/usr/share/textlib/wlm/tl_build.txt
    if [ -f $WLMBUILD ]; then
        WLMVER=`cat $WLMBUILD`
    fi
    echo "TextLib szerver: telepitve, build:$WLMVER"
  elif [ -e /usr/share/textlib/wlm/wclient.wlm ]; then
    echo "TextLib szerver: telepitve, de illegalis."
  else
    echo "TextLib szerver: nincs telepitve."
  fi
fi

### TLWWW
if [ -x /usr/bin/tlwvezer ]; then
    /usr/bin/tlwvezer $par $param 2> /dev/null
else
  echo "TextLib     WWW: nincs telepitve"
fi

### TLZ3950
if [ -x /usr/bin/tlzvezer ]; then
    tlzvezer $par $param 2> /dev/null
else
  echo "TextLib   Z3950: nincs telepitve"
fi

### TLSIP2
if [ -x /usr/bin/tl2vezer ]; then
    tl2vezer $par $param 2> /dev/null
fi


### TLMSG
if [ -x /usr/share/tlmsg/tl_msg_vfelsz ]; then
  /usr/share/tlmsg/tlmsg $par $param 2> /dev/null
else
  echo "TextLib     MSG: nincs telepitve"
fi

### Egyeb
if [ "$param" == "run" ]; then
  ls /home/textlib/.textlib/*.pid 2> /dev/null > /dev/null
  if [ $? == 0 ]; then
    xxx=$(ls /home/textlib/.textlib/*.pid)
    xxx=${xxx//\/home\/textlib\/\.textlib\/}
    xxx=${xxx//\.pid/}
    # szerver, tlwww, tlz3950, tlmsgkivetelevel mi van meg?
    for i in $xxx; do
    if [[ ! $i =~ (szerver|tlwww|tlz3950|tlsip2).* ]]; then
       yyy="$i $yyy"
    fi
    done
    if [ "$yyy" != "" ]; then
        echo "$yyy"
    fi
  fi
fi
