User: adrian
Date: 06/01/06 12:49:51
Modified: xemacs-builds/adrian/website package-get-2-download-sites.el
Log:
xemacs-builds: Update for
pt.xemacs.org
-------------------- ChangeLog entries follow: --------------------
ChangeLog addition:
2006-01-06 Adrian Aichner <adrian(a)xemacs.org>
* adrian/website/package-get-2-download-sites.el
(package-get-2-download-sites-ftp-only-regexp): Remove exception
for
pt.xemacs.org.
* adrian/website/package-get-2-download-sites.el
(package-get-2-download-sites-map-ftp-to-http): Add mapping for
pt.xemacs.org.
Revision Changes Path
1.71 +9 -0 XEmacs/xemacs-builds/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs-builds/ChangeLog,v
retrieving revision 1.70
retrieving revision 1.71
diff -u -p -r1.70 -r1.71
--- ChangeLog 2005/12/18 21:10:18 1.70
+++ ChangeLog 2006/01/06 11:49:47 1.71
@@ -1,3 +1,12 @@
+2006-01-06 Adrian Aichner <adrian(a)xemacs.org>
+
+ * adrian/website/package-get-2-download-sites.el
+ (package-get-2-download-sites-ftp-only-regexp): Remove exception
+ for
pt.xemacs.org.
+ * adrian/website/package-get-2-download-sites.el
+ (package-get-2-download-sites-map-ftp-to-http): Add mapping for
+
pt.xemacs.org.
+
2005-12-18 Adrian Aichner <adrian(a)xemacs.org>
* adrian/website/package-get-2-download-sites.el: Refactor to
1.5 +3 -1 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.4
retrieving revision 1.5
diff -u -p -r1.4 -r1.5
--- package-get-2-download-sites.el 2005/12/18 21:10:19 1.4
+++ package-get-2-download-sites.el 2006/01/06 11:49:50 1.5
@@ -33,7 +33,6 @@
"ftp.nrc.ca"
"ftp.nz.xemacs.org"
"ftp.pasteur.fr"
- "ftp.pt.xemacs.org"
"ftp.ru.xemacs.org"
"ftp.stealth.net"
"ftp.sunsite.utk.edu"
@@ -71,6 +70,9 @@
((string-match "ftp\\.it\\.xemacs\\.org" host)
(concat host "/"
(substring path (length "unix/packages/XEMACS/"))))
+ ((string-match "ftp\\.pt\\.xemacs\\.org" host)
+ (concat host "/"
+ (substring path (length "pub/MIRRORS/ftp.xemacs.org/"))))
((string-match "ftp\\.hk\\.xemacs\\.org" host)
(concat "xemacsftp.hkmirror.org/"
(substring path (length "pub/xemacsftp/"))))