[PATCH] xemacs-builds: Add mapping for gr.xemacs.org

xemacs-builds ChangeLog patch: Diff command: cvs -q diff -U 0 Files affected: ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs-builds/ChangeLog,v retrieving revision 1.75 diff -u -U0 -r1.75 ChangeLog --- ChangeLog 12 Jun 2007 11:54:32 -0000 1.75 +++ ChangeLog 22 Jun 2007 23:27:27 -0000 ＠＠ -0,0 +1,6 ＠＠ +2007-06-23 Adrian Aichner <adrian(a)xemacs.org&gt; + + * adrian/website/package-get-2-download-sites.el + (package-get-2-download-sites-map-ftp-to-http): Add mapping for + gr.xemacs.org. + xemacs-builds source patch: Diff command: cvs -f -z3 -q diff -u -w -N Files affected: adrian/website/package-get-2-download-sites.el =================================================================== RCS Index: adrian/website/package-get-2-download-sites.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs-builds/adrian/website/package-get-2-download-sites.el,v retrieving revision 1.8 diff -u -w -r1.8 package-get-2-download-sites.el --- adrian/website/package-get-2-download-sites.el 12 Jun 2007 11:54:38 -0000 1.8 +++ adrian/website/package-get-2-download-sites.el 22 Jun 2007 23:26:17 -0000 ＠＠ -60,6 +60,8 ＠＠ ; HTTP path exceptions (see xemacsweb\Download\index.content): (defun package-get-2-download-sites-map-ftp-to-http (host path) (cond + ;; http path needs /ftp/ inserted between host name and ftp path + ;; component ((string-match (regexp-opt '("ftp.be.xemacs.org" ＠＠ -67,6 +69,11 ＠＠ "ftp.us.xemacs.org") 'words) host) (concat host "/ftp/" path)) + ;; http path needs initial substring removed from ftp path + ;; (multiple variants) + ((string-match "ftp\\.gr\\.xemacs\\.org" host) + (concat host "/" + (substring path (length "mirrors/XEmacs/")))) ((string-match "ftp\\.sa\\.xemacs\\.org" host) (concat host "/" (substring path (length "pub/xemacs.org/")))) ＠＠ -79,8 +86,10 ＠＠ ((string-match "ftp\\.hk\\.xemacs\\.org" host) (concat "xemacsftp.hkmirror.org/" (substring path (length "pub/xemacsftp/")))) + ;; http path needs component stripped out of ftp path ((string-match "ftp\\.nl\\.xemacs\\.org" host) (concat host "/" (replace-in-string path "/ftp/" "/"))) + ;; http path is same as ftp path (t (concat host "/" path)))) -- Adrian Aichner mailto:adrian＠xemacs.org http://www.xemacs.org/ _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches