User: adrian Date: 05/10/25 00:43:49 Added: xemacs-builds/adrian/website package-get-review-download-sites.el Log: Initial version used for today's update. Revision Changes Path 1.1 XEmacs/xemacs-builds/adrian/website/package-get-review-download-sites.el Index: package-get-review-download-sites.el =================================================================== ; Adrian Aichner <adrian(a)xemacs.org&gt;, The XEmacs Project, 2005-10-22. ; Hopefully someday this code will allow me to quickly sync ; information between ; xemacs/lisp/package-get.el ; and ; xemacsweb/Releases/index.content ; 2005-10-22 ; DONE: 2005-10-23 ; xemacsweb/Download/index.content ;-> Feature link to Releases/index.content more prominently! ; DONE: 2005-10-22 ; xemacsweb/Documentation/packageGuide.content ;-> LINK to package info instead! ; DONE: 2005-10-22 ; xemacsweb/Install/index.content ;-> LINK to package info instead! ; 2005-10-23 ; HTTP Exceptions (only ftp available!): (defconst package-get-review-ftp-only-regexp (regexp-opt '("xemacs.xmundo.net" "ftp.br.xemacs.org" "ftp.nrc.ca" "ftp.pasteur.fr" "mirror.cict.fr" "ftp.crc.ca" "ftp.stealth.net" "ftp.pt.xemacs.org" "ftp.cz.xemacs.org" "ftp.jp.xemacs.org" "ftp.nz.xemacs.org") 'words)) ; Missing from package-get.el: ; 2005-10-23 ; /beta/experimental/packages Expections (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/exp... ; http://sunsite.sut.ac.jp/pub/archives/packages/xemacs/xemacs-21.5/experim... ; HTTP path exceptions (see xemacsweb\Download\index.content): (defun package-get-review-map-ftp-to-http (host path) (cond ((string-match (regexp-opt '("ftp.be.xemacs.org" "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/"))) (t path))) (mapc (lambda (site-list) (with-output-to-temp-buffer (concat "*" (symbol-name site-list) "*") (princ (format "\n <!-- Generated by %s\n at %s %+.4d (%s) -->\n" emacs-version (current-time-string) (/ (nth 0 (current-time-zone)) 36) (nth 1 (current-time-zone)))) (princ " <ul>\n") (mapc (lambda (e) ;; (princ (format "%s\nftp://%s/%s\n" (first e) (second e) (third e))) (if (string-match package-get-review-ftp-only-regexp (second e)) (princ (format " <li><a href=\"ftp://%s/%s\">%s</a></li>\n" (second e) (third e) (first e))) (princ (format " <li><a href=\"http://%s/%s\">%s</a></li>\n" (second e) (package-get-review-map-ftp-to-http (second e) (third e)) (first e))))) (symbol-value site-list)) (princ " </ul>\n"))) (list 'package-get-download-sites 'package-get-pre-release-download-sites))