From 9332d4fcd5f086b70aadd7d7e97c24e45e889c48 Mon Sep 17 00:00:00 2001
From: ndparker <>
Date: Fri, 27 Jul 2001 15:25:27 +0000
Subject: [PATCH] now the (new) purge method of the lock file is called after
 removing a thread file

---
 selfforum-cgi/shared/Arc/Archive.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/selfforum-cgi/shared/Arc/Archive.pm b/selfforum-cgi/shared/Arc/Archive.pm
index cc5c48b..7fe7424 100644
--- a/selfforum-cgi/shared/Arc/Archive.pm
+++ b/selfforum-cgi/shared/Arc/Archive.pm
@@ -324,7 +324,7 @@ sub append_threads ($$) {
   #
   my $saved = save_file (
     $file => create_forum_xml_string (
-      $threads,
+      $thash,
       {
         dtd         => 'forum.dtd',
         lastMessage => 0,
@@ -515,12 +515,13 @@ sub cut_tail ($) {
                 delete $obsolete{$_};
               }
               else {
-                unless (unlink ($param->{messagePath}."t$_.xml")) {
+                my $tfile = new Lock ($param->{messagePath}."t$_.xml");
+                unless (unlink ($tfile->filename)) {
                   $failed{$_} = 'warning: could not delete thread file';
                 }
                 else {
                   push @removed => $_;
-                  #file_removed ($param->{messagePath}."t$_.xml");
+                  $tfile -> purge;
                 }
               }
             }
-- 
2.34.1