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 Files named debian/package.modules will be installed as
  24 etc/modutils/package in the package build directory. This is for use by
  25 modutils. Files named debian/package.modprobe will be installed in
  26 etc/modprobe.d/package in the package build directory, to be used by
  27 module-init-tools's version of modprobe.
  28
  29 Kernel modules are searched for in the package build directory and if
  30 found, postinst and postrm commands are automatically generated to
  31 run depmod and register the modules when the package is installed. See
  32 L<dh_installdeb(1)> for an explanation of how this works.
  33
  34 =head1 OPTIONS
  35
  36 =over 4
  37
  38 =item B<-n>, B<--noscripts>
  39
  40 Do not modify postinst/postrm scripts.
  41
  42 =item B<--name=>I<name>
  43
  44 When this parameter is used, dh_installmodules looks for and
  45 installs files named debian/package.name.modules and
  46 debian/package.name.modprobe instead of the usual
  47 debian/package.modules and debian/package.modprobe
  48
  49 =back
  50
  51 =head1 NOTES
  52
  53 Note that this command is not idempotent. "dh_clean -k" should be called
  54 between invocations of this command. Otherwise, it may cause multiple
  55 instances of the same text to be added to maintainer scripts.
  56
  57 =cut
  58
  59 init();
  60
  61 # Looks for kernel modules in the passed directory. If any are found,
  62 # returns the kernel version (or versions) that the modules seem to be for.
  63 sub find_kernel_modules {
  64         my $searchdir=shift;
  65         my %versions;
  66
  67         return unless -d $searchdir;
  68         find(sub {
  69                 if (/\.k?o$/) {
  70                         my ($kvers)=$File::Find::dir=~m!lib/modules/([^/]+)/!;
  71                         if (! defined $kvers || ! length $kvers) {
  72                                 warning("Cannot determine kernel version for module $File::Find::name");
  73                         }
  74                         else {
  75                                 $versions{$kvers}=1;
  76                         }
  77                 }
  78         }, $searchdir);
  79
  80         return keys %versions;
  81 }
  82
  83 foreach my $package (@{$dh{DOPACKAGES}}) {
  84         my $tmp=tmpdir($package);
  85         my $modutils_file=pkgfile($package,"modules");
  86         my $modprobe_file=pkgfile($package,"modprobe");
  87
  88         if (! -e $tmp) {
  89                 doit("install","-d",$tmp);
  90         }
  91
  92         if ($modutils_file) {
  93                 if (! -e "$tmp/etc/modutils") {
  94                         doit("install","-d","$tmp/etc/modutils");
  95                 }
  96                 doit("install","-m","0644",$modutils_file,"$tmp/etc/modutils/".pkgfilename($package));
  97         }
  98
  99         if ($modprobe_file) {
 100                 if (! -e "$tmp/etc/modprobe.d") {
 101                         doit("install","-d","$tmp/etc/modprobe.d");
 102                 }
 103                 doit("install","-m","0644",$modprobe_file,"$tmp/etc/modprobe.d/".pkgfilename($package));
 104         }
 105
 106         if (! $dh{NOSCRIPTS}) {
 107                 if ($modutils_file) {
 108                         autoscript($package,"postinst","postinst-update-modules");
 109                         autoscript($package,"postrm","postrm-update-modules");
 110                 }
 111
 112                 foreach my $kvers (find_kernel_modules("$tmp/lib/modules")) {
 113                         autoscript($package,"postinst","postinst-modules","s/#KVERS#/$kvers/g");
 114                         autoscript($package,"postrm","postrm-modules","s/#KVERS#/$kvers/g");
 115                 }
 116         }
 117 }
 118
 119 =head1 SEE ALSO
 120
 121 L<debhelper(7)>
 122
 123 This program is a part of debhelper.
 124
 125 =head1 AUTHOR
 126
 127 Joey Hess <joeyh@debian.org>
 128
 129 =cut