????JFIF??x?x????'
Server IP : 79.136.114.73 / Your IP : 3.148.227.92 Web Server : Apache/2.4.7 (Ubuntu) PHP/5.5.9-1ubuntu4.29 OpenSSL/1.0.1f System : Linux b8009 3.13.0-170-generic #220-Ubuntu SMP Thu May 9 12:40:49 UTC 2019 x86_64 User : www-data ( 33) PHP Version : 5.5.9-1ubuntu4.29 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority, MySQL : ON | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/bin/ |
Upload File : |
#!/usr/bin/perl -w =head1 NAME dh_installudev - install udev rules files =cut use strict; use Debian::Debhelper::Dh_Lib; use File::Find; =head1 SYNOPSIS B<dh_installudev> [S<I<debhelper options>>] [B<-n>] [B<--name=>I<name>] [B<--priority=>I<priority>] =head1 DESCRIPTION B<dh_installudev> is a debhelper program that is responsible for installing B<udev> rules files. Code is added to the F<preinst> and F<postinst> to handle the upgrade from the old B<udev> rules file location. =head1 FILES =over 4 =item debian/I<package>.udev Installed into F<lib/udev/rules.d/> in the package build directory. =back =head1 OPTIONS =over 4 =item B<--name=>I<name> When this parameter is used, B<dh_installudev> looks for and installs files named debian/I<package>.I<name>.udev instead of the usual debian/I<package>.udev. =item B<--priority=>I<priority> Sets the priority the file. Default is 40. =item B<-n>, B<--noscripts> Do not modify F<preinst>/F<postinst> scripts. =back =head1 NOTES Note that this command is not idempotent. L<dh_prep(1)> should be called between invocations of this command. Otherwise, it may cause multiple instances of the same text to be added to maintainer scripts. =cut init(); # The priority used to look like z60_; # we need to calculate that old value to handle # conffile moves correctly. my $old_priority=$dh{PRIORITY}; # In case a caller still uses the `z` prefix, remove it. if (defined $dh{PRIORITY}) { $dh{PRIORITY}=~s/^z//; } if (! defined $dh{PRIORITY}) { $dh{PRIORITY}="40"; $old_priority="z60"; } if ($dh{PRIORITY}) { $dh{PRIORITY}.="-"; $old_priority.="_"; } # PROMISE: DH NOOP WITHOUT udev foreach my $package (@{$dh{DOPACKAGES}}) { my $tmp=tmpdir($package); my $rules_file=pkgfile($package,"udev"); my $filename=basename($rules_file); if ($filename eq 'udev') { $filename = "$package.udev"; } $filename=~s/\.udev$/.rules/; my $oldfilename=$filename; if (defined $dh{NAME}) { $filename="$dh{NAME}.rules"; } if ($rules_file) { if (! -e "$tmp/lib/udev/rules.d") { doit("install","-d","$tmp/lib/udev/rules.d"); } my $rule="/lib/udev/rules.d/$dh{PRIORITY}$filename"; doit("install","-m","0644",$rules_file,$tmp.$rule); if (! $dh{NOSCRIPTS}) { # Remove old rule from /etc, unless it's modified, # in which case we rename it to match the new # file in /lib, so it will override. my $old="/etc/udev/rules.d/$old_priority$oldfilename"; $rule=~s/^\/lib/\/etc/; autoscript($package,"preinst","preinst-moveconffile","s!#OLD#!$old!g;s!#NEW#!$rule!g;s!#PACKAGE#!$package!g"); autoscript($package,"postinst","postinst-moveconffile","s!#OLD#!$old!g;s!#NEW#!$rule!g"); } } } =head1 SEE ALSO L<debhelper(7)> This program is a part of debhelper. =head1 AUTHOR Joey Hess <joeyh@debian.org> =cut