ref: a13fe4fe5ec0c2c37482722c4dbcb4a611a61b18
dir: /oktr/
#!/bin/rc
# ok, turing social network reader
rfork e
#prev = 5 # preview lines
posts = 1
inp = 0
# begin
while (! ~ $inp q ) {
for (i in `{hget 'http://okturing.com:80/?tags=all&start='^$posts | grep '<a href' | grep -v 'right' | tr ' ' '_'} ) {
url = `{ echo $i | awk -F'"' '{print $2}' }
date = `{ echo $i | awk -F'>' '{print $3}' | awk -F'<' '{print $1}' | tr '_' ' ' }
echo
echo '#########'
echo $date
echo $url
echo
url = `{echo $i | awk -F'"' '{print $2}' }
hget $url | awk 'NR<6{print; next}{ print "\n(.. there is more.)"; exit}'
echo
}
echo ...
echo load more? q - quit, anything else cont.
posts = `{ echo $posts + 11 | bc }
inp = `{read}
}