X-Git-Url: http://git.openwrt.org/?p=openwrt%2Fopenwrt.git;a=blobdiff_plain;f=scripts%2Ffeeds;h=4d3211727b335d92717f95a096d24666a2c71cbf;hp=d62e8e79dd487d8733329a7c5689510e6ff56e6b;hb=e01479aca01f8036fa4934ccfe8fb97f0d04165d;hpb=f8dfc5757363cfcfda561ecde2ee75d9a0e5d16f diff --git a/scripts/feeds b/scripts/feeds index d62e8e79dd..4d3211727b 100755 --- a/scripts/feeds +++ b/scripts/feeds @@ -6,6 +6,7 @@ use lib "$FindBin::Bin"; use metadata; use warnings; use strict; +use Cwd 'abs_path'; chdir "$FindBin::Bin/.."; $ENV{TOPDIR}=getcwd(); @@ -55,6 +56,56 @@ sub update_svn($$) { return 0; } +sub update_cpy($$) { + my $name = shift; + my $src = shift; + + system("cp -Rf $src ./feeds/$name"); + -d "./feeds/$name.tmp" or mkdir "./feeds/$name.tmp" or return 1; + -d "./feeds/$name.tmp/info" or mkdir "./feeds/$name.tmp/info" or return 1; + + system("make -s prepare-mk TMP_DIR=\"$ENV{TOPDIR}/feeds/$name.tmp\""); + system("make -s -f include/scan.mk IS_TTY=1 SCAN_TARGET=\"packageinfo\" SCAN_DIR=\"feeds/$name\" SCAN_NAME=\"package\" SCAN_DEPS=\"$ENV{TOPDIR}/include/package*.mk\" SCAN_DEPTH=4 SCAN_EXTRA=\"\" TMP_DIR=\"$ENV{TOPDIR}/feeds/$name.tmp\""); + system("ln -sf $name.tmp/.packageinfo ./feeds/$name.index"); + + return 0; +} + +sub update_link($$) { + my $name = shift; + my $src = abs_path(shift); + + system("ln -sf $src ./feeds/$name"); + -d "./feeds/$name.tmp" or mkdir "./feeds/$name.tmp" or return 1; + -d "./feeds/$name.tmp/info" or mkdir "./feeds/$name.tmp/info" or return 1; + + system("make -s prepare-mk TMP_DIR=\"$ENV{TOPDIR}/feeds/$name.tmp\""); + system("make -s -f include/scan.mk IS_TTY=1 SCAN_TARGET=\"packageinfo\" SCAN_DIR=\"feeds/$name\" SCAN_NAME=\"package\" SCAN_DEPS=\"$ENV{TOPDIR}/include/package*.mk\" SCAN_DEPTH=4 SCAN_EXTRA=\"\" TMP_DIR=\"$ENV{TOPDIR}/feeds/$name.tmp\""); + system("ln -sf $name.tmp/.packageinfo ./feeds/$name.index"); + + return 0; +} + +sub update_git($$) { + my $name = shift; + my $src = shift; + + if ( ! -d "./feeds/$name" ) { + system("git clone $src ./feeds/$name") == 0 or return 1; + } else { + system("GIT_DIR=./feeds/$name/.git git pull") == 0 or return 1; + } + + -d "./feeds/$name.tmp" or mkdir "./feeds/$name.tmp" or return 1; + -d "./feeds/$name.tmp/info" or mkdir "./feeds/$name.tmp/info" or return 1; + + system("make -s prepare-mk TMP_DIR=\"$ENV{TOPDIR}/feeds/$name.tmp\""); + system("make -s -f include/scan.mk IS_TTY=1 SCAN_TARGET=\"packageinfo\" SCAN_DIR=\"feeds/$name\" SCAN_NAME=\"package\" SCAN_DEPS=\"$ENV{TOPDIR}/include/package*.mk\" SCAN_DEPTH=4 SCAN_EXTRA=\"\" TMP_DIR=\"$ENV{TOPDIR}/feeds/$name.tmp\""); + system("ln -sf $name.tmp/.packageinfo ./feeds/$name.index"); + + return 0; +} + sub get_feed($) { my $feed = shift; @@ -74,7 +125,7 @@ sub search_feed { my $feed = shift; my @substr = @_; my $display; - + return unless @substr > 0; get_feed($feed); foreach my $name (sort { lc($a) cmp lc($b) } keys %package) { @@ -85,7 +136,7 @@ sub search_feed { foreach my $substr (@substr) { my $match; foreach my $key (qw(name title description)) { - $substr and $pkg->{$key} =~ m/$substr/i and $match = 1; + $pkg->{$key} and $substr and $pkg->{$key} =~ m/$substr/i and $match = 1; } $match or undef $pkgmatch; }; @@ -110,21 +161,30 @@ sub search { } } -sub install_svn() { +sub install_generic() { my $feed = shift; my $pkg = shift; my $path = $pkg->{makefile}; - $path =~ s/\/Makefile$//; + + if($path) { + + $path =~ s/\/Makefile$//; - -d "./package/feeds" or mkdir "./package/feeds"; - -d "./package/feeds/$feed->[1]" or mkdir "./package/feeds/$feed->[1]"; - system("ln -sf ../../../$path ./package/feeds/$feed->[1]/"); + -d "./package/feeds" or mkdir "./package/feeds"; + -d "./package/feeds/$feed->[1]" or mkdir "./package/feeds/$feed->[1]"; + system("ln -sf ../../../$path ./package/feeds/$feed->[1]/"); + } else { + warn "Package is not valid\n"; + return 1; + } return 0; } my %install_method = ( - 'src-svn' => \&install_svn + 'src-svn' => \&install_generic, + 'src-cpy' => \&install_generic, + 'src-link' => \&install_generic ); my %feed; @@ -149,11 +209,16 @@ sub install_package { $feed = lookup_package($feed, $name); $feed or do { $installed{$name} and return 0; - warn "WARNING: Package '$name' is not available.\n"; + warn "WARNING: No feed for package '$name' found.\n"; return 1; }; my $pkg = $feed{$feed->[1]}->{$name} or return 1; + $pkg->{name} or do { + $installed{$name} and return 0; + warn "WARNING: Package '$name' is not available in feed $feed->[1].\n"; + return 1; + }; my $src = $pkg->{src}; my $type = $feed->[0]; $src or $src = $name; @@ -194,7 +259,7 @@ sub refresh_config { # workaround for timestamp check system("rm -f tmp/.packageinfo"); - # refresh the config + # refresh the config system("make oldconfig CONFDEFAULT=\"$default\" Config.in >/dev/null 2>/dev/null"); } @@ -203,8 +268,8 @@ sub install { my %opts; my $feed; my $ret = 0; - - getopt('p:d:', \%opts); + + getopts('ap:d:', \%opts); get_installed(); foreach my $f (@feeds) { @@ -215,12 +280,29 @@ sub install { $opts{p} and $f->[1] eq $opts{p} and $feed = $f; } - while ($name = shift @ARGV) { - install_package($feed, $name) == 0 or $ret = 1; + if($opts{a}) { + foreach my $f (@feeds) { + if (!defined($opts{p}) or $opts{p} eq $f->[1]) { + printf "Installing all packages from feed %s.\n", $f->[1]; + get_feed($f->[1]); + foreach my $name (sort { lc($a) cmp lc($b) } keys %package) { + my $p = $package{$name}; + if( $p->{name} ) { + install_package($feed, $p->{name}) == 0 or $ret = 1; + } else { + warn "WARNING: Package '$name' is not available\n"; + } + } + } + } + } else { + while ($name = shift @ARGV) { + install_package($feed, $name) == 0 or $ret = 1; + } } # workaround for timestamp check - + # set the defaults if ($opts{d} and $opts{d} =~ /^[ymn]$/) { refresh_config($opts{d}); @@ -261,6 +343,7 @@ Usage: $0 [options] Commands: install [options] : Install a package Options: + -a installs all packages from all feeds or from the specified feed -p : Prefer this feed when installing packages -d : Set default for newly installed packages @@ -279,7 +362,10 @@ EOF } my %update_method = ( - 'src-svn' => \&update_svn + 'src-svn' => \&update_svn, + 'src-cpy' => \&update_cpy, + 'src-link' => \&update_link, + 'src-git' => \&update_git ); my %commands = (