[C] xemacs-builds: Minor update of adrian/website/package-get-2-download-sites.el

[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.76
diff -u -U0 -r1.76 ChangeLog
--- ChangeLog	22 Jun 2007 23:28:34 -0000	1.76
+++ ChangeLog	29 Jul 2007 17:22:42 -0000
@@ -0,0 +1,16 @@
+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.
+

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.9
diff -u -w -r1.9 package-get-2-download-sites.el
--- adrian/website/package-get-2-download-sites.el	22 Jun 2007 23:28:37 -0000	1.9
+++ adrian/website/package-get-2-download-sites.el	29 Jul 2007 17:20:34 -0000
@@ -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

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