From 67b74298f08a3e2b30e43cbcd7cdaccc2e1b1614 Mon Sep 17 00:00:00 2001
From: joey <joey>
Date: Thu, 2 Mar 2000 21:23:22 +0000
Subject: r338:    * Patch from Jorgen `forcer' Schaefer <forcer at
 mindless.com> (much      modified)to make dh_installwm use new window manager
 registration method,      update-alternatives. Closes: #52156, #34684 (latter
 bug is obsolete)    * Fixed $dh{flavor} to be upper-case.    * Deprecated
 dh_installemavcsen --number; use --priority instead. Also,      the option
 parser requires the parameter be a number now. And,      dh_installwm now
 accepts --priority, and window manager packages should      start using it.  
  * dh_installwm now behaves like a proper debhelper command, and reads     
 debian/<package>.wm too. This is a small behavior change; filenames     
 specified on the command line no longer apply to all packages it acts     
 on. I can't belive this program existed for 2 years with such a glaring     
 problem; I guess most people don't need ot register 5 wm's in 3     
 sub-packages. Anyway, it can handle such things now. :-)    * Moved Dh_*.pm
 to /usr/lib/perl5/Debian/Debhelper. *big* change.

---
 dh_installemacsen | 69 ++++++++++++++++++++++++++++++++++---------------------
 1 file changed, 43 insertions(+), 26 deletions(-)

(limited to 'dh_installemacsen')

diff --git a/dh_installemacsen b/dh_installemacsen
index e87cecef..8d8982c3 100755
--- a/dh_installemacsen
+++ b/dh_installemacsen
@@ -1,34 +1,51 @@
-#!/bin/sh -e
+#!/usr/bin/perl -w
 #
 # Registration with emacsen-common.
 
-PATH=debian:$PATH:/usr/lib/debhelper
-. dh_lib
+use Debian::Debhelper::Dh_Lib;
+init();
 
-for PACKAGE in $DH_DOPACKAGES; do
-	TMP=`tmpdir $PACKAGE`
+if (! defined $dh{PRIORITY}) {
+	$dh{PRIORITY}=50;
+}
+if (! defined $dh{FLAVOR}) {
+	$dh{FLAVOR}='emacs';
+}
 
-	emacsen_install=`pkgfile $PACKAGE emacsen-install`
-	emacsen_remove=`pkgfile $PACKAGE emacsen-remove`
+foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
+	$TMP=tmpdir($PACKAGE);
 
-	if [ "$emacsen_install" ]; then
-		if [ ! -d "$TMP/usr/lib/emacsen-common/packages/install" ]; then
-			doit "install -d $TMP/usr/lib/emacsen-common/packages/install"
-		fi
-		doit "install $emacsen_install $TMP/usr/lib/emacsen-common/packages/install/$PACKAGE"
-	fi
+	$emacsen_install=pkgfile($PACKAGE,"emacsen-install");
+	$emacsen_remove=pkgfile($PACKAGE,"emacsen-remove");
+	$emacsen_startup=pkgfile($PACKAGE,"emacsen-startup");
 
-	if [ "$emacsen_remove" ]; then
-		if [ ! -d "$TMP/usr/lib/emacsen-common/packages/remove" ]; then
-			doit "install -d $TMP/usr/lib/emacsen-common/packages/remove"
-		fi
-		doit "install $emacsen_remove $TMP/usr/lib/emacsen-common/packages/remove/$PACKAGE"
-	fi
+	if ($emacsen_install ne '') {
+		if (! -d "$TMP/usr/lib/emacsen-common/packages/install") {
+			doit("install","-d","$TMP/usr/lib/emacsen-common/packages/install");
+		}
+		doit("install","-m0755",$emacsen_install,"$TMP/usr/lib/emacsen-common/packages/install/$PACKAGE");
+	}
 
-	if [ "$emacsen_install" -o "$emacsen_remove" ]; then
-		if [ ! "$DH_NOSCRIPTS" ]; then
-			autoscript "postinst" "postinst-emacsen"
-			autoscript "prerm" "prerm-emacsen"
-		fi
-	fi	
-done
+	if ($emacsen_remove ne '') {
+		if (! -d "$TMP/usr/lib/emacsen-common/packages/remove") {
+			doit("install","-d","$TMP/usr/lib/emacsen-common/packages/remove");
+		}
+		doit("install","-m0755","$emacsen_remove","$TMP/usr/lib/emacsen-common/packages/remove/$PACKAGE");
+	}
+	
+	if ($emacsen_startup ne '') {
+		if (! -d "$TMP/etc/$dh{FLAVOR}/site-start.d/") {
+			doit("install","-d","$TMP/etc/$dh{FLAVOR}/site-start.d/");
+		}
+		doit("install","-m0644",$emacsen_startup,"$TMP/etc/$dh{FLAVOR}/site-start.d/$dh{PRIORITY}$PACKAGE.el");
+	}
+
+	if ($emacsen_install ne '' || $emacsen_remove ne '') {
+		if (! $dh{NOSCRIPTS}) {
+			autoscript($PACKAGE,"postinst","postinst-emacsen",
+				"s/#PACKAGE#/$PACKAGE/");
+			autoscript($PACKAGE,"prerm","prerm-emacsen",
+				"s/#PACKAGE#/$PACKAGE/");
+		}
+	}
+}	
-- 
cgit v1.2.3