r231: Initial Import

[debhelper.git] / dh_installemacsen

diff --git a/dh_installemacsen b/dh_installemacsen
index 008d95311cd857d341254ce9c3485f5e0cb621cd..462e3f3826aeef2a06b6cd4e31514be1cce3ba21 100755 (executable)
--- a/dh_installemacsen
+++ b/dh_installemacsen
@@ -1,36 +1,52 @@
-#!/bin/sh -e
+#!/usr/bin/perl -w
 #
 # Registration with emacsen-common.
 
-PATH=debian:$PATH:/usr/lib/debhelper
-. dh_lib
+BEGIN { push @INC, "debian", "/usr/lib/debhelper" }
+use Dh_Lib;
+init();
 
-for PACKAGE in $DH_DOPACKAGES; do
-       TMP=`tmpdir $PACKAGE`
+if (! defined $dh{number}) {
+       $dh{number}=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" \
-                               "s/#PACKAGE#/$PACKAGE/"
-                       autoscript "prerm" "prerm-emacsen" \
-                               "s/#PACKAGE#/$PACKAGE/"
-               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{number}$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/");
+               }
+       }
+}