export types
use cgi io process env gr time cstr util alloc

# This HACK requires a vnc server, uses Setenv, etc.
# It's a demo, has bugs,  not suitable for serious use.
# TODO locking

cstr cgi_png_display = ":99.0"
cstr cgi_png_display1

def cgi_png() cgi_png(1024, 1024)
def cgi_png(w, h) cgi_png(w, h, 1)

cgi_png(int w, int h, num scale)
	char *p = strchr(cgi_png_display, '.')
	if !p
		error("cgi_png_display %s is invalid, should be like :99.0", cgi_png_display)
	cgi_png_display1 = strndup(cgi_png_display, p-cgi_png_display)
	cgi_png_scale = scale
	cgi_content_type("image/png")
#	Say("Content-Type: text/plain\r")

	Putenv(Format("DISPLAY=%s", cgi_png_display))
#	Setenv("PATH", "/home/sam/all/brace/exe:/usr/lib/ccache/bin:/home/share/aliases:/home/share/hacks:/home/share/abbrev:/bin:/sbin:/usr/bin:/usr/sbin:/usr/X11R6/bin:/usr/local/bin:/usr/local/sbin:/opt/bin:/opt/blackdown-jre-1.4.1/bin:/usr/games:/home/share/lib/sh:/home/sam/all/darcs-utils")
	cstr user = whoami()
	Setenv("USER", user)
	Putenv(Format("HOME=/home/%s", user))
#	Setenv("HOME", Format("/home/%s", user))

	Systemf(SH_QUIET "tightvncserver -kill %s; tightvncserver %s -geometry %dx%d -depth 16 ; xsetroot -solid black", cgi_png_display1, cgi_png_display1, w, h)
	# FIXME set resolution based on paper size!

#	gr_fast()

	Atexit(cgi_png_done)


num cgi_png_scale

cgi_png_done()
	paint()
	if cgi_png_scale == 1
		dump_img("png")
	 else
	 	dump_img("png", NULL, cgi_png_scale)

	Systemf(SH_QUIET "tightvncserver -kill %s", cgi_png_display1)
	gr_done = 1