ref: 864c67531f8f2144c9979a486afd3165c13ee816
dir: rc/oots
#!/bin/rc
# finds out which is the last comic, then downloads missing ones from cwd, exiting
# upon the first collision
# it's filthy.
flag e +
#x=(/comics/oots0002.html)
x=(`{hget http://www.giantitp.com \
| sed -n 's/<B>Order of the Stick <\/B><A href="([^"]+)".*/\1/p'})
n=`{echo $x | sed 's/.*(oots[0-9]+\.)html/\1/'}
while(! ~ $n '#' && ! test -e $n^*){
x=(`{hget http://www.giantitp.com/$x(1) \
| sed -n '
/IMG src="\/comics/{
s/.*src="([^"]+)".*/\1/p
q
}
s/.*<A href="([^"]+)"><IMG src="\/Images\/redesign\/ComicNav_Back.gif".*/\1/p'
})
n=$n^`{echo $x(2) | sed 's/.*\.([^\/\.]+)$/\1/'}
hget http://www.giantitp.com/$x(2) >$n
n=`{echo $x(1) | sed 's/.*(oots[0-9]+\.)html/\1/'}
}