Changeset 6737 for extensions/pLoader/trunk/src/Uploader/GUI/App.pm

Timestamp:

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

Author:

ronosman

Message:

Clean up image files from cache when exiting.

File:

• extensions/pLoader/trunk/src/Uploader/GUI/App.pm (modified) (2 diffs)

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 {