package whohas tag 516071 +patch thanks On Thu, Feb 19, 2009 at 04:13:09PM +0900, Paul Wise wrote: > Please switch the gentoo links to packages.gentoo.org. If > packages.gentoo.org doesn't have search, please strip the package name > from the gentoo-portage.com URL and construct the URL for it at > packages.gentoo.org.
Paul, Can you please apply the attached patch and check that it is what you expected: packages.gentoo.org does not provide a search tool AFAICS, so it is simply a rewrite of the URL. I'm also sending it upstream to make sure I haven't missed anything. Thanks -- Jonathan Wiltshire PGP/GPG: 0xDB800B52 / 4216 F01F DCA9 21AC F3D3 A903 CA6B EA3E DB80 0B52
#! /bin/sh /usr/share/dpatch/dpatch-run
## 35-gentoo-result-url-516071.dpatch by Jonathan Wiltshire
<deb...@jwiltshire.org.uk>
##
## All lines beginning with `## DP:' are a description of the patch.
## DP: Return a more official link to the gentoo package, where more useful
## DP: information can be found
@DPATCH@
diff -urNad whohas-0.23~/program/whohas whohas-0.23/program/whohas
--- whohas-0.23~/program/whohas 2009-03-10 19:28:15.000000000 +0000
+++ whohas-0.23/program/whohas 2009-03-10 19:28:47.000000000 +0000
@@ -730,6 +730,7 @@
sub gentoo {
my $gentoobase = "http://gentoo-portage.com";;
+ my $gentoobaseofficial = "http://packages.gentoo.org/package";;
my $distroname = "Gentoo";
my @names;
my @versions;
@@ -751,6 +752,7 @@
my @dosparts = split /\//,
$parts[1];
$dosparts[1] =~ / +$/;
my $tempurl =
$gentoobase."/".$dosparts[0]."/".$dosparts[1];
+ my $officialurl =
$gentoobaseofficial."/".$dosparts[0]."/".$dosparts[1];
my @newlines = split /\n/,
&fetchdoc($tempurl);
for (my $li = 0; $li <
@newlines; $li++) {
if ($newlines[$li] =~
/\<li class\=\"[a-z]+ebuildrow\"/) {
@@ -763,7 +765,7 @@
}
push @names,
$dosparts[1];
push @groups,
$dosparts[0];
- push @urls,
$tempurl;
+ push @urls,
$officialurl;
push @versions,
$vernum;
push @repos, "";
push @sizes, "";
signature.asc
Description: Digital signature
