CVS update by adrian xemacs-builds/adrian/website ...
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>
* 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>
+
+ * 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>
* 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)