;; Auto proxy discovery from network
;; straight grep from wpat.dat file
;; and set newlisp proxy
;; assumes host.domain
;;
(env "HTTP_PROXY"
(and
(regex "PROXY (.*); "
(get-url
(append "http://wpad ."
(join (-2 (parse (net-lookup (net-interface)) "." )) ".") "/wpad.dat")))
(string "http://" $1)))