20060303a

1 files changed, 22 insertions, 0 deletions

diff --git a/appl/svc/httpd/cgiparse.m b/appl/svc/httpd/cgiparse.m
new file mode 100644
index 00000000..af521125
--- /dev/null
+++ b/appl/svc/httpd/cgiparse.m
@@ -0,0 +1,22 @@
+CgiData : adt {
+    method : string;
+    version : string;
+    uri : string;
+    search : string;
+    tmstamp : string;
+    host : string;
+    remote : string;
+    referer : string;
+    httphd : string;
+    header : list of (string, string);
+    form : list of (string, string);
+};
+
+CgiParse : module
+{
+    PATH : con "/dis/svc/httpd/cgiparse.dis";
+    cgiparse : fn( g : ref Httpd->Private_info, req: Httpd->Request): ref CgiData;
+    getbase : fn() : string;
+    gethost : fn() : string;
+};
+