scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Try not to loose on empty / wrong lines in .netrc (Skip them silently 

instead until we have a error checking system on netrc files.)
This commit is contained in:
interp 2002-04-04 22:39:15 +00:00
parent b40a663cf1
commit e961d4f595
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
netrc.scm
View File

@ -1,6 +1,6 @@
;;; netrc.scm -- parse authentication information contained in ~/.netrc ;;; netrc.scm -- parse authentication information contained in ~/.netrc
;; ;;
;; $Id: netrc.scm,v 1.5 2002/02/12 11:47:53 interp Exp $ ;; $Id: netrc.scm,v 1.6 2002/04/04 22:39:15 interp Exp $
;; ;;
;; Please send suggestions and bug reports to <emarsden@mail.dotcom.fr> ;; Please send suggestions and bug reports to <emarsden@mail.dotcom.fr>
@ -330,7 +330,11 @@
(password (try-match "password[ \t]+([^ \t]+)" line)) (password (try-match "password[ \t]+([^ \t]+)" line))
(account (try-match "account[ \t]+([^ \t]+)" line))) (account (try-match "account[ \t]+([^ \t]+)" line)))
(if (or machine login password account) (if (or machine login password account)
(add netrc-record machine login password account))))))) (add netrc-record machine login password account)
netrc-record)))))) ; return record on empty / wrong lines
; (This is a workaround. we should give a warning on malicious .netrc
; files. As we do not have an error checking system installed yet, we
; skip these lines silently.)
; adds machine login password account stored in a netrc-entry-record ; adds machine login password account stored in a netrc-entry-record
; to the entries-list of a netrc-record ; to the entries-list of a netrc-record