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

[xemacs-cvs at xemacs.org]

  User: adrian  
  Date: 07/06/12 13:54:39

  Modified:    xemacs-builds/adrian/website package-get-2-download-sites.el
Log:


Revision  Changes    Path
1.75      +14 -0     XEmacs/xemacs-builds/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs-builds/ChangeLog,v
retrieving revision 1.74
retrieving revision 1.75
diff -u -p -r1.74 -r1.75
--- ChangeLog	2006/06/02 22:13:29	1.74
+++ ChangeLog	2007/06/12 11:54:32	1.75
@@ -1,3 +1,17 @@
+2007-06-12  Adrian Aichner  <adrian at xemacs.org>
+
+	* adrian/website/package-get-2-download-sites.el
+	(package-get-2-download-sites-output-directory): Removed.
+	* adrian/website/package-get-2-download-sites.el
+	(package-get-2-download-sites-output-root-directory): New.
+	* adrian/website/package-get-2-download-sites.el
+	(package-get-2-download-sites-map-ftp-to-http): Add sa.xemacs.org.
+	* adrian/website/package-get-2-download-sites.el
+	(package-get-2-download-sites-file): Use
+	`package-get-2-download-sites-output-root-directory'.
+	* adrian/website/package-get-2-download-sites.el
+	(package-get-2-download-sites): Update docstring.
+
 2006-06-03  Adrian Aichner  <adrian at xemacs.org>
 
 	* adrian/website/package-get-2-download-sites.el



1.8       +7 -4      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.7
retrieving revision 1.8
diff -u -p -r1.7 -r1.8
--- package-get-2-download-sites.el	2006/06/02 22:14:58	1.7
+++ package-get-2-download-sites.el	2007/06/12 11:54:38	1.8
@@ -40,9 +40,9 @@
      "xemacs.xmundo.net")
    'words))
 
-(defconst package-get-2-download-sites-output-directory
+(defconst package-get-2-download-sites-output-root-directory
   "c:\\Hacking\\cvs.xemacs.org\\XEmacs\\xemacsweb\\"
-  "Put output files of `package-get-2-download-sites' in this directory.")
+  "Put output files of `package-get-2-download-sites' in hierarchy under this directory.")
 
 ; Missing from package-get.el:
 ; ftp://ftp.planetmirror.com/pub/xemacs/beta/experimental/packages/
@@ -67,6 +67,9 @@
         "ftp.us.xemacs.org")
       'words) host)
     (concat host "/ftp/" path))
+   ((string-match "ftp\\.sa\\.xemacs\\.org" host)
+    (concat host "/"
+            (substring path (length "pub/xemacs.org/"))))
    ((string-match "ftp\\.it\\.xemacs\\.org" host)
     (concat host "/"
             (substring path (length "unix/packages/XEMACS/"))))
@@ -83,7 +86,7 @@
 
 (defun package-get-2-download-sites-file (file site-list teaser)
   (with-temp-file
-      (expand-file-name file package-get-2-download-sites-output-directory)
+      (expand-file-name file package-get-2-download-sites-output-root-directory)
     ;; Automatically buffer-local when set in any fashion:
     (setq buffer-file-coding-system 'no-conversion-unix)
     (insert
@@ -164,7 +167,7 @@
 
 (defun package-get-2-download-sites ()
   "Generate files under
-  `package-get-2-download-sites-output-directory' based on current
+  `package-get-2-download-sites-output-root-directory' based on current
   values of `package-get-download-sites' and
   `package-get-pre-release-download-sites'."
   (interactive)