ref: 90570d39b831350087a58bb8068be8245c10794c
dir: /oktr/
#!/bin/rc
# ok, turing. reader
rfork e
#slp = .5
#prev = 5 # preview lines
posts = 1
inp = 0
fn more {
}
# 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 ... load more? q - quit, anything else cont.
posts = `{ echo $posts + 11 | bc }
inp = `{read}
}