#!/bin/rc

fn list {

	hget 'http://forums.seloc.org/forumdisplay.php?fid=35' |
	htmlfmt -a -w 1000 |
	awk '
		BEGIN {
			FS="\n"
			RS=""
		}

		NF >= 6 && $(NF-3) ~ "viewthread" {

			disc=$(NF-3);
			gsub("\]\\).*$", "]", disc);
			gsub("\\[.*\\]", "", disc);
			id=$(NF-3);
			gsub("\].*$", "", id);
			gsub("^.*tid=", "", id);
			if(disc != "")
				printf("seloc %-7s  # %-3s\n", id, disc);
		}
	'
}

fn show {
	hget 'http://forums.seloc.org/viewthread.php?tid='$1 |
		tcs -f 8859-1 |
		htmlfmt -w 1000 |
	awk  '
		/^Subject:/{
			getline;
			user=$0;
			next;
		}

		/^Quote: .*Report Post/ {
			enable=1;
			printf("---- %s\n", user);
			next;
		}

		/^View User''s Profile/{
			prnt(0);
			enable=0;
			getline;
			user=$0;
			next;
		}

		enable == 1 {
			for(i = 1; i <= NF; i++)
				word($i);
			prnt(1);
			next;
		}


		function word(w) {
			if(length(line) +length(w) > 80)
				prnt(0);
			line = line " " w;
		}

		function prnt(nl) {
			if(length(line) > 0 || nl != 0){
				print line;
				line = "";
			}
		}
	'
}


if ( ~ $#* 0)
	list
if not
	show $*