[ "$REQUEST_METHOD" = POST ] && case "$(POST action)" in
postcomment) comments_postcomment \
"$(POST cuid |checkid)" \
- "$(POST username |grep -m1 -oE '[^[:space:]].*[^[:space:]]')" \
- "$(POST text)";;
+ "$(POST username |grep -m1 -oE '[^[:space:]].{0,126}[^[:space:]]')" \
+ "$(POST text |dd status=none bs=2048 count=1)";;
updatecomment) comments_updatecomment \
"$(POST cuid |checkid)" "$(POST updatekey)" \
- "$(POST username |grep -m1 -oE '[^[:space:]].*[^[:space:]]')" \
- "$(POST text)";;
+ "$(POST username |grep -m1 -oE '[^[:space:]].{0,126}[^[:space:]]')" \
+ "$(POST text |dd status=none bs=2048 count=1)";;
cancelcommentpost) REDIRECT "${_BASE}${PATH_INFO}#comments";;
cancelcommentedit) REDIRECT "${_BASE}${PATH_INFO}#comment_$(POST cuid |checkid)";;
esac