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

[xemacs-cvs at xemacs.org]

  User: adrian  
  Date: 07/07/29 19:23:24

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

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

ChangeLog addition:

2007-07-29  Adrian Aichner  <adrian at xemacs.org>

	* adrian/website/package-get-2-download-sites.el:
	* adrian/website/package-get-2-download-sites.el
	(package-get-2-download-sites-experimental-packages-regex): New.
	* adrian/website/package-get-2-download-sites.el
	(package-get-2-download-sites-netinstall): Use
	`package-get-2-download-sites-experimental-packages-regex'.
	* adrian/website/package-get-2-download-sites.el
	(package-get-2-download-sites-installshield): Use
	`package-get-2-download-sites-experimental-packages-regex'.
	* adrian/website/package-get-2-download-sites.el
	(package-get-2-download-sites-innosetup): Use
	`package-get-2-download-sites-experimental-packages-regex'.
	Update for 21.4.20 kit.

Revision  Changes    Path
1.77      +16 -0     XEmacs/xemacs-builds/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs-builds/ChangeLog,v
retrieving revision 1.76
retrieving revision 1.77
diff -u -p -r1.76 -r1.77
--- ChangeLog	2007/06/22 23:28:34	1.76
+++ ChangeLog	2007/07/29 17:23:21	1.77
@@ -1,3 +1,19 @@
+2007-07-29  Adrian Aichner  <adrian at xemacs.org>
+
+	* adrian/website/package-get-2-download-sites.el:
+	* adrian/website/package-get-2-download-sites.el
+	(package-get-2-download-sites-experimental-packages-regex): New.
+	* adrian/website/package-get-2-download-sites.el
+	(package-get-2-download-sites-netinstall): Use
+	`package-get-2-download-sites-experimental-packages-regex'.
+	* adrian/website/package-get-2-download-sites.el
+	(package-get-2-download-sites-installshield): Use
+	`package-get-2-download-sites-experimental-packages-regex'.
+	* adrian/website/package-get-2-download-sites.el
+	(package-get-2-download-sites-innosetup): Use
+	`package-get-2-download-sites-experimental-packages-regex'.
+	Update for 21.4.20 kit.
+
 2007-06-23  Adrian Aichner  <adrian at xemacs.org>
 
 	* adrian/website/package-get-2-download-sites.el



1.10      +10 -6     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.9
retrieving revision 1.10
diff -u -p -r1.9 -r1.10
--- package-get-2-download-sites.el	2007/06/22 23:28:37	1.9
+++ package-get-2-download-sites.el	2007/07/29 17:23:24	1.10
@@ -44,6 +44,10 @@
   "c:\\Hacking\\cvs.xemacs.org\\XEmacs\\xemacsweb\\"
   "Put output files of `package-get-2-download-sites' in hierarchy under this directory.")
 
+(defconst package-get-2-download-sites-experimental-packages-regex
+"[^/]+/experimental/packages$"
+"Regular expression matching package pre-release path.")
+
 ; Missing from package-get.el:
 ; ftp://ftp.planetmirror.com/pub/xemacs/beta/experimental/packages/
 ; ** Ping ** ping ** ftp.au.xemacs.org
@@ -146,8 +150,8 @@
            (second e)
            (replace-in-string
             (third e)
-            "/[^/]+/experimental/packages$"
-            "/binaries/win32/netinstall/xemacs-i586-pc-win32-21.4.13.tar.gz")))
+            package-get-2-download-sites-experimental-packages-regex
+            "binaries/win32/netinstall/xemacs-i586-pc-win32-21.4.13.tar.gz")))
    package-get-pre-release-download-sites))
 
 (defun package-get-2-download-sites-installshield ()
@@ -157,8 +161,8 @@
            (second e)
            (replace-in-string
             (third e)
-            "/[^/]+/experimental/packages$"
-            "/binaries/win32/installshield/xemacs-21.5.17.exe")))
+            package-get-2-download-sites-experimental-packages-regex
+            "binaries/win32/installshield/xemacs-21.5.17.exe")))
    package-get-pre-release-download-sites))
 
 (defun package-get-2-download-sites-innosetup ()
@@ -168,8 +172,8 @@
            (second e)
            (replace-in-string
             (third e)
-            "/[^/]+/experimental/packages$"
-            "/binaries/win32/InnoSetup/XEmacs%20Setup%2021.4.19.exe")))
+            package-get-2-download-sites-experimental-packages-regex
+            "binaries/win32/InnoSetup/XEmacs_Setup_21.4.20.exe")))
    package-get-pre-release-download-sites))
 
 ; package-get-2-download-sites-gamma