[Import example start and bootstrapping scripts
clinton@unknownlamer.org**20090213184449
 Ignore-this: 9d242b00cb949a3e71e12697d1765731
] addfile ./misc/bootstrap.lisp
hunk ./misc/bootstrap.lisp 1
+;;; Load this after loading :beesknees and starting the server with
+;;; beesknees.site-control:start-bee-site to bootstrap a basic site
+
+(mapc (lambda (page)
+	(make-instance 'beesknees.pages:bee-page
+		       :name page :content "foo!")
+	(make-instance 'beesknees.web:bee-page-style
+		       :name page :background "rainbow.png"))
+      '(:home :about :contact :videos :links))
+
+;;; Then, to set up an admin account run:
+; (beesknees.auth:create-user "USERNAME" "PASSWORD")
+
addfile ./misc/start.lisp
hunk ./misc/start.lisp 1
-
+(asdf:oos 'asdf:load-op :beesknees)
+
+(setf ucw-site-control:*control-data-root* "/home/clinton/local/var/ucw/"
+      ucw-site-control:*control-server-host* "0.0.0.0"
+      ucw-site-control:*control-server-port* 50004)
+
+(ucw-site-control:start-control-server)
+(beesknees.site-control:start-bee-site)