From 7907ce26fe24334c8d5b243df42e641a5bf9dd93 Mon Sep 17 00:00:00 2001
From: Alex Buckley <alexbuckley@catalyst.net.nz>
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
---
 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 74cec5188fd..5fc7c1a7e29 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.30.2