diff options
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; |