dh_installudev

   1 #!/usr/bin/perl -w
   2
   3 =head1 NAME
   4
   5 dh_installudev - install udev rules files
   6
   7 =cut
   8
   9 use strict;
  10 use Debian::Debhelper::Dh_Lib;
  11 use File::Find;
  12
  13 =head1 SYNOPSIS
  14
  15 B<dh_installudev> [S<I<debhelper options>>] [B<-n>] [B<--name=>I<name>] [B<--priority=>I<priority>]
  16
  17 =head1 DESCRIPTION
  18
  19 dh_installudev is a debhelper program that is responsible for
  20 installing udev rules files.
  21
  22 Code is added to the preinst and postinst to handle the upgrade from the
  23 old udev rules file location.
  24
  25 =head1 FILES
  26
  27 =over 4
  28
  29 =item debian/I<package>.udev
  30
  31 Installed into lib/udev/rules.d/ in the package build directory.
  32
  33 =back
  34
  35 =head1 OPTIONS
  36
  37 =over 4
  38
  39 =item B<--name=>I<name>
  40
  41 When this parameter is used, dh_installudev looks for and
  42 installs files named debian/I<package>.I<name>.udev instead of the usual
  43 debian/I<package>.udev.
  44
  45 =item B<--priority=>I<priority>
  46
  47 Sets the priority string of the rules.d symlink. Default is 60.
  48
  49 =item B<-n>, B<--noscripts>
  50
  51 Do not modify postinst/postrm scripts.
  52
  53 =back
  54
  55 =head1 NOTES
  56
  57 Note that this command is not idempotent. L<dh_prep(1)> should be called
  58 between invocations of this command. Otherwise, it may cause multiple
  59 instances of the same text to be added to maintainer scripts.
  60
  61 =cut
  62
  63 init();
  64
  65 # The priority used to look like z60_;
  66 # we need to calculate that old value to handle
  67 # conffile moves correctly.
  68 my $old_priority=$dh{PRIORITY};
  69
  70 # In case a caller still uses the `z` prefix, remove it.
  71 if (defined $dh{PRIORITY}) {
  72         $dh{PRIORITY}=~s/^z//;
  73 }
  74
  75 if (! defined $dh{PRIORITY}) {
  76         $dh{PRIORITY}="60";
  77         $old_priority="z60";
  78 }
  79 if ($dh{PRIORITY}) {
  80         $dh{PRIORITY}.="-";
  81         $old_priority.="_";
  82 }
  83
  84 foreach my $package (@{$dh{DOPACKAGES}}) {
  85         my $tmp=tmpdir($package);
  86         my $rules_file=pkgfile($package,"udev");
  87         my $filename=basename($rules_file);
  88         if ($filename eq 'udev') {
  89                 $filename = "$package.udev";
  90         }
  91         $filename=~s/\.udev$/.rules/;
  92
  93         if ($rules_file) {
  94                 if (! -e "$tmp/lib/udev/rules.d") {
  95                         doit("install","-d","$tmp/lib/udev/rules.d");
  96                 }
  97                 my $rule="/lib/udev/rules.d/$dh{PRIORITY}$filename";
  98                 doit("install","-m","0644",$rules_file,$tmp.$rule);
  99                 if (! $dh{NOSCRIPTS}) {
 100                         # Remove old rule from /etc, unless it's modified,
 101                         # in which case we rename it to match the new
 102                         # file in /lib, so it will override.
 103                         my $old="/etc/udev/rules.d/$old_priority$filename";
 104                         $rule=~s/^\/lib/\/etc/;
 105                         autoscript($package,"preinst","preinst-moveconffile","s!#OLD#!$old!g;s!#NEW#!$rule!g;s!#PACKAGE#!$package!g");
 106                         autoscript($package,"postinst","postinst-moveconffile","s!#OLD#!$old!g;s!#NEW#!$rule!g");
 107                 }
 108         }
 109 }
 110
 111 =head1 SEE ALSO
 112
 113 L<debhelper(7)>
 114
 115 This program is a part of debhelper.
 116
 117 =head1 AUTHOR
 118
 119 Joey Hess <joeyh@debian.org>
 120
 121 =cut