Index: stml2.scm
==================================================================
--- stml2.scm
+++ stml2.scm
@@ -27,14 +27,14 @@
   ;; database
   (dbtype 'pg)
   (dbinit #f)
   (conn   #f)
   ;; page info
-  (page "home")
+  (page "index")
   (page-type 'html)
-  (toppage "home")
-  (curr-page    "home")
+  (toppage "index")
+  (curr-page    "index")
   (content-type "Content-type: text/html; charset=iso-8859-1\n\n")
   ;; forms and variables
   (formdat      #f)
   (params '())
   (path-params '())
@@ -2416,13 +2416,13 @@
 (define (s:get-err wrapperfunc)
   (let ((errmsg (sdat-curr-err s:session)))
     (if errmsg ((if wrapperfunc
                     wrapperfunc
                     s:strong) errmsg) '())))
-(define (stml:cgi-session session)
+(define (stml:cgi-session session #!optional (configf #f))
   ;; (session:initialize session)
-  (session:setup session)
+  (session:setup session configf)
   (session:get-vars session)
 
   (sdat-log-port-set! session ;; (current-error-port))
 		      (open-output-file (sdat-logfile session) #:append))
   (s:validate-inputs)
@@ -2453,11 +2453,11 @@
 			    (s:body
 			     (s:h1 "ERROR")
 			     (s:p err)))))))           
 
 
-(define (stml:main proc)
+(define (stml:main proc #!optional (configf #f))
   (handle-exceptions
    exn   
    (if (sdat-debug-mode s:session)
        (begin
 	 (print "Content-type: text/html")
@@ -2503,11 +2503,11 @@
 	 ;; (for-each (lambda (var)
 	 ;; 	     (print "<tr><td>" (car var) "</td><td>" (cdr var) "</td></tr>"))
 	 ;; 	   (get-environment-variables))
 	 ;; (print "</table>")
 	 (print "</body></html>")))
-   (if proc (proc s:session) (stml:cgi-session s:session))
+   (if proc (proc s:session) (stml:cgi-session s:session configf))
  ;; (raise-error)
  ;; (exit)
    ))
 
 ;; find out if we are in debugmode