Organisation profile: Habitek, Ltd.
[ ID = 2820 ] | Habitek, Ltd. |
Organisation name | Habitek, Ltd. |
Short name or acronym | Habitek, Ltd. |
Organisation type | Company |
Activity type | Speech technology |
Address | Unit 1 CWM Road |
Postal Code | SA1 2AY |
City | Swansea |
Country | United Kingdom |
Phone | + +44 1792 455552 |
Fax | + +44 1792 534100 |
Email | info_(on)_habitek.co.uk |
Organisation URL | http://www.habitek.co.uk |
Logo | Description |
 |
|
| Contact |
Name | |
Function | |
Department | |
Email | |
Phone | + |
Fax | + |
Update this profile
|
Last update: 2002-04-10 12:32:58
#!/usr/bin/ksh
# cntr.cgi --
# version 0
DOC=$DOCUMENT_ROOT$DOCUMENT_URI
VSTART=28-08-2008
WRONGLOG=${DOCUMENT_ROOT}/cntr.txt
echo Content-type:text/html
echo
case $DOC in
*experts*) CDIR=${DOCUMENT_ROOT}/cntex ;;
*orgs*) CDIR=${DOCUMENT_ROOT}/cntor ;;
*) WRONG=yes ;;
esac
CFILE=${DOC##*/}
case ${CFILE} in
[0-9][0-9][0-9][0-9].html) WRONG=no ;;
*) WRONG=yes ;;
esac
[ $WRONG = yes ] &&
{ echo "$(date) $REMOTE_ADDR ${DOC}" >> $WRONGLOG
exit
}
CCNT=${CDIR}/${CFILE%.html}.txt
CLCK=${CDIR}/${CFILE%.html}.lck
[ -s $CCNT ] && COUNT=$(head -1 $CCNT)
COUNT=$(( ${COUNT:-0} + 1 ))
[ -f $CLCK ] ||
{ touch $CLCK
echo $COUNT > $CCNT
rm -f $CLCK
}
echo " Visits since $VSTART: $COUNT"
|
|