#define BOARDS (["bulletin":"Anslagstavlan i Muddevalla","strandhamn":"Anslagstavlan i Strandhamn"])


/* Tittar p} svenskmuds anslagstavla. */
string
read_board(int fd, mixed *fi)
{
    string bn;
    int noteno;
    string messages;

    /*
    call_out(lambda() { update(file_name(this_object())); destruct(); },
	     10);
     */

    string *notes;

    string document = "";

    if (sscanf(fi[0],"%s/%d",bn,noteno)
	|| sscanf(fi[0],"%s",bn,noteno))
    {
	string file;
	
	if (BOARDS[bn]
	    && (file = read_file("/usr/svmud/lib/bboard/" + bn + ".o"))
	    && sscanf(file,
		      "%s\nmessages \"%s",messages,messages)) {
	    string hd, body, rest;
	    int i;
	    int tmp;
	    
	    messages = messages[0..strlen(messages)-3];

	    if (noteno == 0) {
		document = "<title>" + BOARDS[bn] + "</title>\n"
		+ "<h1>" + BOARDS[bn] + "</h1>\n<ol>";
	    } else {
		document = "<title>" + sprintf("%s, not %d",BOARDS[bn],noteno) + "</title>\n"
		+ "<h1>" + sprintf("%s, not %d",BOARDS[bn],noteno) + "</h1>";
	    }
	    rest = messages;
	    i = 0;
	    while(rest != 0 && rest != "") {
		i += 1;
		tmp = sscanf(rest, "%s:
**
%s
**
%s", hd, body, rest);
		if (tmp != 2 && tmp != 3)
		    return(rest + "\n" + tmp + " Sabbad fil.\n");
		
		if (noteno == 0)
		    document += "<li><a href=\"" 	
			+ sprintf("%s/%d",bn,i) + "\">"
			    + hd + "</a>\n";
		else
		    if (noteno == i) {
			document += "<h2>" + hd + "</h2>\n"
			    + implode(explode(body/"
"*"\n","\n\n"),"\n<p>\n");
			document += "<p>\nSe ";
			if (rest != "")
			    document += 
				sprintf("<a href=\"%d\">nästa not</a>\n",i + 1);
			if (noteno > 1)
			    document += sprintf("<a href=\"%d\">föregående not</a>\n",i - 1);
			document += sprintf("<a href=\"../%s\">tavlan igen</a>\n",bn);


			break;
		    }
	    }

	    return document;
	}
    }
    return 0;
}



void main() {
    write(read_board(0,({"bulletin"})));
    write(read_board(0,({"bulletin/1"})));
    write(read_board(0,({"strandhamn"})));
}