fixed insecure temporary file, see http://www.debian.org/security/2003/dsa-341. new alpha version snapshot.

7 files changed, 195 insertions, 5 deletions

diff --git a/app-emacs/liece/Manifest b/app-emacs/liece/Manifest
index 24c7c15f52ab..092b58f6a050 100644
--- a/app-emacs/liece/Manifest
+++ b/app-emacs/liece/Manifest
@@ -1,11 +1,9 @@
-MD5 6f6461bb92d027e2bc6937ff41f6d94f ChangeLog 1143
+MD5 15192b5f8cb77034423f909f93857ccb ChangeLog 1158
 MD5 6e9add024a3c6a84a88eadf5c9f2136e liece-1.4.7.ebuild 1010
 MD5 fcd33d07e4ee719b01157946734f4fe8 metadata.xml 158
 MD5 ad9f6e23210687a9e95d5cde9985c15e liece-1.4.10.ebuild 895
-MD5 a4299fffdfece30f2975fd36dd314178 liece-1.4.10-r1.ebuild 974
-MD5 469161570840a971f671a418a5414690 ChangeLog.bak 988
-MD5 ce644ecde4674a10ffe966792e5ccf63 liece-2.0.0_alpha20030526.ebuild 1004
-MD5 88f508a727753c5903f31629ae79cd6d liece-2.0.0_alpha20030526.ebuild.bak 959
+MD5 c5243eafdd37bb9abfce488902e3fe7d liece-1.4.10-r1.ebuild 977
+MD5 b898576abdc5b4491d27610a14594f6f liece-2.0.0_alpha20030526.ebuild 1081
 MD5 5aa16bbc6b6ac50b62d981d7786d8573 files/60liece-gentoo.el 308
 MD5 863af99d124215dd5c56d21b1fae3a5c files/digest-liece-1.4.7 63
 MD5 5fd2f8383cbd4d9d178442b07ba2ef90 files/digest-liece-1.4.10 64
