Bug#585596: whohas: openSUSE searching broken

[Guillaume Delacour]

Package: whohas
Version: 0.24-1
Severity: normal

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA256

Hi,

It seems that openSUSE website has quite changed.
Please find attached a patch which adapt some regexp.

- -- System Information:
Debian Release: squeeze/sid
  APT prefers unstable
  APT policy: (500, 'unstable')
Architecture: amd64 (x86_64)

Kernel: Linux 2.6.32-26-generic (SMP w/4 CPU cores)
Locale: LANG=C, LC_CTYPE=C (charmap=ANSI_X3.4-1968)
Shell: /bin/sh linked to /bin/dash

Versions of packages whohas depends on:
ii  libwww-perl                   5.837-1    simple and consistent interface to
ii  libxml-simple-perl            2.18-3     Perl module for reading and writin
ii  perl                          5.10.1-16  Larry Wall's Practical Extraction 

whohas recommends no packages.

whohas suggests no packages.

- -- no debconf information

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.10 (GNU/Linux)

iQIcBAEBCAAGBQJM9uApAAoJEJmGUYuaqqCltE8P/j49kPjK7Vv07Ux63zbsnafl
kvTjFYfh4tfu1Vw7pOw3gPTcO0C6bxUT159AmrTMdvTzO6N+WN4UIay+LvH3SmGi
y/92kdZqc4bcftexIlPxLzRL2P5RHXONA271rA+QXG30++ueCvdwrm0zJfjqPMTK
S31gH1pzLytN0rBF18oOC6yRjqPKfv418ZAdwIVOUbsDWcIlL5zSg9ileCeAi0XP
0P5Ayw7S5o1tTs/NaL4wL5jgbtgCZW94EHQuDH//ToWjBF5B4Tyl6n8RftrO543e
RTlB9XntYLN8h7ddWkFqQ+PeAu07kgycRrj/4Jjy1wbMAkD+snoMWx6LlSf/NWZd
Smro1DgBIb/9U9mYNOn42kQLFiPuxceU5jriet3IDFWs8wPpDMoSY4lmJHntwhEo
RqE79A0BTd+mPjKDokfeOxF6MUMLrr92n71qv9QqAIHVAvpi8hkEY1SRoHzSqDRN
tTEmANGcZ+4nza7qgV5waa4VsLsAifjrgFg25CkQEur0ZxWjFUJT5GWzGR3pCGgo
ipSlO9WyUgSWtq9yK8M8lK53qBUlEEpLdc6LDBV6pT4TZnW0YzV1fEFZVld+NGcw
jBGwQSNofj2HA7JCmFiCvObSSw+FIH+5Qu1040MnAQAFypO0KQFO6Z1ryXz9kCsD
vhRUjYXT6ePh2CuDqbj6
=owcv
-----END PGP SIGNATURE-----

--- /usr/bin/whohas 2010-04-05 00:42:48.000000000 +0200 +++ /usr/bin/whohas.new 2010-12-02 00:51:39.179545841 +0100 @@ -52,7 +52,7 @@ my $ubuntu_current_release = "all" ; #my $opensuse_rel_string = "112" ; my $opensuse_major = "11" ; -my $opensuse_minor = "2" ; +my $opensuse_minor = "3" ; my $mandrivaVersion = "2010.0" ; my $openbsd_release = "4.6" ; my $slackware_version_for_lp_net = "13.0" ; @@ -1266,7 +1266,7 @@ my $release_string = $opensuse_major.'.'.$opensuse_minor; my $major = $opensuse_major; my $minor = $opensuse_minor; - my $opensusebase = "http://software.opensuse.org/search/search/"; + my $opensusebase = "http://software.opensuse.org/search"; my @names; my @repos; my @groups; @@ -1281,7 +1281,7 @@ if ($lines[$i] =~ /div class="search_o_title"/) { push @names, (split /<\/?h3>/, $lines[($i+2)])[1]; for (my $a = $i+1; $a < $i + 20; $a++) { - if ($lines[$a] =~ /

/) { my @temps = split /\"\>|\<\/a\>/, $lines[$a]; $temps[1] =~ s/\/openSUSE_$major\.$minor$//; $temps[1] =~ s/^openSUSE\:$major\.$minor\///; @@ -1292,7 +1292,7 @@ } } for (my $a = $i + 10; $a < $i + 50; $a++) { - if ($lines[$a] =~ /a style="margin-right: 2em" href/) { + if ($lines[$a] =~ //) { my @parts = split /\"\>|\<\/a\>/, $lines[$a]; my @segments = split /\-/, $parts[1]; push @versions, $segments[(@segments-2)]; @@ -1304,7 +1304,7 @@ push @dates, ''; push @groups, ''; } - if ($lines[$i] =~ /type:'post', url:'\/search\/search.*'\}\); return false;">$continuity<\/a>/) { + if ($lines[$i] =~ /type:'post', url:'\/search.*'\}\); return false;">$continuity<\/a>/) { push @lines, split /\n/, &fetchdoc($opensusebase."?q=".$_[0]."&baseproject=openSUSE:".$release_string.'&p='.$continuity); $continuity++; }