CVS update by adrian xemacs-builds/adrian/website ...

[xemacs-cvs at xemacs.org]

  User: adrian  
  Date: 07/08/18 15:44:24

  Modified:    xemacs-builds/adrian/website package-get-2-download-sites.el
Log:
xemacs-builds: Update ftp-only mirror site list, remove dead mirrors

-------------------- ChangeLog entries follow: --------------------

ChangeLog addition:

2007-08-18  Adrian Aichner  <adrian at xemacs.org>

	* adrian/website/package-get-2-download-sites.el: Update ftp-only
	mirror site list, remove dead mirrors.
	* adrian/website/package-get-2-download-sites.el
	(package-get-2-download-sites-map-ftp-to-http): Add exception for
	ftp.ru.

Revision  Changes    Path
1.79      +8 -0      XEmacs/xemacs-builds/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs-builds/ChangeLog,v
retrieving revision 1.78
retrieving revision 1.79
diff -u -p -r1.78 -r1.79
--- ChangeLog	2007/08/17 06:47:58	1.78
+++ ChangeLog	2007/08/18 13:44:21	1.79
@@ -1,3 +1,11 @@
+2007-08-18  Adrian Aichner  <adrian at xemacs.org>
+
+	* adrian/website/package-get-2-download-sites.el: Update ftp-only
+	mirror site list, remove dead mirrors.
+	* adrian/website/package-get-2-download-sites.el
+	(package-get-2-download-sites-map-ftp-to-http): Add exception for
+	ftp.ru.
+
 2007-08-17  Adrian Aichner  <adrian at xemacs.org>
 
 	* adrian/website/package-get-2-download-sites.el



1.12      +13 -13    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.11
retrieving revision 1.12
diff -u -p -r1.11 -r1.12
--- package-get-2-download-sites.el	2007/08/17 06:48:03	1.11
+++ package-get-2-download-sites.el	2007/08/18 13:44:23	1.12
@@ -22,23 +22,21 @@
 ; xemacsweb/Install/index.content
 ;-> LINK to package info instead!
 
-; 2005-10-23
+; 2007-08-18
 ; HTTP Exceptions (only ftp available!):
 (defconst package-get-2-download-sites-ftp-only-regexp
   (regexp-opt
-   '("ftp.br.xemacs.org"
-     "ftp.crc.ca"
-     "ftp.cz.xemacs.org"
-     "ftp.jp.xemacs.org"
+   '(
+     "ftp.jp.xemacs.org"                ; currently no content and
+					; ftp-only; contacted
+					; ring.aist.go.jp requesting
+					; permission to delegate
+					; jp.xemacs.org.
      "ftp.nrc.ca"
-     "ftp.nz.xemacs.org"
      "ftp.pasteur.fr"
-     "ftp.ru.xemacs.org"
-     "ftp.stealth.net"
-     "ftp.sunsite.utk.edu"
      "mirror.cict.fr"
-     "xemacs.xmundo.net")
-   'words))
+     "xemacs.xmundo.net"
+     ) 'words))
 
 (defconst package-get-2-download-sites-output-root-directory
   "c:\\Hacking\\cvs.xemacs.org\\XEmacs\\xemacsweb\\"
@@ -55,11 +53,10 @@
 ; ** Ping ** ping ** ftp.planetmirror.com
 ; Pinging ftp.planetmirror.com [203.16.234.86] with 32 bytes of data:
 
-; 2005-10-23
+; 2007-08-18
 ; /beta/experimental/packages Exceptions (only /xemacs-21.5/experimental/packages available!):
 ; ftp://ftp.br.xemacs.org/pub/xemacs/xemacs-21.5/experimental/packages
 ; ftp://ftp.cz.xemacs.org/MIRRORS/ftp.xemacs.org/pub/xemacs/xemacs-21.5/experimental/packages
-; http://sunsite.sut.ac.jp/pub/archives/packages/xemacs/xemacs-21.5/experimental/packages
 
 ; HTTP path exceptions (see xemacsweb\Download\index.content):
 (defun package-get-2-download-sites-map-ftp-to-http (host path)
@@ -77,6 +74,9 @@
    ((string-match "ftp\\.gr\\.xemacs\\.org" host)
     (concat host "/"
             (substring path (length "mirrors/XEmacs/"))))
+   ((string-match "ftp\\.ru\\.xemacs\\.org" host)
+    (concat host "/"
+            (substring path (length "pub/emacs/xemacs/"))))
    ((string-match "ftp\\.sa\\.xemacs\\.org" host)
     (concat host "/"
             (substring path (length "pub/xemacs.org/"))))