#!/bin/rc
#
# Lotus BBS query
#
bbs='http://www.british-cars.co.uk/cgi-bin/gen5?runprog=lotusbbs'
idx='&access=&mode=tlist&subject=2050'
art='&mode=thread&access=&subject=2050&source=T&thread='
if (~ $#* 0){
hget $bbs^$idx |
htmlfmt -a |
sed '
1,/^Time$/d
/^Start a new thread$/,$d
' |
awk '
BEGIN {i = 0}
{
p[i++] = $0;
if (i == 6){
id = p[1];
gsub("\]", "", id);
gsub("^.*=", "", id);
printf("elise %-22s # %-4s %s\n", id, p[3], p[0]);
i = 0;
}
}
'
}
if not{
hget $bbs^$art^$1 |
htmlfmt -l 80 |
sed -n '
1,/\| Advertisers \|/d
/^If you would like to print this thread/,$d
/^Thread: /{
s/^Thread: //
p
d
}
/^Posted /{
n
/^$/d
p
d
n
d
}
s/^/ /p
'
}
|