diff --git a/app-emacs/liece/files/delegate.el b/app-emacs/liece/files/delegate.el
new file mode 100644
index 000000000000..6bcdea1dfc10
--- /dev/null
+++ b/app-emacs/liece/files/delegate.el
@@ -0,0 +1,95 @@
+;;; delegate.el --- allow delegation for lisp variables
+
+;; Copyright (C) 2002 Daiki Ueno
+
+;; Author: Daiki Ueno <ueno@unixuser.org>
+;; Keywords: internal
+
+;; This file is not part of any package.
+
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2, or (at
+;; your option) any later version.
+
+;; This program is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+
+;; Here is a simple example how this package can be used.
+;; 
+;; (define-delegated-variable-alias 'browse-url-browser-function
+;;     'liece-url-browser-function
+;;   "browse-url")
+;;
+;; With this, the variable `liece-url-browser-function' is declared to
+;; be "delegated" to another variable.  Unlike using `defvaralias',
+;; delegated variable itself is responsible for its value.  Moreover we
+;; can hint the input source from which the variable is loaded.
+;;
+;; The delegated variable can be assigned to the default value of
+;; `defcustom' form below.
+;;
+;; (defcustom liece-url-browser-function
+;;   (delegated-variable-get-safe 'liece-url-browser-function)
+;;   "Default URL Browser."
+;;   :group 'liece-url)
+
+;;; Code:
+
+(defvar delegated-variables nil
+  "Alist mapping delegated variable names to symbols and filenames.")
+
+;;;###autoload
+(put 'define-delegated-variable-alias 'lisp-indent-function 2)
+
+;;;###autoload
+(defun define-delegated-variable-alias (variable alias &optional filename)
+  "Define a variable delegated to another variable."
+  (let ((entry (assq alias delegated-variables)))
+    (and (null filename) (boundp variable)
+	 (setq filename (symbol-file variable)))
+    (if entry
+	(setcdr entry (list variable filename))
+      (setq delegated-variables
+	    (cons (list alias variable filename)
+		  delegated-variables)))))
+
+;;;###autoload
+(defun delegated-variable-get (variable)
+  "Return variable's value.
+Error if that is not delegated to another variable."
+  (let ((entry (assq variable delegated-variables))
+	filename)
+    (if entry
+	(if (boundp variable)
+	    (symbol-value variable)
+	  (setq variable (nth 1 entry) filename (nth 2 entry))
+	  (and (not (boundp variable)) filename
+	       (load filename 'noerror))
+	  (if (boundp variable)
+	      (symbol-value variable)
+	    (delegated-variable-get variable))) ;follow an indirection
+      (signal 'wrong-type-argument
+	      (list "Not a delegated variable" variable)))))
+
+;;;###autoload
+(defun delegated-variable-get-safe (variable)
+  "Return variable's value.
+If that is not delegated, don't throw an error.  This function is
+typically used to set the default value within `defcustom' form."
+  (condition-case nil
+      (delegated-variable-get variable)
+    (wrong-type-argument)))
+
+(provide 'delegate)
+
+;;; delegate.el ends here
diff --git a/app-emacs/liece/files/digest-liece-1.4.10-r1 b/app-emacs/liece/files/digest-liece-1.4.10-r1
new file mode 100644
index 000000000000..135231a4ba28
--- /dev/null
+++ b/app-emacs/liece/files/digest-liece-1.4.10-r1
@@ -0,0 +1 @@
+MD5 33e7b46f17010cf43146467abc669dc2 liece-1.4.10.tar.gz 217046
diff --git a/app-emacs/liece/files/digest-liece-2.0.0_alpha20030526 b/app-emacs/liece/files/digest-liece-2.0.0_alpha20030526
new file mode 100644
index 000000000000..e4d927ebb631
--- /dev/null
+++ b/app-emacs/liece/files/digest-liece-2.0.0_alpha20030526
@@ -0,0 +1 @@
+MD5 0e3f2d4d1b780f4c266728f81d371b26 liece-2.0.0_alpha20030526.tar.gz 292714
diff --git a/app-emacs/liece/files/liece-1.4.10-gentoo.patch b/app-emacs/liece/files/liece-1.4.10-gentoo.patch
new file mode 100644
index 000000000000..26dc66c19f18
--- /dev/null
+++ b/app-emacs/liece/files/liece-1.4.10-gentoo.patch
@@ -0,0 +1,13 @@
+diff -urN liece-1.4.10.ORIG/lisp/liece.el liece-1.4.10/lisp/liece.el
+--- liece-1.4.10.ORIG/lisp/liece.el	2002-08-27 07:49:21.000000000 +0900
++++ liece-1.4.10/lisp/liece.el	2003-08-18 00:54:23.000000000 +0900
+@@ -505,8 +505,7 @@
+        (file-exists-p liece-directory)
+        (yes-or-no-p "Upgrade the location of the data files? ")
+        (let ((file
+-	      (expand-file-name
+-	       (make-temp-name "liece") temporary-file-directory)))
++	      (make-temp-file "liece")))
+ 	 (unwind-protect
+ 	     (progn
+ 	       (rename-file liece-directory file 'ok-if-exists)
diff --git a/app-emacs/liece/liece-1.4.10-r1.ebuild b/app-emacs/liece/liece-1.4.10-r1.ebuild
new file mode 100644
index 000000000000..843ca80ecc2d
--- /dev/null
+++ b/app-emacs/liece/liece-1.4.10-r1.ebuild
@@ -0,0 +1,39 @@
+# Copyright 1999-2003 Gentoo Technologies, Inc.
+# Distributed under the terms of the GNU General Public License v2
+# $Header: /var/cvsroot/gentoo-x86/app-emacs/liece/liece-1.4.10-r1.ebuild,v 1.1 2003/08/17 19:12:01 usata Exp $
+
+inherit elisp eutils
+
+IUSE=""
+
+DESCRIPTION="Liece is a client implementation of IRC (Internet Relay Chat, RFC 1459)."
+HOMEPAGE="http://www.unixuser.org/~ueno/liece/"
+SRC_URI="http://www.unixuser.org/~ueno/liece/dist/${P}.tar.gz"
+
+LICENSE="GPL-2"
+SLOT="0"
+KEYWORDS="~x86 ~alpha ~sparc ~ppc"
+
+DEPEND="virtual/emacs
+	app-emacs/apel"
+
+S="${WORKDIR}/${P}"
+
+src_unpack() {
+
+	unpack ${A}
+	epatch ${FILESDIR}/${P}-gentoo.patch
+}
+
+src_compile() {
+	econf --with-lispdir=${D}/${SITELISP} || die "econf failed"
+	emake || die "emake failed"
+}
+
+src_install () {
+	einstall lispdir=${D}/${SITELISP} || die "einstall failed"
+	elisp-site-file-install ${FILESDIR}/60liece-gentoo.el || \
+		die "elisp-site-file-install failed"
+
+	dodoc AUTHORS COPYING INSTALL README
+}
diff --git a/app-emacs/liece/liece-2.0.0_alpha20030526.ebuild b/app-emacs/liece/liece-2.0.0_alpha20030526.ebuild
new file mode 100644
index 000000000000..46bddea52806
--- /dev/null
+++ b/app-emacs/liece/liece-2.0.0_alpha20030526.ebuild
@@ -0,0 +1,43 @@
+# Copyright 1999-2003 Gentoo Technologies, Inc.
+# Distributed under the terms of the GNU General Public License v2
+# $Header: /var/cvsroot/gentoo-x86/app-emacs/liece/liece-2.0.0_alpha20030526.ebuild,v 1.1 2003/08/17 19:12:01 usata Exp $
+
+inherit elisp eutils
+
+IUSE=""
+
+DESCRIPTION="Liece is a client implementation of IRC (Internet Relay Chat, RFC 1459)."
+HOMEPAGE="http://www.unixuser.org/~ueno/liece/"
+SRC_URI="mirror://gentoo/${P}.tar.gz
+	http://dev.gentoo.org/~usata/distfiles/${P}.tar.gz"
+
+LICENSE="GPL-2"
+SLOT="0"
+KEYWORDS="~x86 ~alpha ~sparc ~ppc"
+
+DEPEND="virtual/emacs
+	>=app-emacs/apel-10.6"
+
+S="${WORKDIR}/${PN}"
+
+src_unpack() {
+
+	unpack ${A}
+	cp ${FILESDIR}/delegate.el ${S}/lisp
+}
+
+src_compile() {
+
+	econf --with-lispdir=${D}/${SITELISP} || die "econf failed"
+	emake || die "emake failed"
+}
+
+src_install () {
+	einstall PREFIX=${D}/usr LISPDIR=${D}/${SITELISP} \
+		|| die "install failed"
+	elisp-install ${PN} lisp/delegate.el*
+	elisp-site-file-install ${FILESDIR}/60liece-gentoo.el \
+		|| die "elisp-site-file-install failed"
+
+	dodoc AUTHORS COPYING INSTALL README
+}