[-] fix the delete out of state. Don't try to delete file "." and ".." which are…

… undeletable directories

[-] fix the delete out of state. Don't try to delete file "." and ".." which are…
… undeletable directories
David RENÉ
1 parent b26fda29
Showing 1 changed file with 25 additions and 20 deletions Show diff stats
web/making_a_web_site.anubis
@@ -2638,26 +2638,31 @@ define (String state_name) -&gt; PreviousState($State)
    per states life time period).
  
 define (List(String) file_names) -> One
-   make_delete_out_of_date_states_function
-     (
-       Maybe($State)    dummy, 
-       String           state_directory
-     ) =
-   (List(String) file_names) |-df->
-   if file_names is 
-     {
-       [ ]      then unique, 
-       [h . t]  then
-         with file_path = state_directory+"/"+h, 
-         if (RetrieveResult((Int,$State)))retrieve(file_path) is ok(d)
-         then (
-                if d is (time_stamp,data) then
-                if time_stamp < now
-                then (forget(remove(file_path)); df(t))
-                else df(t)
-              )
-         else (forget(remove(file_path)); df(t))
-     }.
+  make_delete_out_of_date_states_function
+  (
+    Maybe($State)    dummy, 
+    String           state_directory
+  )=
+  (List(String) file_names) |-df->
+  if file_names is 
+  {
+    [ ]      then unique, 
+    [h . t]  then
+      //we can't delete the "." and ".." file. So go to next file in the list 
+      if h = "." | h = ".." then 
+        df(t)
+      else
+        with file_path = state_directory+"/"+h, 
+        if (RetrieveResult((Int,$State)))retrieve(file_path) is ok(d)
+        then (
+              if d is (time_stamp,data) then
+              if time_stamp < now
+              then (forget(remove(file_path)); df(t))
+              else df(t)
+            )
+        else (forget(remove(file_path)); df(t))
+      }
+.
  
  
    The 'labelled arrow' |-df-> is documented in 'documentation/en/anubis_doc.txt'.