Organisation profile: Titan Technology co.
[ ID = 0990 ] | Titan Technology co. |
Organisation name | Titan Technology co. |
Short name or acronym | Titan Technology co. |
Organisation type | Company |
Activity type | Speech technology |
Address | Ligovskiy 108 |
Postal Code | 191119 |
City | St-Petersburg |
Country | Russian Federation |
Phone | + +7 812 325 11 88 (multichannel) |
Fax | + +7 812 325 11 88 (multichannel) |
Email | info_(on)_titania.spb.ru |
Organisation URL | http://www.speech.ru |
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"
|
|