tags 619873 +patch thank -- Hi, I'm attach a patch I've prepared for this bug.
-- "Elegance is not a dispensable luxury but a quality that decides between success and failure." -- Edsger W. Dijkstra Saludos /\/\ /\ >< `/
## Description: Support fedora's package listing ## Origin/Author: m...@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) {
signature.asc
Description: Digital signature
