[C] xemacs-builds: Update ftp-only mirror site list, remove dead mirrors

[Adrian Aichner]

COMMIT


xemacs-builds ChangeLog patch:
Diff command:   cvs -q diff -U 0
Files affected: ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs-builds/ChangeLog,v
retrieving revision 1.78
diff -u -U0 -r1.78 ChangeLog
--- ChangeLog	17 Aug 2007 06:47:58 -0000	1.78
+++ ChangeLog	18 Aug 2007 13:43:33 -0000
@@ -0,0 +1,8 @@
+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.
+

xemacs-builds source patch:
Diff command:   cvs -f -z3 -q diff -u -w -N
Files affected: adrian/website/package-get-2-download-sites.el
===================================================================
RCS

Index: adrian/website/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
diff -u -w -r1.11 package-get-2-download-sites.el
--- adrian/website/package-get-2-download-sites.el	17 Aug 2007 06:48:03 -0000	1.11
+++ adrian/website/package-get-2-download-sites.el	18 Aug 2007 13:39:20 -0000
@@ -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/"))))

-- 
Adrian Aichner
 mailto:adrian at xemacs.org
 http://www.xemacs.org/