--- WWW-SourceForge-0.09-patched/lib/WWW/SourceForge/Project.pm	2005-11-16 11:44:52.000000000 -0800
+++ WWW-SourceForge-0.09/lib/WWW/SourceForge/Project.pm	2005-10-06 20:07:01.000000000 -0700
@@ -47,34 +47,18 @@
     my $proj;
     my $wa  = WWW::Mechanize->new( autocheck => 1);
     $wa->get($url);
-    my $content = $wa->content or die "Could not retrieve content from '$url'\n";
+    my $content = $wa->content;
 
     # Wrong project unixname ?
     if($content =~ m{<H2><font color="#FF3333">Invalid Project</font></H2>}i) {
-        warn "Invalid project '$pname'\n";
-        return undef;
-    } elsif ($content =~ m{<H2 class="error">Invalid Project</H2>}i) {
-        warn "Invalid project '$pname'\n";
-        return undef;
+        return;
     }
 
-
-
     # Project description
-    my ($desc) = $content =~ m{<div class="tbox">
-                <h3>About .+?</h3> 
-            </div>  
-            <b class="tbtm"><b class="t2 tbg"></b><b class="t1 tbg"></b></b> 
-        </div>  
-                        <p>     
-                            (.+?)
-            
-                </p>}is;
-
-    # TODO
-    # my ($meta) = $content =~ m{}s;
-
-    if (! $desc) { warn $content; }
+    my ($desc,$meta) = $content =~ m{<HR SIZE="1" NoShade><BR>
+[\s\n]*<TABLE WIDTH="100%" BORDER="0">
+[\s\n]*<TR><TD WIDTH="99%" VALIGN="top">
+[\s\n]*<p>(.+?)<UL>(.+?)</UL>}s;
 
     die "Could not recognize project page format - has SF changed its layout?\n"
         unless $desc;
@@ -99,20 +83,11 @@
     }
 
     # Parse Track Numbers
-#    @$proj{'Homepage'} = $content =~ m{<!-- end sub section title--><A href="(.+?)">&nbsp;Project Home Page</A>}s;
-
-    @$proj{'oBugs','nBugs'} = $content =~ m{Bugs</a>
-                        <span>
-                            : \(([\d,]+?) open / ([\d,]+?) total\)}is;
-    @$proj{'oSupports','nSupports'} = $content =~ m{Support Requests</a>
-                        <span>
-                            : \(([\d,]+?) open / ([\d,]+?) total\)};
-    @$proj{'oPatches','nPatches'} = $content =~ m{Patches</a>
-                        <span>
-                            : \(([\d,]+?) open / ([\d,]+?) total\)};
-    @$proj{'oFeatures','nFeatures'} = $content =~ m{Feature Requests</a>
-                        <span>
-                            : \(([\d,]+?) open / ([\d,]+?) total\)};
+    @$proj{'Homepage'} = $content =~ m{<!-- end sub section title--><A href="(.+?)">&nbsp;Project Home Page</A>}s;
+    @$proj{'oBugs','nBugs'} = $content =~ m{Bugs</A>\s+\( <B>(\d+?) open / (\d+?) total</B> \)};
+    @$proj{'oSupports','nSupports'} = $content =~ m{Requests</A>\s+\( <B>(\d+?) open / (\d+?) total</B> \)<BR>};
+    @$proj{'oPatches','nPatches'} = $content =~ m{Patches</A>\s+\( <B>(\d+?) open / (\d+?) total</B> \)<BR>};
+    @$proj{'oFeatures','nFeatures'} = $content =~ m{Feature Requests</A>\s+\( <B>(\d+) open / (\d+) total</B> \)};
 
     # Parse Admin
     my @admin;