From xemacs-cvs at xemacs.org Mon Feb 27 02:24:20 2017
Content-Type: multipart/mixed; boundary="===============0852643283195616977=="
MIME-Version: 1.0
From: CVS Monitor <xemacs-cvs at xemacs.org>
To: xemacs-cvs at xemacs.org
Subject: CVS update by adrian xemacs-builds/adrian/website ...
Date: 2005-12-16 23:57:17 +0000
Message-ID: <20051216235717.29412.qmail@sunsite.dk>

--===============0852643283195616977==
Content-Type: text/plain; charset="utf-8"
MIME-Version: 1.0
Content-Transfer-Encoding: quoted-printable

  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 supp=
ort 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
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
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-down=
load-sites.el

Index: package-get-2-download-sites.el
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
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=3D\"ftp://%s/%s\">%s</a></li>\n"
                     (second e) (third e) (first e)))
          (insert
-          (format "    <li><a href=3D\"http://%s/%s\">%s</a></li>\n"
-                  (second e)
+          (format "    <li><a href=3D\"http://%s\">%s</a></li>\n"
                   (package-get-2-download-sites-map-ftp-to-http (second e)=
 (third e))
                   (first e)))))
      site-list)



--===============0852643283195616977==--