|
Lines 36-45
use Koha::EDI qw( process_quote process_invoice process_ordrsp );
Link Here
|
| 36 |
use Koha::Edifact::Transport; |
36 |
use Koha::Edifact::Transport; |
| 37 |
use Koha::Logger; |
37 |
use Koha::Logger; |
| 38 |
use Koha::Plugins::Handler; |
38 |
use Koha::Plugins::Handler; |
| 39 |
use Fcntl qw( LOCK_EX O_CREAT O_RDWR SEEK_SET ); |
39 |
use Fcntl qw( LOCK_EX O_CREAT O_RDWR SEEK_SET ); |
|
|
40 |
use C4::Log qw( cronlogaction ); |
| 40 |
|
41 |
|
| 41 |
die "Syspref 'EDIFACT' is disabled" unless C4::Context->preference('EDIFACT'); |
42 |
die "Syspref 'EDIFACT' is disabled" unless C4::Context->preference('EDIFACT'); |
| 42 |
|
43 |
|
|
|
44 |
my $command_line_options = join( " ", @ARGV ); |
| 45 |
cronlogaction( { info => $command_line_options } ); |
| 46 |
|
| 43 |
# we dont have a lock dir in context so use the logdir |
47 |
# we dont have a lock dir in context so use the logdir |
| 44 |
my $logdir = C4::Context->config('logdir'); |
48 |
my $logdir = C4::Context->config('logdir'); |
| 45 |
my $pidfile = "$logdir/edicron.pid"; |
49 |
my $pidfile = "$logdir/edicron.pid"; |
|
Lines 150-155
if ( close $pid_handle ) {
Link Here
|
| 150 |
exit 1; |
154 |
exit 1; |
| 151 |
} |
155 |
} |
| 152 |
|
156 |
|
|
|
157 |
cronlogaction( { action => 'End', info => "COMPLETED" } ); |
| 158 |
|
| 153 |
sub check_pidfile { |
159 |
sub check_pidfile { |
| 154 |
|
160 |
|
| 155 |
# sysopen my $fh, $pidfile, O_EXCL | O_RDWR or log_exit "$0 already running" |
161 |
# sysopen my $fh, $pidfile, O_EXCL | O_RDWR or log_exit "$0 already running" |
| 156 |
- |
|
|