[BACK]Return to find_depends CVS log [TXT][DIR] Up to [local] / openbsd / fill_chroot

Diff for /openbsd/fill_chroot/find_depends between version 1.1 and 1.3

version 1.1, 2005/12/21 18:04:06 version 1.3, 2005/12/21 18:22:32
Line 1 
Line 1 
 #!/usr/bin/perl  #!/usr/bin/perl
 # $RedRiver$  # $RedRiver: find_depends,v 1.2 2005/12/21 18:16:03 andrew Exp $
 use strict;  use strict;
 use warnings;  use warnings;
   
 # find www/ -name *.so* | xargs find_depends | sort -u | xargs -I {} cp {} /home/andrew/www{}  # find /home/andrew/www/ -name *.so* | xargs find_depends \
   #      | sort -u | xargs -I {} cp {} /home/andrew/www{}
   
   my @Files;
   my %opts;
   
 #use OpenBSD::PackageInfo;  foreach (@ARGV) {
 #use OpenBSD::PackingList;    if (/^-(\w+)$/) {
 #use OpenBSD::SharedLibs;      $opts{$1} = 1;
 #use Data::Dumper;    } else {
       push @Files, $_;
     }
   }
   
 #my $dir = '/var/db/pkg';  die unless @Files;
 #my $pkg = 'p5-DBD-mysql-3.0002';  
 #my $pkg = 'p5-DBD-mysql';  
   
   my %libs;
   
   foreach my $file (@Files) {
     my $l = find_libs($file);
   
 #my $file = shift || '/usr/local/libdata/perl5/site_perl/i386-openbsd/auto/DBD/mysql/mysql.so';    foreach (keys %{ $l }) {
       $libs{$_} = $l->{$_};
   
 die unless @ARGV;  
   
 my %libs;  
 foreach my $file (@ARGV) {  
   my $libs = find_libs($file);  
   #print Dumper $libs;  
   foreach (keys %{ $libs }) {  
     $libs{ $_ } = $libs->{$_};  
   }    }
 }  }
   
Line 37 
Line 35 
   
 exit;  exit;
   
 #OpenBSD::SharedLibs::add_system_libs('/');  
   
 #print installed_packages();  
 #print installed_name($pkg);  
 #print info_names();  
 #exit;  
   
 #my $plist = OpenBSD::PackingList->from_installation($pkg) || die $!;  
   
 #print Dumper $plist->{wantlib};  
   
 #print Dumper $OpenBSD::SharedLibs::registered_libs;  
   
 #foreach (@{ $plist->{wantlib} }) {  
 #  print Dumper $_->{name}, find_library($_->{name});  
 #}  
   
 #sub find_library  
 #{  
 #   my $spec = shift;  
 #   my @r;  
 #   OpenBSD::SharedLibs::add_system_libs('/');  
 #  
 #   my $lib = '/usr';  
 #   @r = OpenBSD::SharedLibs::lookup_libspec('/usr', $spec);  
 #   unless (@r) {  
 #               $lib = '/usr/X11R6';  
 #      @r = OpenBSD::SharedLibs::lookup_libspec('/usr/X11R6', $spec);  
 #   }  
 #   unless (@r) {  
 #      for my $pkg (installed_packages()) {  
 #          OpenBSD::SharedLibs::add_package_libs($pkg, 1);  
 #      }  
 #      $lib = '/usr/local';  
 #      @r = OpenBSD::SharedLibs::lookup_libspec('/usr/local', $spec);  
 #   }  
 #   return $lib, @r;  
 #}  
   
 sub find_libs  sub find_libs
 {  {
   my $file = shift;    my $file = shift;
   my $ld   = shift || get_ldconfig();    my $ld   = shift || get_ldconfig();
   my $locs = shift || {};    my $locs = shift || {};
   
   print STDERR "Finding libs for '$file'\n";    print STDERR "Finding libs for '$file'\n" unless $opts{q};
   
   my @libs = search_file($file);    my @libs = search_file($file);
   foreach (@libs) {    foreach (@libs) {
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>