r6093 - /scripts/qa/versioncheck.pl
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Mon Jul 30 09:01:57 UTC 2007
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",
More information about the Pkg-perl-cvs-commits
mailing list