From bb18eef53e076e831b536373faa5634945403072 Mon Sep 17 00:00:00 2001 From: Alex Buckley Date: Fri, 17 May 2024 02:17:55 +0000 Subject: [PATCH] Bug 36766: Only list the file basename as the SFTP put destination Sponsored-by: Horowhenua Libraries, Toi Ohomai Institute of Technology, Plant and Food Research Limited, Waitaki District Council, South Taranaki District Council New Zealand Signed-off-by: Nick Clemens Signed-off-by: David Nind --- misc/cronjobs/sftp_file.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/misc/cronjobs/sftp_file.pl b/misc/cronjobs/sftp_file.pl index 74cec5188f..5fc7c1a7e2 100755 --- a/misc/cronjobs/sftp_file.pl +++ b/misc/cronjobs/sftp_file.pl @@ -24,6 +24,7 @@ use Getopt::Long qw( GetOptions ); use Pod::Usage qw( pod2usage ); use Carp qw( carp ); use C4::Letters qw( GetPreparedLetter EnqueueLetter ); +use File::Basename qw( basename ); =head1 NAME @@ -185,9 +186,8 @@ if ( $email ) { open my $fh, '<', $file; if ( $sftp->put( - $fh, $file, - callback => sub { my ( $sftp, $data, $offset, $size ) = @_; warn "$offset of $size bytes transferred\n"; } - ) + $fh, basename($file) + ) ) { # Send success email $sftp_status = 'SUCCESS'; -- 2.39.5