mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-29 17:53:57 -07:00
Code Issues Projects Releases Wiki Activity

(gamegrid-add-score-with-update-game-score): Test whether or not

Browse source 
update-game-score is setuid, and do the right thing.
This commit is contained in:
Colin Walters 2002-04-29 22:53:44 +00:00
parent 17df99ea82
commit ab8dbe67bb
1 changed files with 20 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

33
lisp/play/gamegrid.el
View file

@ -413,18 +413,24 @@ static char *noname[] = {
(gamegrid-add-score-with-update-game-score file score))))
(defun gamegrid-add-score-with-update-game-score (file score)
(let ((result nil)
(errbuf (generate-new-buffer " *update-game-score loss*"))
(target (if game-score-directory
file
(let ((f (expand-file-name "~/.emacs.d/games")))
(unless (eq (car-safe (file-attributes f))
t)
(make-directory f))
(setq f (expand-file-name file f))
(unless (file-exists-p f)
(write-region "" nil f nil 'silent nil 'excl))
f))))
(let* ((result nil)
(errbuf (generate-new-buffer " *update-game-score loss*"))
(have-shared-game-dir
(not (zerop (logand (file-modes
(expand-file-name "update-game-score"
exec-directory))
#o4000))))
(target (if have-shared-game-dir
(expand-file-name file game-score-directory)
(let ((f (expand-file-name game-score-directory)))
(when (file-writable-p f)
(unless (eq (car-safe (file-attributes f))
t)
(make-directory f))
(setq f (expand-file-name file f))
(unless (file-exists-p f)
(write-region "" nil f nil 'silent nil 'excl)))
f))))
(let ((default-directory "/"))
(apply
'call-process
@ -432,7 +438,8 @@ static char *noname[] = {
(list
(expand-file-name "update-game-score" exec-directory)
nil errbuf nil
"-m" (int-to-string gamegrid-score-file-length) file
"-m" (int-to-string gamegrid-score-file-length)
"-d" (expand-file-name game-score-directory) file
(int-to-string score)
(concat
(user-full-name)