#!/usr/bin/haserl
Content-type: text/html
<%
# to install:
# cp chat.sh /www/
# touch /tmp/chat.buffer
# ln -s /tmp/chat.buffer /www/chat.buffer
# maybe write the md5 out, to save CPU?
chat_history=`cat chat.buffer`
chat_hash=`echo "$chat_history" | md5sum`
chat_hash=${chat_hash/ -/}
if [ "$FORM_ajax" == "$chat_hash" ] ; then
echo -n "{\"status\":\"none\"}"
exit 0
elif [ -n "$FORM_ajax" ] ; then
# json is surprisingly brittle
chat_history=`echo -n "$chat_history" | sed -e "s/'/\\'/g" | sed -e 's/\"/\\\"/g' | sed 's/$/\\\\n/g' | tr -s '\n' ' '`
echo -n "{\"status\":\"update\", \"text\":\"$chat_history\", \"hash\":\"$chat_hash\"}"
exit 0
fi
if [ -z "$FORM_nick" ] ; then
FORM_nick="I don't have a name"
fi
FORM_nick=${FORM_nick:0:20}
if [ -n "$FORM_message" ] ; then
nick_color=`echo -n "$FORM_nick" | md5sum`
nick_color=${nick_color:0:3}
FORM_message=${FORM_message:0:140}
FORM_message=`echo "$FORM_message" | sed 's//\>/g'`
last_line=`echo "$chat_history" | tail -n 1`
next_line="$FORM_nick: $FORM_message
"
# bandaid for refresh dups
if [ "$last_line" != "$next_line" ] ; then
chat_history="$chat_history\n$next_line"
chat_history=`echo -e "$chat_history" | tail`
echo "$chat_history" > chat.buffer
chat_hash=`echo "$chat_history" | md5sum`
chat_hash=${chat_hash/ -/}
fi
fi
%>
Admin