X-Git-Url: http://git.rohieb.name/openwrt.git/blobdiff_plain/f6e91c760feea53aa3f59c7055cff4e5fd6bee6f..f6f2b11ed3fb0ec19ad19905fd79b4f856e8cd23:/scripts/feeds diff --git a/scripts/feeds b/scripts/feeds index 3c6c05064..78e65ad1d 100755 --- a/scripts/feeds +++ b/scripts/feeds @@ -83,7 +83,7 @@ sub update_link($$) { my $name = shift; my $src = abs_path(shift); - system("ln -sf $src ./feeds/$name"); + system("rm -f ./feeds/$name; ln -s $src ./feeds/$name"); return 0; } @@ -104,9 +104,15 @@ sub update_git($$) { sub get_feed($) { my $feed = shift; + my $file = "./feeds/$feed.index"; clear_packages(); - parse_package_metadata("./feeds/$feed.index") or return; + + -f $file or do { + print "Ignoring feed '$feed' - index missing\n"; + return; + }; + parse_package_metadata($file) or return; return { %package }; } @@ -238,15 +244,17 @@ sub install_package { $feed = lookup_package($feed, $name); $feed or do { $installed{$name} and return 0; - warn "WARNING: No feed for package '$name' found.\n"; - return 1; + # TODO: check if it's already installed within ./package directory + warn "WARNING: No feed for package '$name' found, maybe it's already part of the standard packages?\n"; + return 0; }; my $pkg = $feed{$feed->[1]}->{$name} or return 1; $pkg->{name} or do { $installed{$name} and return 0; + # TODO: check if this is an alias package, maybe it's known by another name warn "WARNING: Package '$name' is not available in feed $feed->[1].\n"; - return 1; + return 0; }; my $src = $pkg->{src}; my $type = $feed->[0]; @@ -256,13 +264,6 @@ sub install_package { # newly installed packages set the source package $installed{$src} and return 0; - # install all dependencies - foreach my $dep (@{$pkg->{depends}}) { - next if $dep =~ /@/; - $dep =~ s/^\+//; - install_package($feed, $dep) == 0 or $ret = 1; - } - # check previously installed packages $installed{$name} and return 0; $installed{$src} = 1; @@ -278,6 +279,13 @@ sub install_package { return 1; }; + # install all dependencies + foreach my $dep (@{$pkg->{depends}}, @{$pkg->{builddepends}}) { + next if $dep =~ /@/; + $dep =~ s/^\+//; + install_package($feed, $dep) == 0 or $ret = 1; + } + return $ret; } @@ -327,8 +335,6 @@ sub install { 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"; } } }