1;;; url-ns.el --- Various netscape-ish functions for proxy definitions
2
3;; Copyright (C) 1997, 1998, 1999, 2004, 2005,
4;;   2006, 2007 Free Software Foundation, Inc.
5
6;; Keywords: comm, data, processes, hypermedia
7
8;; This file is part of GNU Emacs.
9
10;; GNU Emacs is free software; you can redistribute it and/or modify
11;; it under the terms of the GNU General Public License as published by
12;; the Free Software Foundation; either version 2, or (at your option)
13;; any later version.
14
15;; GNU Emacs is distributed in the hope that it will be useful,
16;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
18;; GNU General Public License for more details.
19
20;; You should have received a copy of the GNU General Public License
21;; along with GNU Emacs; see the file COPYING.  If not, write to the
22;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
23;; Boston, MA 02110-1301, USA.
24
25;;; Code:
26
27(require 'url-gw)
28
29;;;###autoload
30(defun isPlainHostName (host)
31  (not (string-match "\\." host)))
32
33;;;###autoload
34(defun dnsDomainIs (host dom)
35  (string-match (concat (regexp-quote dom) "$") host))
36
37;;;###autoload
38(defun dnsResolve (host)
39  (url-gateway-nslookup-host host))
40
41;;;###autoload
42(defun isResolvable (host)
43  (if (string-match "^[0-9.]+$" host)
44      t
45    (not (string= host (url-gateway-nslookup-host host)))))
46
47;;;###autoload
48(defun isInNet (ip net mask)
49  (let ((netc (split-string ip "\\."))
50	(ipc  (split-string net "\\."))
51	(maskc (split-string mask "\\.")))
52    (if (or (/= (length netc) (length ipc))
53	    (/= (length ipc) (length maskc)))
54	nil
55      (setq netc (mapcar 'string-to-number netc)
56	    ipc (mapcar 'string-to-number ipc)
57	    maskc (mapcar 'string-to-number maskc))
58      (and
59       (= (logand (nth 0 netc) (nth 0 maskc))
60	  (logand (nth 0 ipc)  (nth 0 maskc)))
61       (= (logand (nth 1 netc) (nth 1 maskc))
62	  (logand (nth 1 ipc)  (nth 1 maskc)))
63       (= (logand (nth 2 netc) (nth 2 maskc))
64	  (logand (nth 2 ipc)  (nth 2 maskc)))
65       (= (logand (nth 3 netc) (nth 3 maskc))
66	  (logand (nth 3 ipc)  (nth 3 maskc)))))))
67
68;; Netscape configuration file parsing
69(defvar url-ns-user-prefs nil
70  "Internal, do not use.")
71
72;;;###autoload
73(defun url-ns-prefs (&optional file)
74  (if (not file)
75      (setq file (expand-file-name "~/.netscape/preferences.js")))
76  (if (not (and (file-exists-p file)
77		(file-readable-p file)))
78      (message "Could not open %s for reading" file)
79    (save-excursion
80      (let ((false nil)
81	    (true t))
82	(setq url-ns-user-prefs (make-hash-table :size 13 :test 'equal))
83	(set-buffer (get-buffer-create " *ns-parse*"))
84	(erase-buffer)
85	(insert-file-contents file)
86	(goto-char (point-min))
87	(while (re-search-forward "^//" nil t)
88	  (replace-match ";;"))
89	(goto-char (point-min))
90	(while (re-search-forward "^user_pref(" nil t)
91	  (replace-match "(url-ns-set-user-pref "))
92	(goto-char (point-min))
93	(while (re-search-forward "\"," nil t)
94	  (replace-match "\""))
95	(goto-char (point-min))
96	(eval-buffer)))))
97
98(defun url-ns-set-user-pref (key val)
99  (puthash key val url-ns-user-prefs))
100
101;;;###autoload
102(defun url-ns-user-pref (key &optional default)
103  (gethash key url-ns-user-prefs default))
104
105(provide 'url-ns)
106
107;;; arch-tag: 69520992-cf97-40b4-9ad1-c866d3cae5bf
108;;; url-ns.el ends here
109