diff options
author | Christian Pointner <equinox@helsinki.at> | 2016-03-17 15:45:23 (GMT) |
---|---|---|
committer | Christian Pointner <equinox@helsinki.at> | 2016-03-17 15:45:23 (GMT) |
commit | 43613383b248e4c6d8ccfdac98ec114f127290d7 (patch) | |
tree | 2df9122fbd4732f3588288d6ad6bcb5e18798d13 /rhautoimport-tr | |
parent | c37171a835f9a6abf45c8fef5f1564ed02e4d611 (diff) |
(re)added binmode(utf8)
added special return code wich means success with errors
Diffstat (limited to 'rhautoimport-tr')
-rwxr-xr-x | rhautoimport-tr | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/rhautoimport-tr b/rhautoimport-tr index 8f38839..21b3a0a 100755 --- a/rhautoimport-tr +++ b/rhautoimport-tr @@ -40,6 +40,10 @@ my $RD_GROUP = "tierrecht"; my $PV_ID = '506'; my $LAST_RUN = 0; +binmode(STDIN, ":utf8"); +binmode(STDOUT, ":utf8"); +binmode(STDERR, ":utf8"); + my @today = Date::Calc::Standard_to_Business(Date::Calc::Today()); if($today[2] == 5) { print "please don't run this script on fridays!\n"; @@ -150,11 +154,17 @@ if($ret) { print "\nImport Success:\n\n"; print $log; print "\n"; -rhautoimport::pv_add_note($sum_title, $sum_text, $PV_ID, $id, "1"); +my $exit_code = 0; +($ret, $log) = rhautoimport::pv_add_note($sum_title, $sum_text, $PV_ID, $id, "1"); +print $log; +if($ret) { + print "\nIgnoring failed note import - manual intervention necessary!\n"; + $exit_code = 23; +} unlink($STAT_FILE); open(my $fhs, '>', $STAT_FILE); print $fhs "$file"; close($fhs); -exit 0; +exit $exit_code; |