From 07636f4800f92fc06a24d447412078345bbd815e Mon Sep 17 00:00:00 2001 From: Lehi Toskin Date: Mon, 18 May 2015 14:12:50 -0700 Subject: [PATCH] Guard against invalid utf-8 filenames --- callbacks.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/callbacks.rkt b/callbacks.rkt index 36182e1..4231ee3 100644 --- a/callbacks.rkt +++ b/callbacks.rkt @@ -294,11 +294,11 @@ ; our friend wants to send us data ; needs to be in its own thread, otherwise we'll d/c(?) -; perhaps, instead of identifying file transfers by filenumber, -; they are identified by file-id -; (define fid (file-id mtox friendnumber filenumber)) (define on-file-recv-request - (λ (mtox friendnumber filenumber kind filesize filename fname-len userdata) + (λ (mtox friendnumber filenumber kind filesize filename-bytes fname-len userdata) + ; guard against invalid utf-8 filenames being sent over the network + ; - all invalid characters will be replaced with "_" + (define filename (bytes->string/utf-8 filename-bytes #\_)) (thread (λ () (if (eq? kind 'data)