File gentoo-result-url-516071.patch of Package whohas

Overview Repositories Revisions Requests Users Attributes Meta

File gentoo-result-url-516071.patch of Package whohas (Revision 0c5bcf5d7ef198b5d6527dfc0da2cef9)

Currently displaying revision 0c5bcf5d7ef198b5d6527dfc0da2cef9 , Show latest

#! /bin/sh /usr/share/dpatch/dpatch-run
## 35-gentoo-result-url-516071.dpatch by Jonathan Wiltshire <debian@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@
--- a/program/whohas
+++ b/program/whohas
@@ -712,6 +712,7 @@ sub cygwin {
 
 sub gentoo {
 	my $gentoobase = "http://gentoo-portage.com";
+	my $gentoobaseofficial = "http://packages.gentoo.org/package";
 	my $distroname = "Gentoo";
 	my @names;
 	my @versions;
@@ -733,6 +734,7 @@ sub gentoo {
 						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\"/) {
@@ -745,7 +747,7 @@ sub gentoo {
 								}
 								push @names, $dosparts[1];
 								push @groups, $dosparts[0];
-								push @urls, $tempurl;
+								push @urls, $officialurl;
 								push @versions, $vernum;
 								push @repos, "";
 								push @sizes, "";

Places

File gentoo-result-url-516071.patch of Package whohas (Revision 0c5bcf5d7ef198b5d6527dfc0da2cef9)

Places