root/nicotine-app/trunk/nicotine/reparent

#!/usr/bin/perl
use warnings;
use strict;

use Cwd                         qw(cwd);
use File::Basename      qw(dirname basename);
use File::Spec;

my $DEBUG = 0;
my $prefix = '/sw';
my $parent = "Resources";

sub do_cmd {
        my $cmd = shift;
        print "$cmd\n" if $DEBUG;
        system($cmd) == 0 or die "Command failed: $cmd\nError: $!\n";
}

sub resolve_link {
        my $source = shift;
        if (-l $source) {
                my $target = readlink($source);
                if ($target =~ m,^/,) {
                        return resolve_link($target);
                } else {
                        return resolve_link(File::Spec->catfile(dirname($source), $target));
                }
        } else {
                return File::Spec->rel2abs($source);
        }
}

my @pkgs = @ARGV;
my $pwd = cwd;
for my $pkg (@pkgs) {
        print "  reparenting $pkg\n";
#       open FILE, "dpkg -L \Q$pkg\E | xargs file |"
#               or die "Can't read package files: $!\n";
        open FILE, "dpkg -L $pkg |"
                or die "Can't read package files: $!\n";
        for my $file (<FILE>) {
                next unless $file =~ m,^$prefix/,;
                
#               my ($fname, $ftype) = ($file =~ /^([^:]+):(.*)/)
#                       or die "Can't understand 'file' output: $file\n";
                my $fname = $file; chomp $fname;
                next unless -f $fname;
                
                (my $dir = dirname($fname)) =~ s,^,$parent,;
                do_cmd("mkdir -p \Q$dir\E");
                do_cmd("/bin/cp -RP \Q$fname\E \Q$dir\E");
                
#               if ($ftype =~ /Mach-O/) {
#                       my $newfile = File::Spec->catfile($dir, basename($fname));
#                       open OTOOL, "otool -L \Q$newfile\E |"
#                               or die "Can't run otool: $!\n";
#                       my @libs = <OTOOL>;
#                       close OTOOL;
#                       
#                       for my $libline (@libs) {
#                               $libline =~ m,^\s+$prefix/(.*)\s\(comp, or next;
#                               my $lib = $1;
#                               (my $libdir = $lib) =~ s,^/,$parent,;
#                               my $plib = File::Spec->catfile($prefix, $lib);
#                               my $ilib = File::Spec->catfile($libdir, $lib);
#                               my $inst = File::Spec->catfile('@executable_path',
#                                       File::Spec->abs2rel($ilib, "$pwd/$parent$prefix/bin"));
#                               if (resolve_link($plib) eq $fname) {
#                                       do_cmd("install_name_tool -id \Q$inst\E \Q$newfile\E");
#                               } else {
#                                       do_cmd("install_name_tool -change \Q$plib\E \Q$inst\E " .
#                                               "\Q$newfile\E");
#                               }
#                       }
#               }
        }
        close FILE;
}