Package: whohas
Version: 0.21-2
Severity: normal
Tags: patch
No matter what search term is requested, the results from Ubuntu
show packages with "search" in the name.
Seems to be an outdated search URL in the package; and on the
server a redirect that sends the client to the right page, but
with the search terms replaced by the literal string "search".
st...@tsunami:~$ whohas supercowpowers
Ubuntu bzr-search 1.6.0~bzr5
http://packages.ubuntu.com/jaunty/bzr-search
Ubuntu disksearch 1.1.3-0ubu
http://packages.ubuntu.com/gutsy/disksearch
Ubuntu hp-search-mac 0.1.0
http://packages.ubuntu.com/dapper/hp-search-mac
Ubuntu konqueror-plugin-searchba 4:4.1.2-0u
http://packages.ubuntu.com/intrepid/konqueror-plugin-searchbar
... more Ubuntu packages with "search" in the name.
Interesting bits of network trace:
GET
/cgi-bin/search_packages.pl?keywords=supercowpowers&searchon=names&subword=1&version=all&release=all
HTTP/1.1
Host: packages.ubuntu.com
HTTP/1.1 302 Found
Location: http://packages.ubuntu.com/search?keywords=search
-- System Information:
Debian Release: 5.0
APT prefers unstable
APT policy: (990, 'unstable')
Architecture: amd64 (x86_64)
Kernel: Linux 2.6.26 (SMP w/2 CPU cores; PREEMPT)
Locale: LANG=en_GB.UTF-8, LC_CTYPE=en_GB.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/bash
Versions of packages whohas depends on:
ii libwww-perl 5.820-1 WWW client/server library for Perl
ii perl 5.10.0-18 Larry Wall's Practical Extraction
whohas recommends no packages.
whohas suggests no packages.
-- no debconf information
commit 41abefb19f3c476b5b3721a1417bfe4362290443
Author: Steve Cotton <st...@s.cotton.clara.co.uk>
Date: Sun Dec 28 05:40:11 2008 +0000
Fix Ubuntu search query
diff --git a/whohas b/whohas
index c8e999a..30fb79d 100755
--- a/whohas
+++ b/whohas
@@ -268,7 +268,7 @@ sub month_to_digits {
sub ubuntu {
my $base = "http://packages.ubuntu.com";;
- my $query =
$base."/cgi-bin/search_packages.pl?keywords=$_[0]&searchon=names&subword=1&version=all&release=all";
+ my $query =
$base."/search?keywords=$_[0]&searchon=names&subword=1&version=all&release=all";
my @lines = split /\n/, &fetchdoc($query);
my @names;
my @versions;
