Changeset 18508 for gsdl/trunk/perllib/plugins/ArchivesInfPlugin.pm

Timestamp:

2009-02-11T17:42:17+13:00 (15 years ago)

Author:

davidb

Message:

Had to move location of where deletion of archive files was done

File:

• gsdl/trunk/perllib/plugins/ArchivesInfPlugin.pm (modified) (5 diffs)

gsdl/trunk/perllib/plugins/ArchivesInfPlugin.pm

@@ -88 +88 @@
 
     my $archive_info = $self->{'archive_info'};
+    my $verbosity = $self->{'verbosity'};
+    my $outhandle = $self->{'outhandle'};
 
     if (defined $archive_info) {
@@ -98 +100 @@
 
         my $index_status = $archive_info->get_status_info($doc_oid);
-####        print STDERR "*** Away to Update $doc_oid $index_status\n";
 
         if ($index_status eq "D") {
@@ -104 +105 @@
         $archive_info->delete_info($doc_oid);
         &GDBMUtils::gdbmDatabaseRemove($archive_info_filename,$doc_oid);
+
+        my $doc_file = $subfile->[0];
+        my $base_dir =$self->{'base_dir'};
+
+        my $doc_filename = &util::filename_cat($base_dir,$doc_file);
+
+        my ($doc_tailname, $doc_dirname, $suffix) 
+            = File::Basename::fileparse($doc_filename, "\\.[^\\.]+\$");
+
+        print STDERR "Removing $doc_dirname\n" if ($verbosity>2);
+
+        &util::rm_r($doc_dirname);
+
+
         }
         elsif ($index_status =~ m/^(I|R)$/) {
@@ -120 +135 @@
     my ($pluginfo, $base_dir, $processor, $maxdocs) = @_;
 
+    $self->{'base_dir'} = $base_dir;
 }
 
@@ -257 +273 @@
         }
 
-
-
         if ($process_file) {
         # note: metadata is not carried on to the next level