diff options
author | Christian Pointner <equinox@helsinki.at> | 2010-04-06 16:42:56 (GMT) |
---|---|---|
committer | Christian Pointner <equinox@helsinki.at> | 2010-04-06 16:42:56 (GMT) |
commit | 65edbe8fd22d32c9adf64f40065eb79992740f5e (patch) | |
tree | 5a0c694e99ae5679e45573932edc65b8018da85e /rhimport | |
parent | 1a2eb99e56ec8b9115752843559c80521f71b96f (diff) |
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
Diffstat (limited to 'rhimport')
-rwxr-xr-x | rhimport | 12 |
1 files changed, 9 insertions, 3 deletions
@@ -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; |