Changeset 6737

Timestamp:

Jul 30, 2010, 9:11:57 AM (14 years ago)

Author:

ronosman

Message:

Clean up image files from cache when exiting.

Location:

extensions/pLoader/trunk/src/Uploader

Files:

• GUI/App.pm (modified) (2 diffs)
• ResizeWorker.pm (modified) (1 diff)

extensions/pLoader/trunk/src/Uploader/GUI/App.pm

@@ -190 +190 @@
     $self->store_all;
 
+    # clean image files
+    $self->remove_dir_files($self->thumb_dir);
+    $self->remove_dir_files($self->resized_dir);
+
 }
 
@@ -202 +206 @@
 }
 
+
+sub remove_dir_files {
+    my ( $self, $dir_name ) = @_;
+
+    if(opendir(DIR, $dir_name)){
+        while(defined(my $file_name = readdir(DIR))){
+            my $filepath =  File::Spec->catfile(
+                $dir_name,
+                $file_name
+            );
+            unlink $filepath;
+        }
+
+        closedir(DIR);
+    }
+}
 
 sub reset_add_rank {

extensions/pLoader/trunk/src/Uploader/ResizeWorker.pm

@@ -483 +483 @@
         # high file is the original file
         $image->{site_high_file} = $image->{file};
-        #printf("site high file %s\n", $self->current_image->site_high_file);
     }
     $self->log_image_progress(