summaryrefslogtreecommitdiff
path: root/dh_installemacsen
diff options
context:
space:
mode:
authorjoey <joey>2000-03-02 21:23:22 +0000
committerjoey <joey>2000-03-02 21:23:22 +0000
commit67b74298f08a3e2b30e43cbcd7cdaccc2e1b1614 (patch)
tree3ce180eedb8c91f9371456f3fb40336b4c7c34dd /dh_installemacsen
parentc7f541bd2bc869c366e8242baf1faa6856cd2e39 (diff)
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.
Diffstat (limited to 'dh_installemacsen')
-rwxr-xr-xdh_installemacsen69
1 files changed, 43 insertions, 26 deletions
diff --git a/dh_installemacsen b/dh_installemacsen
index e87cece..8d8982c 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/");
+ }
+ }
+}