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

diff --git a/selfforum-cgi/shared/Arc/Archive.pm b/selfforum-cgi/shared/Arc/Archive.pm
index ef2cee5..7fe7424 100644
--- a/selfforum-cgi/shared/Arc/Archive.pm
+++ b/selfforum-cgi/shared/Arc/Archive.pm
@@ -13,7 +13,6 @@ package Arc::Archive;
 use strict;
 use vars qw(
   @EXPORT
-  $VERSION
 );
 
 use Arc::Test;
@@ -325,7 +324,7 @@ sub append_threads ($$) {
   #
   my $saved = save_file (
     $file => create_forum_xml_string (
-      $threads,
+      $thash,
       {
         dtd         => 'forum.dtd',
         lastMessage => 0,
@@ -516,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;
                 }
               }
             }