13 fprint(2, "usage: testwrite [-d dir] wikifile n\n");
18 main(int argc, char **argv)
30 t = strtoul(EARGF(usage()), 0, 0);
39 if((b = Bopen(argv[0], OREAD)) == nil)
40 sysfatal("Bopen: %r");
42 if((doc = Brdwhist(b)) == nil)
43 sysfatal("Brdwtxt: %r");
45 sprint(tmp, "D%lud\n", time(0));
46 if((h = pagetext(s_copy(tmp), (doc->doc+doc->ndoc-1)->wtxt, 1))==nil)
47 sysfatal("wiki2text: %r");
49 if(writepage(atoi(argv[1]), t, h, doc->title) <0)
50 sysfatal("writepage: %r");