File opensuse-searchpath-585596.patch of Package whohas

Overview Repositories Revisions Requests Users Attributes Meta

File opensuse-searchpath-585596.patch of Package whohas

--- program/whohas.orig	2011-11-27 23:06:44.000000000 +0200
+++ program/whohas	2011-12-04 20:58:29.272522767 +0200
@@ -1215,7 +1215,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\///;
@@ -1226,7 +1226,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)];
@@ -1238,7 +1238,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++;
 		}

Places

File opensuse-searchpath-585596.patch of Package whohas

Places