dh_installmodules

   1 #!/usr/bin/perl -w
   2
   3 =head1 NAME
   4
   5 dh_installmodules - register modules with modutils
   6
   7
   8 =cut
   9
  10 use strict;
  11 use Debian::Debhelper::Dh_Lib;
  12 use File::Find;
  13
  14 =head1 SYNOPSIS
  15
  16 B<dh_installmodules> [S<I<debhelper options>>] [B<-n>] [B<--name=>I<name>]
  17
  18 =head1 DESCRIPTION
  19
  20 dh_installmodules is a debhelper program that is responsible for
  21 registering kernel modules.
  22
  23 Kernel modules are searched for in the package build directory and if
  24 found, postinst and postrm commands are automatically generated to
  25 run depmod and register the modules when the package is installed.
  26 These commands are inserted into the maintainer scripts by
  27 L<dh_installdeb(1)>.
  28
  29 =head1 FILES
  30
  31 =over 4
  32
  33 =item debian/I<package>.modprobe
  34
  35 Installed to etc/modprobe.d/I<package>.conf in the package build directory.
  36
  37 =item debian/I<package>.modules
  38
  39 These files were installed for use by modutils, but are now not used
  40 and dh_installmodules will warn if these files are present.
  41
  42 =back
  43
  44 =head1 OPTIONS
  45
  46 =over 4
  47
  48 =item B<-n>, B<--noscripts>
  49
  50 Do not modify postinst/postrm scripts.
  51
  52 =item B<--name=>I<name>
  53
  54 When this parameter is used, dh_installmodules looks for and
  55 installs files named debian/I<package>.I<name>.modprobe instead
  56 of the usual debian/I<package>.modprobe
  57
  58 =back
  59
  60 =head1 NOTES
  61
  62 Note that this command is not idempotent. L<dh_prep(1)> should be called
  63 between invocations of this command. Otherwise, it may cause multiple
  64 instances of the same text to be added to maintainer scripts.
  65
  66 =cut
  67
  68 init();
  69
  70 # Looks for kernel modules in the passed directory. If any are found,
  71 # returns the kernel version (or versions) that the modules seem to be for.
  72 sub find_kernel_modules {
  73         my $searchdir=shift;
  74         my %versions;
  75
  76         return unless -d $searchdir;
  77         find(sub {
  78                 if (/\.k?o$/) {
  79                         my ($kvers)=$File::Find::dir=~m!lib/modules/([^/]+)/!;
  80                         if (! defined $kvers || ! length $kvers) {
  81                                 warning("Cannot determine kernel version for module $File::Find::name");
  82                         }
  83                         else {
  84                                 $versions{$kvers}=1;
  85                         }
  86                 }
  87         }, $searchdir);
  88
  89         return keys %versions;
  90 }
  91
  92 foreach my $package (@{$dh{DOPACKAGES}}) {
  93         my $tmp=tmpdir($package);
  94         my $modutils_file=pkgfile($package,"modules");
  95         my $modprobe_file=pkgfile($package,"modprobe");
  96
  97         if (! -e $tmp) {
  98                 doit("install","-d",$tmp);
  99         }
 100
 101         if ($modutils_file) {
 102                 warning("ignoring $modutils_file, since modutils is no longer in Debian");
 103         }
 104
 105         if ($modprobe_file) {
 106                 if (! -e "$tmp/etc/modprobe.d") {
 107                         doit("install","-d","$tmp/etc/modprobe.d");
 108                 }
 109                 my $old="/etc/modprobe.d/".pkgfilename($package);
 110                 my $new=$old.".conf";
 111                 doit("install","-m","0644",$modprobe_file,"$tmp/$new");
 112                 autoscript($package,"preinst","preinst-moveconffile","s!#OLD#!$old!g;s!#PACKAGE#!$package!g");
 113                 autoscript($package,"postinst","postinst-moveconffile","s!#OLD#!$old!g;s!#NEW#!$new!g");
 114         }
 115
 116         if (! $dh{NOSCRIPTS}) {
 117                 foreach my $kvers (find_kernel_modules("$tmp/lib/modules")) {
 118                         autoscript($package,"postinst","postinst-modules","s/#KVERS#/$kvers/g");
 119                         autoscript($package,"postrm","postrm-modules","s/#KVERS#/$kvers/g");
 120                 }
 121         }
 122 }
 123
 124 =head1 SEE ALSO
 125
 126 L<debhelper(7)>
 127
 128 This program is a part of debhelper.
 129
 130 =head1 AUTHOR
 131
 132 Joey Hess <joeyh@debian.org>
 133
 134 =cut