Спам от L29Ah: теперь и в отвратительном psto.
#!/bin/sh
spam () {
sendxmpp -r blog-$$ "$1" || echo $1 sucks
}
fn=/tmp/blogpost-$$
vim "$fn"
[ -f "$fn" ] || exit 1
spam 'bnw.im' < "$fn"
cp "$fn" ~/vdoc/store/blog/`date +%s`
sleep ${1:-30}
spam 'juick@juick.com' < "$fn"
tagline="`perl -p -e 's#(\*.*?) [^\*].*#$1#' < "$fn" | sed 's#*#,#g; s#,#*#'`"
{
echo "$tagline"
sed -e '1s#.*\*[^ ]* ##' $fn
} | spam 'psto@psto.net'
rm "$fn"