r14825 - in /scripts/qa: DebianQA/Classification.pm qareport.cgi templates/by_category templates/default.css

[tincho-guest at users.alioth.debian.org]

Author: tincho-guest
Date: Wed Feb 13 08:00:49 2008
New Revision: 14825

URL: http://svn.debian.org/wsvn/?sc=1&rev=14825
Log:
Detect uploaded but not tagged versions

Modified:
    scripts/qa/DebianQA/Classification.pm
    scripts/qa/qareport.cgi
    scripts/qa/templates/by_category
    scripts/qa/templates/default.css

Modified: scripts/qa/DebianQA/Classification.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Classification.pm?rev=14825&op=diff
==============================================================================
--- scripts/qa/DebianQA/Classification.pm (original)
+++ scripts/qa/DebianQA/Classification.pm Wed Feb 13 08:00:49 2008
@@ -56,6 +56,7 @@
     repo_ancient => "svn",
     svn_foreign => "svn",
     invalid_tag => "svn",
+    missing_tag => "svn",
     name_mismatch => "svn",
     needs_upgrade => "upstream",
     upstream_ancient => "upstream",
@@ -84,6 +85,10 @@
                 and not deb_compare($tag_ver, $svn_ver));
         if($tag_ver and $svn_ver and deb_compare($tag_ver, $svn_ver) > 0) {
             $status{invalid_tag} = 1;
+        }
+        if($tag_ver and $archive_ver
+                and deb_compare($tag_ver, $archive_ver) < 0) {
+            $status{missing_tag} = 1;
         }
         if(not $svn_ver or not $archive_ver) {
             if(not $svn_ver) {

Modified: scripts/qa/qareport.cgi
URL: http://svn.debian.org/wsvn/scripts/qa/qareport.cgi?rev=14825&op=diff
==============================================================================
--- scripts/qa/qareport.cgi (original)
+++ scripts/qa/qareport.cgi Wed Feb 13 08:00:49 2008
@@ -64,7 +64,8 @@
     $dest ||= \@wip if($status->{name_mismatch});
     $dest ||= \@for_upgrade if($status->{needs_upgrade});
     $dest ||= \@wip if($status->{not_finished} or
-        $status->{invalid_svn_version} or $status->{invalid_tag});
+        $status->{invalid_svn_version} or $status->{invalid_tag}
+            or $status->{missing_tag});
     $dest ||= \@tagged if($status->{tagged_wait});
     $dest ||= \@for_upload if($status->{needs_upload} or
         $status->{never_uploaded});

Modified: scripts/qa/templates/by_category
URL: http://svn.debian.org/wsvn/scripts/qa/templates/by_category?rev=14825&op=diff
==============================================================================
--- scripts/qa/templates/by_category (original)
+++ scripts/qa/templates/by_category Wed Feb 13 08:00:49 2008
@@ -152,9 +152,11 @@
                         pkg.svn.un_changer | html %] &mdash; [% pkg.svn.un_date
                         | html %]</a></span></span>[% END #IF %]
             [% check_maint(pkg, "svn") %]
-            [% IF pkg.status.invalid_tag OR pkg.status.tagged_wait %]
+            [% IF pkg.status.invalid_tag OR pkg.status.tagged_wait
+            OR pkg.status.missing_tag %]
             <br/>
             <span class=[% IF pkg.status.invalid_tag
+            %]"svn-tag-missing"[% ELSIF pkg.status.missing_tag
             %]"svn-tag-invalid"[% ELSE %]"svn-tag-wait"[%
             END %]>[Tag: $pkg.svn.tags.last]</span>
             [% END %]

Modified: scripts/qa/templates/default.css
URL: http://svn.debian.org/wsvn/scripts/qa/templates/default.css?rev=14825&op=diff
==============================================================================
--- scripts/qa/templates/default.css (original)
+++ scripts/qa/templates/default.css Wed Feb 13 08:00:49 2008
@@ -90,6 +90,7 @@
     font-size: smaller;
 }
 .svn-tag-invalid { font-size: smaller; color: red }
+.svn-tag-missing { font-size: smaller; color: red }
 .svn-tag-wait { font-size: smaller; color: navy }
 .section-non-free { color: red; }
 .section-contrib { color: maroon; }