File whohas-opensuse-fix.patch of Package whohas

Overview Repositories Revisions Requests Users Attributes Meta

File whohas-opensuse-fix.patch of Package whohas (Revision 45241079479fc44c45e60a5605e3606b)

Currently displaying revision 45241079479fc44c45e60a5605e3606b , Show latest

Index: whohas-0.24/program/whohas
===================================================================
--- whohas-0.24.orig/program/whohas
+++ whohas-0.24/program/whohas
@@ -52,7 +52,7 @@ my $fedora_release		 =  12			;
 my $ubuntu_current_release	 = "karmic"		;
 #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"		;
@@ -1220,7 +1220,7 @@ sub opensuse {
 	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;
@@ -1235,7 +1235,7 @@ sub opensuse {
 		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] =~ /class="blue_over"/) {
 					my @temps = split /\"\>|\<\/a\>/, $lines[$a];
 					$temps[1] =~ s/\/openSUSE_$major\.$minor$//;
 					$temps[1] =~ s/^openSUSE\:$major\.$minor\///;
@@ -1246,7 +1246,7 @@ sub opensuse {
 				}
 			}
 			for (my $a = $i + 10; $a < $i + 50; $a++) {
-				if ($lines[$a] =~ /a style="margin-right: 2em"  href/) {
+				if ($lines[$a] =~ /a style="margin-right: 1.2em"/) {
 					my @parts = split /\"\>|\<\/a\>/, $lines[$a];
 					my @segments = split /\-/, $parts[1];
 					push @versions, $segments[(@segments-2)];

Places

File whohas-opensuse-fix.patch of Package whohas (Revision 45241079479fc44c45e60a5605e3606b)

Places