X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=dh_link;h=89414121ac8ed1aaf4feac3cdf83fc8bb55f1b61;hb=fb8f18f4a98669c3b85e1bd7920fbabfc00b886e;hp=8d4c32ad60eac332248b93c5c22dc5022da3ae4d;hpb=75275ded89f0b456e7e396008af153d26bb35626;p=debhelper.git diff --git a/dh_link b/dh_link index 8d4c32a..8941412 100755 --- a/dh_link +++ b/dh_link @@ -1,17 +1,132 @@ #!/usr/bin/perl -w -# -# Generate symlinks in debian packages, reading debian/links. The -# file contains pairs of files and symlinks. -BEGIN { push @INC, "debian", "/usr/lib/debhelper" } -use Dh_Lib; +=head1 NAME + +dh_link - create symlinks in package build directories + +=cut + +use strict; +use File::Find; +use Debian::Debhelper::Dh_Lib; + +=head1 SYNOPSIS + +B [S>] [B<-A>] [B<-X>I] [S ...>] + +=head1 DESCRIPTION + +B is a debhelper program that creates symlinks in package build +directories. + +B accepts a list of pairs of source and destination files. The source +files are the already existing files that will be symlinked from. The +destination files are the symlinks that will be created. There B be +an equal number of source and destination files specified. + +Be sure you B specify the full filename to both the source and +destination files (unlike you would do if you were using something like +L). + +B will generate symlinks that comply with Debian policy - absolute +when policy says they should be absolute, and relative links with as short +a path as possible. It will also create any subdirectories it needs to to put +the symlinks in. + +B also scans the package build tree for existing symlinks which do not +conform to Debian policy, and corrects them (v4 or later). + +=head1 FILES + +=over 4 + +=item debian/I.links + +Lists pairs of source and destination files to be symlinked. Each pair +should be put on its own line, with the source and destination separated by +whitespace. + +=back + +=head1 OPTIONS + +=over 4 + +=item B<-A>, B<--all> + +Create any links specified by command line parameters in ALL packages +acted on, not just the first. + +=item B<-X>I, B<--exclude=>I + +Exclude symlinks that contain I anywhere in their filename from +being corrected to comply with Debian policy. + +=item I ... + +Create a file named I as a link to a file named I. Do +this in the package build directory of the first package acted on. +(Or in all packages if B<-A> is specified.) + +=back + +=head1 EXAMPLES + + dh_link usr/share/man/man1/foo.1 usr/share/man/man1/bar.1 + +Make F be a symlink to F + + dh_link var/lib/foo usr/lib/foo \ + usr/share/man/man1/foo.1 usr/share/man/man1/bar.1 + +Make F be a link to F, and F be a symlink to +the F + +=cut + +# This expand_path expands all path "." and ".." components, but doesn't +# resolve symbolic links. +sub expand_path { + my $start = @_ ? shift : '.'; + my @pathname = split(m:/+:,$start); + + my $entry; + my @respath; + foreach $entry (@pathname) { + if ($entry eq '.' || $entry eq '') { + # Do nothing + } + elsif ($entry eq '..') { + if ($#respath == -1) { + # Do nothing + } + else { + pop @respath; + } + } + else { + push @respath, $entry; + } + } + + my $result; + foreach $entry (@respath) { + $result .= '/' . $entry; + } + if (! defined $result) { + $result="/"; # special case + } + return $result; +} + + init(); -foreach $PACKAGE (@{$dh{DOPACKAGES}}) { - $TMP=tmpdir($PACKAGE); - $file=pkgfile($PACKAGE,"links"); +foreach my $package (@{$dh{DOPACKAGES}}) { + my $tmp=tmpdir($package); + my $file=pkgfile($package,"links"); - undef @links; + my @links; if ($file) { @links=filearray($file); } @@ -22,7 +137,7 @@ foreach $PACKAGE (@{$dh{DOPACKAGES}}) { error("$file lists a link without a destination."); } - if (($PACKAGE eq $dh{FIRSTPACKAGE} || $dh{PARAMS_ALL}) && @ARGV) { + if (($package eq $dh{FIRSTPACKAGE} || $dh{PARAMS_ALL}) && @ARGV) { push @links, @ARGV; } @@ -31,14 +146,43 @@ foreach $PACKAGE (@{$dh{DOPACKAGES}}) { error("parameters list a link without a destination."); } - # Now I'd prefer to work with a hash. - %links=@links; - - foreach $src (keys %links) { - $dest=$links{$src}; + # v4 or later and only if there is a temp dir already + if (! compat(3) && -e $tmp) { + # Scan for existing links and add them to @links, so they + # are recreated policy conformant. + find( + sub { + return unless -l; + return if excludefile($_); + my $dir=$File::Find::dir; + $dir=~s/^\Q$tmp\E//; + my $target = readlink($_); + if ($target=~/^\//) { + push @links, $target; + } + else { + push @links, "$dir/$target"; + } + push @links, "$dir/$_"; + }, + $tmp); + } + + while (@links) { + my $dest=pop @links; + my $src=expand_path(pop @links); + + $src=~s:^/::; + $dest=~s:^/::; + + if ($src eq $dest) { + warning("skipping link from $src to self"); + next; + } + # Make sure the directory the link will be in exists. - $basedir=Dh_Lib::dirname("$TMP/$dest"); + my $basedir=dirname("$tmp/$dest"); if (! -e $basedir) { doit("install","-d",$basedir); } @@ -46,25 +190,47 @@ foreach $PACKAGE (@{$dh{DOPACKAGES}}) { # Policy says that if the link is all within one toplevel # directory, it should be relative. If it's between # top level directories, leave it absolute. - @src_dirs=split(m:/+:,$src); - @dest_dirs=split(m:/+:,$dest); - if ($src_dirs[0] eq $dest_dirs[0]) { + my @src_dirs=split(m:/+:,$src); + my @dest_dirs=split(m:/+:,$dest); + if (@src_dirs > 0 && $src_dirs[0] eq $dest_dirs[0]) { # Figure out how much of a path $src and $dest # share in common. - for ($x=0; $x<$#src_dirs && $src_dirs[$x] eq $dest_dirs[$x]; $x++) {} - + my $x; + for ($x=0; $x < @src_dirs && $src_dirs[$x] eq $dest_dirs[$x]; $x++) {} # Build up the new src. $src=""; for (1..$#dest_dirs - $x) { $src.="../"; } - # The + 1 is here to include the actual filename. - for (1..$#src_dirs - $x + 1) { + for ($x .. $#src_dirs) { $src.=$src_dirs[$_]."/"; } + if ($x > $#src_dirs && ! length $src) { + $src.="."; # special case + } $src=~s:/$::; - } - - doit("ln","-sf",$src,"$TMP/$dest"); + } + else { + # Make sure it's properly absolute. + $src="/$src"; + } + + if (-d "$tmp/$dest" && ! -l "$tmp/$dest") { + error("link destination $tmp/$dest is a directory"); + } + doit("rm", "-f", "$tmp/$dest"); + doit("ln","-sf", $src, "$tmp/$dest"); } } + +=head1 SEE ALSO + +L + +This program is a part of debhelper. + +=head1 AUTHOR + +Joey Hess + +=cut