User: adrian Date: 06/06/03 00:15:00 Modified: xemacs-builds/adrian/website package-get-2-download-sites.el Log: xemacs-builds: Welcome nl.xemacs.org and Thanks! -------------------- ChangeLog entries follow: -------------------- ChangeLog addition: 2006-06-03 Adrian Aichner <adrian(a)xemacs.org&gt; * adrian/website/package-get-2-download-sites.el (package-get-2-download-sites-map-ftp-to-http): Welcome nl.xemacs.org and Thanks! Revision Changes Path 1.74 +6 -0 XEmacs/xemacs-builds/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs-builds/ChangeLog,v retrieving revision 1.73 retrieving revision 1.74 diff -u -p -r1.73 -r1.74 --- ChangeLog 2006/02/12 16:40:36 1.73 +++ ChangeLog 2006/06/02 22:13:29 1.74 ＠＠ -1,3 +1,9 ＠＠ +2006-06-03 Adrian Aichner <adrian(a)xemacs.org&gt; + + * adrian/website/package-get-2-download-sites.el + (package-get-2-download-sites-map-ftp-to-http): Welcome + nl.xemacs.org and Thanks! + 2006-02-12 Adrian Aichner <adrian(a)xemacs.org&gt; * adrian/website/avail2table.pl: use POSIX to get access to 1.7 +2 -0 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.6 retrieving revision 1.7 diff -u -p -r1.6 -r1.7 --- package-get-2-download-sites.el 2006/01/30 21:17:39 1.6 +++ package-get-2-download-sites.el 2006/06/02 22:14:58 1.7 ＠＠ -76,6 +76,8 ＠＠ ((string-match "ftp\\.hk\\.xemacs\\.org" host) (concat "xemacsftp.hkmirror.org/" (substring path (length "pub/xemacsftp/")))) + ((string-match "ftp\\.nl\\.xemacs\\.org" host) + (concat host "/" (replace-in-string path "/ftp/" "/"))) (t (concat host "/" path))))