20060303a

1 files changed, 12 insertions, 0 deletions

diff --git a/appl/charon/cookiesrv.m b/appl/charon/cookiesrv.m
new file mode 100644
index 00000000..6cc5f069
--- /dev/null
+++ b/appl/charon/cookiesrv.m
@@ -0,0 +1,12 @@
+Cookiesrv: module {
+	PATH: con "/dis/charon/cookiesrv.dis";
+
+	Client: adt {
+		fd: ref Sys->FD;
+		set: fn(c: self ref Client,host, path, cookie: string);
+		getcookies: fn(c: self ref Client, host, path: string, secure: int): string;
+	};
+
+	# save interval is in minutes
+	start: fn(path: string, saveinterval: int): ref Client;
+};