r6093 - /scripts/qa/versioncheck.pl

[dmn at users.alioth.debian.org]

Author: dmn
Date: Mon Jul 30 09:01:56 2007
New Revision: 6093

URL: http://svn.debian.org/wsvn/?sc=1&rev=6093
Log:
Make repository version a link, pointing to the changelog; Add title= containing the maintainer and the date from that changelog

Modified:
    scripts/qa/versioncheck.pl

Modified: scripts/qa/versioncheck.pl
URL: http://svn.debian.org/wsvn/scripts/qa/versioncheck.pl?rev=6093&op=diff
==============================================================================
--- scripts/qa/versioncheck.pl (original)
+++ scripts/qa/versioncheck.pl Mon Jul 30 09:01:56 2007
@@ -373,6 +373,7 @@
     my $changelog_fh = IO::Scalar->new( \$changelog );
 
     my $in_svn = 'Unknown SVN version';
+    my( $svn_changer, $svn_date );
     eval {
         $svn->cat(
             $changelog_fh,
@@ -387,6 +388,8 @@
             next if $_->Changes =~ /NOT RELEASED/;
 
             $in_svn = $_->Version;
+            $svn_changer = $_->Maintainer;
+            $svn_date = $_->Date;
             last;
         }
     };
@@ -486,11 +489,13 @@
     {
         print "<tr>\n";
         print "<td>$pkg</td>\n";
+
+        my $in_svn_text = qq(<a href="http://svn.debian.org/wsvn/pkg-perl/trunk/$pkg/debian/changelog?op=file&rev=0&sc=0" title="$svn_changer\n$svn_date">$in_svn</a>);
         print "<td".(
             ($in_svn ne $in_archive)
             ? ' class="upload"'
             : ''
-        ).">$in_svn</td>\n";
+        ).">$in_svn_text</td>\n";
 
         my $archive_text = join(
             "\n",