From 31e7e61143c70e3421b571c3a489df9c9e4eea07 Mon Sep 17 00:00:00 2001 From: mivirl <> Date: Wed, 24 Jan 2024 23:19:35 -0600 Subject: [PATCH] Send filepaths to server Send a unicode character to replace the / when sending filepaths for logs and other files. Gives more descriptive filenames which can be displayed at the same directory level. --- src/client.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/client.pl b/src/client.pl index 64e61e1..2ef3d23 100644 --- a/src/client.pl +++ b/src/client.pl @@ -106,7 +106,7 @@ sub send_log { exit if (! -e $file); my $socket = login($clientName, $clientKey); - my ($fileName) = ns_system('./busybox', './busybox', 'basename', "$file"); + my $fileName = $file =~ s/\////g; $socket->send("log\n"); $socket->send("$fileName\n"); my $tailLog = ns_systemFH('./busybox', './busybox', 'tail', '-F', "$file"); @@ -145,7 +145,7 @@ sub send_file { return if ($pid); exit if (! -e $file); - my ($fileName) = ns_system('./busybox', './busybox', 'basename', "$file"); + my $fileName = $file =~ s/\////g; my ($fileHash) = ns_system('./busybox', './busybox', 'md5sum', "$file"); chomp $fileName; chomp $fileHash; ($fileHash) = $fileHash =~ m/([0-9a-f]+)/; -- 2.39.5