[C] xemacs-builds: Improve package-get-2-download-sites-map-ftp-to-http to support mapping of host names as well

COMMIT 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.68 diff -u -U0 -r1.68 ChangeLog --- ChangeLog 18 Jun 2005 09:49:33 -0000 1.68 +++ ChangeLog 16 Dec 2005 23:56:48 -0000 ＠＠ -0,0 +1,9 ＠＠ +2005-12-17 Adrian Aichner <adrian(a)xemacs.org&gt; + + * adrian/website/package-get-2-download-sites.el + (package-get-2-download-sites-map-ftp-to-http): Support mapping of + host names as well. + * adrian/website/package-get-2-download-sites.el + (package-get-2-download-sites-file): Adjust use of + package-get-2-download-sites-map-ftp-to-http. + xemacs-builds source patch: Diff command: cvs -f -z3 -q diff -u -w -N Files affected: adrian/website/package-get-2-download-sites.el 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.2 diff -u -w -r1.2 package-get-2-download-sites.el --- adrian/website/package-get-2-download-sites.el 27 Oct 2005 23:20:32 -0000 1.2 +++ adrian/website/package-get-2-download-sites.el 16 Dec 2005 23:55:44 -0000 ＠＠ -67,11 +67,15 ＠＠ "ftp.ch.xemacs.org" "ftp.us.xemacs.org") 'words) host) - (concat "ftp/" path)) - ((string-match "ftp.it.xemacs.org" host) - (substring path (length "unix/packages/XEMACS/"))) + (concat host "/ftp/" path)) + ((string-match "ftp\\.it\\.xemacs\\.org" host) + (concat host "/" + (substring path (length "unix/packages/XEMACS/")))) + ((string-match "ftp\\.hk\\.xemacs\\.org" host) + (concat "xemacsftp.hkmirror.org/" + (substring path (length "pub/xemacsftp/")))) (t - path))) + (concat host "/" path)))) (defun package-get-2-download-sites-file (file site-list) (with-temp-file ＠＠ -88,8 +92,7 ＠＠ (format " <li><a href=\"ftp://%s/%s\">%s</a></li>\n" (second e) (third e) (first e))) (insert - (format " <li><a href=\"http://%s/%s\">%s</a></li>\n" - (second e) + (format " <li><a href=\"http://%s\">%s</a></li>\n" (package-get-2-download-sites-map-ftp-to-http (second e) (third e)) (first e))))) site-list) -- Adrian Aichner mailto:adrian＠xemacs.org http://www.xemacs.org/