r8942 - in /scripts/qa: qareport.cgi versioncheck.pl

Wed Nov 7 08:06:26 UTC 2007

Author: dmn
Date: Wed Nov  7 08:06:26 2007
New Revision: 8942

URL: http://svn.debian.org/wsvn/?sc=1&rev=8942
Log:
Show unreleased revision if any

Modified:
    scripts/qa/qareport.cgi
    scripts/qa/versioncheck.pl

Modified: scripts/qa/qareport.cgi
URL: http://svn.debian.org/wsvn/scripts/qa/qareport.cgi?rev=8942&op=diff
==============================================================================

--- scripts/qa/qareport.cgi (original)
+++ scripts/qa/qareport.cgi Wed Nov  7 08:06:26 2007
@@ -129,19 +129,23 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
-[% BLOCK bts_link %]
+
+ [% BLOCK bts_link %]
 [% IF data.bts.$pkg.size %]<a style="float:right; margin-left: 2pt;" href="http://bugs.debian.org/$pkg">BTS</a>[% END #IF bugs %]
 [% END #BLOCK bts_link %]
+
 [% BLOCK package %]
     [% SET arch_ver = data.archive.$pkg.most_recent %]
     [% SET svn_ver = data.svn.$pkg.version %]
+    [% SET svn_un_ver = data.svn.$pkg.un_version %]
     <tr>
         <td>$pkg</td>
-        <td><a href="http://svn.debian.org/wsvn/pkg-perl/trunk/$pkg/debian/changelog?op=file&amp;rev=0&amp;sc=0">$svn_ver</a></td>
+        <td><a href="http://svn.debian.org/wsvn/pkg-perl/trunk/$pkg/debian/changelog?op=file&amp;rev=0&amp;sc=0">$svn_ver[% IF svn_un_ver AND (svn_un_ver != svn_ver) %]<span style="font-size: smaller"> (unreleased: $svn_un_ver)[% END #IF %]</span></a></td>
         <td>[% INCLUDE bts_link data=data pkg=pkg %][% IF arch_ver %]<a href="http://packages.qa.debian.org/$pkg">$arch_ver</a>[% END #IF %]</td>
         <td>${data.watch.$pkg.upstream_mangled}</td>
     </tr>
 [% END #BLOCK package %]
+
 [% BLOCK section %]
     [% IF list.size %]
     <tbody>

Modified: scripts/qa/versioncheck.pl
URL: http://svn.debian.org/wsvn/scripts/qa/versioncheck.pl?rev=8942&op=diff
==============================================================================
--- scripts/qa/versioncheck.pl (original)
+++ scripts/qa/versioncheck.pl Wed Nov  7 08:06:26 2007
@@ -321,11 +321,11 @@
             my $page_io = IO::Scalar->new(\$page);
             while( <$page_io> )
             {
-                warn $_ if 0;
+                warn $_ if 1;
 
                 if( $dir =~ /^http/ )
                 {
-                    while( s/<a [^>]*href="([^"]+)"[^>]*>// )
+                    while( s/<a [^>]*href="([^"]+)"[^>]*>//i )
                     {
                         my $href = $1;
                         push @vers, [
@@ -354,7 +354,7 @@
 
     @vers = sort { cmp_ver($a->[0],$b->[0]) } @vers;
 
-    my $ver = $vers[-1];
+    my $ver = $vers[-1] || '';
     my $url;
 
     ($ver, $url) = $ver ? @$ver : (undef, undef);


