Description: update search URL for openSUSE repositories
Bug-Debian: http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=585596
Author: Guillaume Delacour <gui@iroqwa.org>
Reviewed-by: Jonathan Wiltshire <jmw@debian.org>
Last-Update: 2010-12-05

--- whohas-0.24.orig/program/whohas	2010-04-05 00:42:48.000000000 +0200
+++ whohas-0.24/program/whohas		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] =~ /<h4><a class="blue_over" href=/) {
+				if ($lines[$a] =~ /<a href=".*" class="blue_over">/) {
 					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] =~ /<a href=".*" style="margin-right: 1\.2em">/) {
 					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++;
 		}
