Add a purge function in the server

scotchi · Nov 12, 2012 · f6239d8 · f6239d8
1 parent 402806d
commit f6239d8
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/srv.arc b/srv.arc
@@ -570,3 +570,5 @@ Connection: close"))
 ; gensymed names, and so the receiving fn gets args that are not
 ; strings but parsed values.
 
+(def purge-from-proxy (resource)
+  (tcp-send "localhost" 80 (+ "PURGE /" resource "\r\n\n")))