check for key file before import

git-svn-id: https://svn.helsinki.at/rhimport/trunk@52 7c65635b-ec39-4f67-a626-873dbafdd612

1 files changed, 12 insertions, 1 deletions

diff --git a/rhimport b/rhimport
index 2e4729e..8670f12 100755
--- a/rhimport
+++ b/rhimport
@@ -220,6 +220,15 @@ sub start_import_gui()
     exit 2;
   }
 
+  if(!rhimport::check_key_file()) {  
+    my $parent_window = $guixml->get_widget('appwin');
+    my $dialog = Gtk2::MessageDialog->new ($parent_window, 'destroy-with-parent',
+                                           'error', 'ok', "Es wurde kein Import Key gefunden.");
+    $dialog->run;
+    $dialog->destroy;
+    return 0;
+  }
+
   my $l_status = $guixml->get_widget('l_status');
 
   my $filechooser = $guixml->get_widget('filechooser');
@@ -368,7 +377,9 @@ my $cl_error_cb = sub {
   $x =~ /^n/i;
 };
 
-(-e "$FILE") or die "file '$FILE' not found";
+rhimport::check_key_file() or die "Import Key not found, use rhimport-create-id to create one\n";
+
+(-e "$FILE") or die "file '$FILE' not found\n";
 if($POOL) {
   print "will import from playlist $FILE, with user $user\n\n";
 } else {