From 1ac640333896d0acc1529719e6c1409bed3601a4 Mon Sep 17 00:00:00 2001 From: Jacob Bachmeyer Date: Sat, 5 Nov 2022 17:45:35 -0500 Subject: [PATCH] Use File::Spec in success_upload and success_directive --- gatekeeper.pl | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/gatekeeper.pl b/gatekeeper.pl index c11ab59..4f5a44e 100755 --- a/gatekeeper.pl +++ b/gatekeeper.pl @@ -2501,16 +2501,22 @@ sub success_upload { my $upload_file = shift; my $directive_file = shift; + our $Scratch_dir; + mail ("upload of $upload_file and $sig_file complete",1); - unlink ($directive_file) + unlink File::Spec->catfile($Scratch_dir, $directive_file) or warn "unlink($directive_file) failed: $!"; } sub success_directive { my $directive_file = shift; + + our $Scratch_dir; + mail ("processing of $directive_file complete",1); - unlink ($directive_file) + + unlink File::Spec->catfile($Scratch_dir, $directive_file) or warn "unlink($directive_file) failed: $!"; } -- 2.25.1