aboutsummaryrefslogtreecommitdiff
path: root/src/ellinika/cgi.scm4
diff options
context:
space:
mode:
Diffstat (limited to 'src/ellinika/cgi.scm4')
-rw-r--r--src/ellinika/cgi.scm45
1 files changed, 5 insertions, 0 deletions
diff --git a/src/ellinika/cgi.scm4 b/src/ellinika/cgi.scm4
index d1b4a5c..8c9b54d 100644
--- a/src/ellinika/cgi.scm4
+++ b/src/ellinika/cgi.scm4
@@ -109,6 +109,11 @@ ifelse(IFACE,[CGI],,dnl
arglist
(cons "?" arglist))))))
+(define-public (cgi-program-name prog)
+ (string-append
+ (substring cgi-script-name 0 (string-rindex cgi-script-name #\/)) "/"
+ prog ".SCRIPT_SUFFIX"))
+
(define-public (expand-template explist template)
"(expand-template EXPLIST TEMPLATE)

Return to:

Send suggestions and report system problems to the System administrator.