From 6ab952c17ac4beec2f239dda5e8cf062fc3824d2 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 28 Sep 2004 06:20:21 +0000 Subject: [PATCH] r10042: add umask to upload scripts --- debian/upload.sh | 2 +- os.lisp | 11 ++++++----- 2 files changed, 7 insertions(+), 6 deletions(-) diff --git a/debian/upload.sh b/debian/upload.sh index c90e527..5b8a569 100755 --- a/debian/upload.sh +++ b/debian/upload.sh @@ -1,6 +1,6 @@ #!/bin/bash -e -dup kmrcl -Uftp.med-info.com -D/home/ftp/kmrcl -C"(cd /opt/apache/htdocs/kmrcl; make install)" -su $* +dup kmrcl -Uftp.med-info.com -D/home/ftp/kmrcl -C"(umask 022; cd /opt/apache/htdocs/kmrcl; make install)" -su $* diff --git a/os.lisp b/os.lisp index 5bbfbfa..cce2a2f 100644 --- a/os.lisp +++ b/os.lisp @@ -153,8 +153,9 @@ returns (VALUES output-string pid)" (error "Directory ~A does not exist [delete-directory-and-files]." dir)))) (defun file-size (file) - #+allegro (let ((stat (excl.osi:stat (namestring file)))) - (excl.osi:stat-size stat)) - #-allegro - (with-open-file (in file :direction :input) - (file-length in))) + (when (probe-file file) + #+allegro (let ((stat (excl.osi:stat (namestring file)))) + (excl.osi:stat-size stat)) + #-allegro + (with-open-file (in file :direction :input) + (file-length in)))) -- 2.34.1