X-Git-Url: https://git.p6c8.net/selfforum.git/blobdiff_plain/a09cfae84e4dfd3259087303097ce83f98c14aea..9332d4fcd5f086b70aadd7d7e97c24e45e889c48:/selfforum-cgi/shared/Arc/Archive.pm

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;
                 }
               }
             }