r214: Initial Import

[debhelper.git] / dh_installdebfiles

diff --git a/dh_installdebfiles b/dh_installdebfiles
index 37c630890c2babd85a5adbcfed4e51ba5a72316a..cd4562eab3a146087164c8e88e6a71b7effc4c13 100755 (executable)
--- a/dh_installdebfiles
+++ b/dh_installdebfiles
@@ -1,67 +1,15 @@
-#!/bin/sh -e
+#!/usr/bin/perl -w
 #
-# Install files from debian/ into the package's DEBIAN directory.
-# Also generates the control file.
+# This program is deprecated, but left in the package for backwards
+# compatability. It simply calls the 3 programs that replaced it.
 
-PATH=debian:$PATH:/usr/lib/debhelper
-source dh_lib
+BEGIN { push @INC, "debian", "/usr/lib/debhelper" }
+use Dh_Lib;
 
-for PACKAGE in $DH_DOPACKAGES; do
-       TMP=`tmpdir $PACKAGE`
-       EXT=`pkgext $PACKAGE`
+$ENV{PATH}="debian:$ENV{PATH}:/usr/lib/debhelper";
 
-       if [ ! -d debian/$TMP/DEBIAN ]; then
-               doit "install -o root -g root -d debian/$TMP/DEBIAN"
-       fi
+warning("use of this program is deprecated, see man page.");
 
-       # Install debian install scripts.
-       # If any .debhelper files exist, add them into the scripts.
-       for file in postinst preinst prerm postrm; do
-               if [ -f debian/$EXT$file ]; then
-                       # Add this into the script, where it has #DEBHELPER#
-                       if [ -f debian/$EXT$file.debhelper ]; then
-                               verbose_echo "perl -pe \"s~#DEBHELPER#~qx{cat debian/$EXT$file.debhelper}~eg\" < debian/$EXT$file > debian/$TMP/DEBIAN/$EXT$file"
-                               perl -pe "s~#DEBHELPER#~qx{cat debian/$EXT$file.debhelper}~eg" < debian/$EXT$file > debian/$TMP/DEBIAN/$EXT$file
-                               doit "chown root.root debian/$TMP/DEBIAN/$EXT$file"
-                               doit "chmod 755 debian/$TMP/DEBIAN/$EXT$file"
-                       else
-                               doit "install -o root -g root -p debian/$EXT$file debian/$TMP/DEBIAN/"
-                       fi
-               else
-                       # Auto-generate script header and add .debhelper
-                       # content to it.
-                       if [ -f debian/$EXT$file.debhelper ]; then
-                               verbose_echo "echo '#!/bin/sh -e' > debian/$TMP/DEBIAN/$EXT$file"
-                               echo '#!/bin/sh -e' > debian/$TMP/DEBIAN/$EXT$file
-                               verbose_echo "cat debian/$EXT$file.debhelper >> debian/$TMP/DEBIAN/$EXT$file"
-                               cat debian/$EXT$file.debhelper >> debian/$TMP/DEBIAN/$EXT$file
-                               doit "chown root.root debian/$TMP/DEBIAN/$EXT$file"
-                               doit "chmod 755 debian/$TMP/DEBIAN/$EXT$file"
-                       fi
-               fi
-       done
-
-       # Install non-executable files
-       for file in shlibs conffiles; do
-               if [ -f debian/$EXT$file ]; then
-                       doit "install -o root -g root -m 644 -p debian/$EXT$file debian/$TMP/DEBIAN"
-               fi                                               
-       done
-
-       # Run dpkg-shlibdeps to generate dependancies.
-       filelist=""
-       for file in `find debian/$TMP -type f \( -perm +111 -or -name "*.so*" \) | tr "\n" " "` ; do
-               case "`file $file`" in
-                       *ELF*)
-                               filelist="$file $filelist"
-                       ;;
-               esac
-       done
-       if [ "$filelist" ]; then
-               doit "dpkg-shlibdeps -Tdebian/${EXT}substvars $filelist"
-       fi
-
-       # Generate and install control file.
-       doit "dpkg-gencontrol -p$PACKAGE -Tdebian/${EXT}substvars -Pdebian/$TMP"
-       doit "chown root.root debian/$TMP/DEBIAN/control"
-done
+doit("dh_installdeb",@ARGV);
+doit("dh_shlibdeps",@ARGV);
+doit("dh_gencontrol",@ARGV);