Changeset 3140

Timestamp:

Feb 13, 2009, 3:00:58 PM (15 years ago)

Author:

ronosman

Message:

Create an alternate pLoader directory when default fails.

File:

• extras/pLoader/trunk/src/Uploader/GUI/wxApp.pm (modified) (4 diffs)

extras/pLoader/trunk/src/Uploader/GUI/wxApp.pm

@@ -41 +41 @@
          /;
 use Uploader::GUI::wxFrameAUI;
-use File::Slurp ; 
+use File::Slurp ;
 use Data::Dumper;
 use Storable;
@@ -49 +49 @@
 use Uploader::ImageList;
 use Uploader::GUI::wxLoginDlg;
+
 
 $|=1;
@@ -253 +254 @@
     
     my $applicationName = $self->GetAppName ;
-    my $userdatadir = File::Spec->canonpath(File::Spec->catfile(File::HomeDir->my_data(), "\.$applicationName"));
-
-    mkdir $userdatadir unless -d $userdatadir ;
+    my $userdatadir = File::Spec->canonpath(
+        File::Spec->catfile(
+            File::HomeDir->my_data(), 
+            "\.$applicationName"
+        )
+    );
+
+    if(! -d $userdatadir){
+        if(! mkdir $userdatadir){
+            Wx::MessageBox( 
+                sprintf(
+                    "%s directory creation failed",
+                    $userdatadir,
+                ),
+                "pLoader working directory creation error",
+                wxOK | wxICON_EXCLAMATION, 
+            );
+
+            $userdatadir = File::Spec->canonpath(
+                File::Spec->catfile(
+                    File::Spec->tmpdir(), 
+                    "\.$applicationName"
+                )
+            );
+            mkdir $userdatadir;
+        }       
+    }
+
     $self->userdata_dir($userdatadir);
     
@@ -432 +458 @@
             width     => $w,
             height    => $h,
-            title     => "pLoader - Piwigo uploader 1.0 RC3 - [$url]" ,
+            title     => "pLoader - Piwigo uploader 1.0 RC4 - [$url]" ,
             pwg       => $self->pwg,
             imagelist => $self->imagelist,