User: adrian Date: 05/12/17 00:57:17 Modified: xemacs-builds/adrian/website package-get-2-download-sites.el Log: xemacs-builds: Improve package-get-2-download-sites-map-ftp-to-http to support mapping of host names as well -------------------- ChangeLog entries follow: -------------------- ChangeLog addition: 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. Revision Changes Path 1.69 +9 -0 XEmacs/xemacs-builds/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs-builds/ChangeLog,v retrieving revision 1.68 retrieving revision 1.69 diff -u -p -r1.68 -r1.69 --- ChangeLog 2005/06/18 09:49:33 1.68 +++ ChangeLog 2005/12/16 23:57:15 1.69 ＠＠ -1,3 +1,12 ＠＠ +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. + 2005-06-18 Adrian Aichner <adrian(a)xemacs.org&gt; * adrian/website/package-info2table.pl (main): Add $produced_by 1.3 +9 -6 XEmacs/xemacs-builds/adrian/website/package-get-2-download-sites.el Index: 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 retrieving revision 1.3 diff -u -p -r1.2 -r1.3 --- package-get-2-download-sites.el 2005/10/27 23:20:32 1.2 +++ package-get-2-download-sites.el 2005/12/16 23:57:16 1.3 ＠＠ -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)