Permalink
Browse files

Add a purge function in the server and a proxy method for save-table

  • Loading branch information...
1 parent 402806d commit a1db1fb4acbc6c07e03108f08e4d04bbe4e8f1e7 @scotchi committed Nov 12, 2012
Showing with 7 additions and 0 deletions.
  1. +7 −0 srv.arc
View
7 srv.arc
@@ -570,3 +570,10 @@ 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")))
+
+(def save-table-and-purge (h file pages)
+ (save-table h file)
+ (each page pages
+ (purge-from-proxy page)))

0 comments on commit a1db1fb

Please sign in to comment.