From 6b162bde5431f1382518956982c9f830b358d39b Mon Sep 17 00:00:00 2001 From: Jason Etheridge Date: Thu, 14 Jun 2012 17:28:58 -0400 Subject: [PATCH] more information for OFFLINE_FILE_ERROR in the params section of the stacktrace Signed-off-by: Jason Etheridge --- Open-ILS/src/offline/offline.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Open-ILS/src/offline/offline.pl b/Open-ILS/src/offline/offline.pl index f7719d5741..bbe7ab9a7d 100755 --- a/Open-ILS/src/offline/offline.pl +++ b/Open-ILS/src/offline/offline.pl @@ -224,7 +224,7 @@ sub ol_load { qx/mkdir -p $outdir/; my $x = 0; - open(FILE, ">>$outfile") or ol_handle_event('OFFLINE_FILE_ERROR'); + open(FILE, ">>$outfile") or ol_handle_event('OFFLINE_FILE_ERROR', 'outfile' => ">>$outfile"); while( <$handle> ) { print FILE; $x++;} close(FILE); @@ -431,7 +431,7 @@ sub ol_execute { sub ol_file_to_perl { my $fname = shift; - open(F, "$fname") or ol_handle_event('OFFLINE_FILE_ERROR'); + open(F, "$fname") or ol_handle_event('OFFLINE_FILE_ERROR', 'fname' => "$fname"); my @d = ; my @p; push(@p, OpenSRF::Utils::JSON->JSON2perl($_)) for @d; @@ -513,7 +513,7 @@ sub ol_append_result { if(!$rhandle) { open($rhandle, ">>$basedir/pending/$org/$seskey/results") - or ol_handle_event('OFFLINE_FILE_ERROR'); + or ol_handle_event('OFFLINE_FILE_ERROR', 'append_path' => ">>$basedir/pending/$org/$seskey/results"); } print $rhandle "$obj\n"; -- 2.11.0