r420: big monsta changes

[debhelper.git] / dh_installemacsen

diff --git a/dh_installemacsen b/dh_installemacsen
index e87cecef687151d8959fe318b84e7bd1997547d8..a0b827813c18372db428589df32ede1513e07f14 100755 (executable)
--- a/dh_installemacsen
+++ b/dh_installemacsen
@@ -1,34 +1,52 @@
-#!/bin/sh -e
+#!/usr/bin/perl -w
 #
 # Registration with emacsen-common.
 
-PATH=debian:$PATH:/usr/lib/debhelper
-. dh_lib
+use strict;
+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 my $package (@{$dh{DOPACKAGES}}) {
+       my $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
+       my $emacsen_install=pkgfile($package,"emacsen-install");
+       my $emacsen_remove=pkgfile($package,"emacsen-remove");
+       my $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/");
+               }
+       }
+}