r14628 - in /scripts/qa: DebianQA/Classification.pm qareport.cgi templates/by_category

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

Author: tincho-guest
Date: Fri Feb  8 15:59:39 2008
New Revision: 14628

URL: http://svn.debian.org/wsvn/?sc=1&rev=14628
Log:
Add a new check for mismatched names

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

Modified: scripts/qa/DebianQA/Classification.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Classification.pm?rev=14628&op=diff
==============================================================================
--- scripts/qa/DebianQA/Classification.pm (original)
+++ scripts/qa/DebianQA/Classification.pm Fri Feb  8 15:59:39 2008
@@ -56,6 +56,7 @@
     repo_ancient => "svn",
     svn_foreign => "svn",
     invalid_tag => "svn",
+    name_mismatch => "svn",
     needs_upgrade => "upstream",
     upstream_ancient => "upstream",
     watch_error => "upstream",
@@ -105,6 +106,9 @@
             } else {
                 $status{needs_upload} = 1;
             }
+        }
+        if($pkg ne $data->{svn}{$pkg}{dir}) {
+            $status{name_mismatch} = 1;
         }
         # SVN versus upstream
         my $repo_mangled_ver = $data->{svn}{$pkg}{mangled_ver};

Modified: scripts/qa/qareport.cgi
URL: http://svn.debian.org/wsvn/scripts/qa/qareport.cgi?rev=14628&op=diff
==============================================================================
--- scripts/qa/qareport.cgi (original)
+++ scripts/qa/qareport.cgi Fri Feb  8 15:59:39 2008
@@ -61,6 +61,7 @@
     my $dest;   # like "destiny" :)
     my $status = $data->{status};   # to save some typing
 
+    $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});

Modified: scripts/qa/templates/by_category
URL: http://svn.debian.org/wsvn/scripts/qa/templates/by_category?rev=14628&op=diff
==============================================================================
--- scripts/qa/templates/by_category (original)
+++ scripts/qa/templates/by_category Fri Feb  8 15:59:39 2008
@@ -127,7 +127,7 @@
                     OR pkg.svn.binaries.first != pkg.name
                 ) %]<br/><span class="binary-packages">([%
                 pkg.svn.binaries.join(', ') %])</span>[% END %]
-            [% IF pkg.name != pkg.dir %]
+            [% IF pkg.status.name_mismatch %]
             <br/>
             <span class="pkg-name-mismatch">Directory name $pkg.dir != source
                 package $pkg.name</span>