File fedora-search-619873 of Package whohas

## Description: Support fedora's package listing
## Origin/Author: maxy@debian.org
## Bug: http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=619873
Index: whohas-0.24/program/whohas
===================================================================
--- whohas-0.24.orig/program/whohas	2011-11-29 16:22:29.000000000 -0300
+++ whohas-0.24/program/whohas	2011-11-29 16:25:47.192778437 -0300
@@ -290,27 +290,26 @@
 			for (my $a = 0; $a < @fed_urls; $a++) {
 				my @lines = split /\n/, &fetchdoc($baseurl.$fed_urls[0]);
 				for (my $li = 0; $li < @lines; $li++) {
-					if ($lines[$li] =~ /\/icons\/unknown\.gif/) {
-						my @parts = split /\<|\>|\"/, $lines[$li];
-						my $prev_release = $fedora_release - 1;
-						$parts[22] =~ s/\.fc($fedora_release|$prev_release).+//;
-						my ($name,$version) = &combos($parts[22]);
-						push @dates, &month_to_digits($parts[32]);
-						$parts[38] =~ s/^\s+//;
-						push @sizes, $parts[38];
+					if ($lines[$li] =~ /\.rpm<\/a>/) {
+						my $line = trim($lines[$li]);
+						my @parts = split / +|<|>|"/, $line, 10;
+						$parts[5] =~ s/\.fc[0-9]+.+$//;
+						my ($name,$version) = &combos($parts[5]);
+						push @dates, &month_to_digits($parts[7])." ".$parts[8];
+						push @sizes, $parts[9];
 						push @names, $name;
 						push @versions, $version;
 						push @repos, "";
-						push @urls, "";
+						push @urls, "$baseurl$fed_urls[0]/$parts[3]";
 					}
 				}
 			}
+			open OUT, ">$file";
+			for (my $i = 0; $i < @urls;$i++) {
+				print OUT "$names[$i]\t$versions[$i]\t$sizes[$i]\t$dates[$i]\n";
+			}
+			close OUT;
 		}
-		open OUT, ">$file";
-		for (my $i = 0; $i < @urls;$i++) {
-			print OUT "$names[$i]\t$versions[$i]\t$sizes[$i]\t$dates[$i]\n";
-		}
-		close OUT;
 	}
 	for (my $i = 0; $i < @names; $i++) {
 		if ($names[$i] =~ /$searchy/i) {