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 | 7e563eecd8b86a372a1e8040c01debd7ebede909 (patch) | |
tree | 5a0c694e99ae5679e45573932edc65b8018da85e /rhimport | |
parent | d2b849fd657d99968545a3d4ddfe25033f19bb94 (diff) |
first working version (command line)
some issues with error handling and gui remain
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; |