|
Lines 124-135
if ( $deleted_barcodes and $record_type ne 'bibs' ) {
Link Here
|
| 124 |
pod2usage(q|--deleted_barcodes can only be used with biblios|); |
124 |
pod2usage(q|--deleted_barcodes can only be used with biblios|); |
| 125 |
} |
125 |
} |
| 126 |
|
126 |
|
| 127 |
my $sftp_server; |
127 |
my $file_transport; |
| 128 |
if ($destination_server_id) { |
128 |
if ($destination_server_id) { |
| 129 |
$sftp_server = Koha::File::Transports->find($destination_server_id); |
129 |
$file_transport = Koha::File::Transports->find($destination_server_id); |
| 130 |
|
130 |
|
| 131 |
pod2usage( sprintf( "No FTP/SFTP Server (%s) found", $destination_server_id ) ) |
131 |
pod2usage( sprintf( "No file transport server (%s) found", $destination_server_id ) ) |
| 132 |
unless $sftp_server; |
132 |
unless $file_transport; |
| 133 |
} |
133 |
} |
| 134 |
|
134 |
|
| 135 |
if ($report_id) { |
135 |
if ($report_id) { |
|
Lines 137-143
if ($report_id) {
Link Here
|
| 137 |
# Check report exists |
137 |
# Check report exists |
| 138 |
$report = Koha::Reports->find($report_id); |
138 |
$report = Koha::Reports->find($report_id); |
| 139 |
unless ($report) { |
139 |
unless ($report) { |
| 140 |
pod2usage( sprintf( "No FTP/SFTP Server (%s) found", $report_id ) ); |
140 |
pod2usage( sprintf( "No saved report (%s) found", $report_id ) ); |
| 141 |
} |
141 |
} |
| 142 |
$sql = $report->savedsql; |
142 |
$sql = $report->savedsql; |
| 143 |
|
143 |
|
|
Lines 354-370
if ($deleted_barcodes) {
Link Here
|
| 354 |
); |
354 |
); |
| 355 |
} |
355 |
} |
| 356 |
|
356 |
|
| 357 |
if ($sftp_server) { |
357 |
if ($file_transport) { |
| 358 |
$sftp_server->connect |
358 |
$file_transport->connect |
| 359 |
or die pod2usage( sprintf( "Unable to connect server (%s)", $destination_server_id ) ); |
359 |
or die pod2usage( sprintf( "Unable to connect server (%s)", $destination_server_id ) ); |
| 360 |
|
360 |
|
| 361 |
my $upload_dir = $sftp_server->upload_directory; |
361 |
my $upload_dir = $file_transport->upload_directory; |
| 362 |
if ($upload_dir) { |
362 |
if ($upload_dir) { |
| 363 |
$sftp_server->change_directory( $upload_dir ) |
363 |
$file_transport->change_directory($upload_dir) |
| 364 |
or die pod2usage( sprintf( "Unable to change directory on server (%s) to path (%s)", $destination_server_id, $upload_dir ) ); |
364 |
or die pod2usage( |
|
|
365 |
sprintf( "Unable to change directory on server (%s) to path (%s)", $destination_server_id, $upload_dir ) ); |
| 365 |
} |
366 |
} |
| 366 |
|
367 |
|
| 367 |
$sftp_server->upload_file ( $filename, $filename ) |
368 |
$file_transport->upload_file( $filename, $filename ) |
| 368 |
or die pod2usage( sprintf( "Unable to upload file (%s) to server (%s)", $filename, $destination_server_id ) ); |
369 |
or die pod2usage( sprintf( "Unable to upload file (%s) to server (%s)", $filename, $destination_server_id ) ); |
| 369 |
} |
370 |
} |
| 370 |
|
371 |
|
|
Lines 519-533
Print a brief help message.
Link Here
|
| 519 |
=item B<--destination_server_id> |
520 |
=item B<--destination_server_id> |
| 520 |
|
521 |
|
| 521 |
--destination_server_id=ID Provide this option, along with the destination server ID, to |
522 |
--destination_server_id=ID Provide this option, along with the destination server ID, to |
| 522 |
upload the resultant mrc file to the selected FTP/SFTP Server. |
523 |
upload the resultant mrc file to the selected file transport server. |
| 523 |
You can create FTP/SFTP Servers via the Koha Staff client, under |
524 |
You can create file transport servers via the Koha Staff client, under |
| 524 |
Koha Administration. |
525 |
Koha Administration. |
| 525 |
|
526 |
|
| 526 |
=item B<--delete_local_after_run> |
527 |
=item B<--delete_local_after_run> |
| 527 |
|
528 |
|
| 528 |
--delete_local_after_run Deletes the local file at the end of the script run. Can be |
529 |
--delete_local_after_run Deletes the local file at the end of the script run. Can be |
| 529 |
useful if, for example, you are uploading the file to an |
530 |
useful if, for example, you are uploading the file to a |
| 530 |
FTP/SFTP server. |
531 |
file transport server. |
| 531 |
|
532 |
|
| 532 |
=back |
533 |
=back |
| 533 |
|
534 |
|
| 534 |
- |
|
|