first working version (command line)

some issues with error handling and gui remain


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

1 files changed, 9 insertions, 3 deletions

diff --git a/rhimport b/rhimport
index 49d981d..0ccfa0e 100755
--- a/rhimport
+++ b/rhimport
@@ -32,8 +32,8 @@ use lib '/usr/share/perl5/rhimport/';
 use rhimport;
 
 my $DBHOST = "airplay";
-my $DBUSER = "rivendellro";
-my $DBPW = "lldrivenro";
+my $DBUSER = "rivendell";
+my $DBPW = "lldriven";
 my $DB = "rivendell";
 my $HELP = 0;
 my $FILE = "";
@@ -371,4 +371,10 @@ if($POOL) {
 }
 
 $dbh->disconnect();
-exit $ret;
+
+if($ret ne "") {
+  print STDERR $ret;
+  exit 1;
+}
+
+exit 0;