12ff7355bb
svc/import_bib: * takes POST request with parameters in url and MARC XML as DATA * pushes MARC XML to an impoort bach queue of type 'webservice' * returns status and imported record XML * is a drop-in replacement for svc/new_bib misc/cronjobs/import_webservice_batch.pl: * a cron job for processing impoort bach queues of type 'webservice' * batches can also be processed through the UI misc/bin/connexion_import_daemon.pl: * a daemon that listens for OCLC Connexion requests and is compliant with OCLC Gateway spec * takes request with MARC XML * takes import batch params from a config file and forwards the lot to svc/import_bib * returns status ImportBatches: * Added new import batch type of 'webservice' * Changed interface to AddImportBatch() - now it takes a hashref * Replaced batch_type = 'batch' with batch_type IN ( 'batch', 'webservice' ) in some SELECTs Signed-off-by: MJ Ray <mjr@phonecoop.coop>
57 lines
1.3 KiB
Perl
Executable file
57 lines
1.3 KiB
Perl
Executable file
#!/usr/bin/perl -w
|
|
|
|
# Copyright 2012 CatalystIT
|
|
#
|
|
# This file is part of Koha.
|
|
#
|
|
# Koha is free software; you can redistribute it and/or modify it under the
|
|
# terms of the GNU General Public License as published by the Free Software
|
|
# Foundation; either version 2 of the License, or (at your option) any later
|
|
# version.
|
|
#
|
|
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
|
|
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
|
|
# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License along
|
|
# with Koha; if not, write to the Free Software Foundation, Inc.,
|
|
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
|
|
use strict;
|
|
use warnings;
|
|
use utf8;
|
|
|
|
BEGIN {
|
|
|
|
# find Koha's Perl modules
|
|
# test carefully before changing this
|
|
use FindBin;
|
|
eval { require "$FindBin::Bin/../kohalib.pl" };
|
|
}
|
|
|
|
use Getopt::Long;
|
|
use Pod::Usage;
|
|
use C4::ImportBatch;
|
|
|
|
my ($help, $framework);
|
|
|
|
GetOptions(
|
|
'help|?' => \$help,
|
|
'framework=s' => \$framework,
|
|
);
|
|
|
|
if($help){
|
|
print <<EOF
|
|
$0 --framework=myframework
|
|
Parameters :
|
|
--help|? This message
|
|
--framework default ""
|
|
EOF
|
|
;
|
|
exit;
|
|
}
|
|
|
|
my $batch_ids = GetStagedWebserviceBatches() or exit;
|
|
|
|
$framework ||= '';
|
|
BatchCommitBibRecords($_, $framework) foreach @$batch_ids;
|