diff options
author | Felix Fietkau <nbd@openwrt.org> | 2008-09-27 22:57:58 +0000 |
---|---|---|
committer | Felix Fietkau <nbd@openwrt.org> | 2008-09-27 22:57:58 +0000 |
commit | 6907bedd848760660e633fc725c41a045b7fd06e (patch) | |
tree | da4dd467d7dafc52cb0abb8f24b1c90cc5f371f5 | |
parent | 9592e8e914177caa4289c66752fcb4bbe2d73b52 (diff) | |
download | upstream-6907bedd848760660e633fc725c41a045b7fd06e.tar.gz upstream-6907bedd848760660e633fc725c41a045b7fd06e.tar.bz2 upstream-6907bedd848760660e633fc725c41a045b7fd06e.zip |
scripts/feeds: allow multiple alternative urls for a single feed. this will be useful for maintaining release branch forks of /packages
git-svn-id: svn://svn.openwrt.org/openwrt/trunk@12746 3c298f89-4303-0410-b956-a3cf2f4a3e73
-rwxr-xr-x | scripts/feeds | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/scripts/feeds b/scripts/feeds index 099468a8f7..ab765b1ea3 100755 --- a/scripts/feeds +++ b/scripts/feeds @@ -31,18 +31,19 @@ sub parse_config() { s/#.+$//; next unless /\S/; my @line = split /\s+/, $_, 3; + my @src; $line++; my $valid = 1; $line[0] =~ /^src-\w+$/ or $valid = 0; $line[1] =~ /^\w+$/ or $valid = 0; - $line[2] =~ /\s/ and $valid = 0; + @src = split /\s+/, $line[2]; $valid or die "Syntax error in feeds.list, line: $line\n"; $name{$line[1]} and die "Duplicate feed name '$line[1]', line: $line\n"; $name{$line[1]} = 1; - push @feeds, [@line]; + push @feeds, [$line[0], $line[1], \@src]; } close FEEDS; } @@ -192,7 +193,7 @@ sub list { } if ($opts{s}) { foreach my $feed (@feeds) { - printf "\%-32s\tURL: %s\n", $feed->[1], $feed->[2]; + printf "\%-32s\tURL: %s\n", $feed->[1], join(", ", @{$feed->[2]}); } return 0; } @@ -419,8 +420,14 @@ sub update_feed($$$$) return 1; }; $perform_update and do { - warn "Updating feed '$name' from '$src' ...\n"; - &{$update_method{$type}}($name, $src) == 0 or do { + my $failed = 1; + foreach my $feedsrc (@$src) { + warn "Updating feed '$name' from '$feedsrc' ...\n"; + next unless &{$update_method{$type}}($name, $feedsrc) == 0; + $failed = 0; + last; + } + $failed and do { warn "failed.\n"; return 1; }; |