Changeset 4555 in project


Ignore:
Timestamp:
06/16/07 18:55:47 (13 years ago)
Author:
sjamaan
Message:

Remove absolute pathname check

File:
1 edited

Legend:

Unmodified
Added
Removed
  • phoghorn/phoghorn.scm

    r2688 r4555  
    123123;;
    124124(define (need-access path)
    125   (if (or (string-contains path "..")   ;; <- HaCK
    126             (absolute-pathname? path))
    127       (abort (make-property-condition 'exn
    128                                       'location
    129                                       'need-access
    130                                       'message
    131                                       "access denied"
    132                                       'arguments
    133                                       (list path)))
    134     path))  ;; Else just return path like nothing happened
     125  (if  (string-contains path "..")
     126       (abort (make-property-condition 'exn
     127                                       'location
     128                                       'need-access
     129                                       'message
     130                                       "access denied"
     131                                       'arguments
     132                                       (list path)))
     133       path)) ;; Else just return path like nothing happened
    135134
    136135(define (local-file gallery filename)
Note: See TracChangeset for help on using the changeset viewer.