r8988 - in /scripts/qa: qareport.cgi templates/by_category

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

Author: tincho-guest
Date: Wed Nov  7 18:50:05 2007
New Revision: 8988

URL: http://svn.debian.org/wsvn/?sc=1&rev=8988
Log:
- Disriminate packages that are older than upstream or the archive.
- Add content to the waiting category.

Modified:
    scripts/qa/qareport.cgi
    scripts/qa/templates/by_category

Modified: scripts/qa/qareport.cgi
URL: http://svn.debian.org/wsvn/scripts/qa/qareport.cgi?rev=8988&op=diff
==============================================================================
--- scripts/qa/qareport.cgi (original)
+++ scripts/qa/qareport.cgi Wed Nov  7 18:50:05 2007
@@ -40,7 +40,7 @@
 my $ims;
 my @pkglist = get_pkglist();
 
-my( @for_upload, @for_upgrade, @waiting, @wip, @with_bugs );
+my( @for_upload, @for_upgrade, @weird, @waiting, @wip, @with_bugs );
 my %bugs_by_severity;
 
 foreach my $pkg (sort @pkglist)
@@ -67,7 +67,7 @@
         push @for_upload, $pkg;
     } elsif(deb_compare($archver, $dver) > 0) {
         $note = "Ancient version in SVN";
-        push @for_upgrade, $pkg;
+        push @weird, $pkg;
     } elsif(deb_compare($archver, $dver) != 0) {
         push @for_upload, $pkg;
     } elsif($werr and $werr eq "Native") {
@@ -77,7 +77,7 @@
         push @wip, $pkg;
     } elsif(deb_compare($m_dver, $m_uver) > 0) {
         $note = "Ancient version in upstream?";
-        push @for_upgrade, $pkg;
+        push @weird, $pkg;
     } elsif(deb_compare($m_dver, $m_uver) != 0) {
         $note = "Needs upgrading to newer upstream";
         push @for_upgrade, $pkg;
@@ -85,7 +85,8 @@
         $note = "Watchfile problem";
         push @wip, $pkg;
     }
-    push @with_bugs, $pkg if @bugs;
+    push @with_bugs, $pkg if(@bugs);
+    push @waiting, $pkg if($archsuit =~ /new|incoming/);
 }
 
 if( $ENV{GATEWAY_INTERFACE} )
@@ -130,11 +131,12 @@
 $tt->process(
     $template,
     {
-        data    => $data,
+        data        => $data,
         for_upgrade => \@for_upgrade,
+        weird       => \@weird,
         for_upload  => \@for_upload,
-        waiting => \@waiting,
-        wip => \@wip,
+        waiting     => \@waiting,
+        wip         => \@wip,
         with_bugs   => \@with_bugs,
     },
 ) || die $tt->error;

Modified: scripts/qa/templates/by_category
URL: http://svn.debian.org/wsvn/scripts/qa/templates/by_category?rev=8988&op=diff
==============================================================================
--- scripts/qa/templates/by_category (original)
+++ scripts/qa/templates/by_category Wed Nov  7 18:50:05 2007
@@ -175,6 +175,7 @@
     [% INCLUDE section data=data list=for_upgrade name="for_upgrade" title="Newer upstream available" %]
     [% INCLUDE section data=data list=for_upload name="for_upload" title="Ready for upload" %]
     [% INCLUDE section data=data list=waiting name="waiting" title="NEW and incoming" %]
+    [% INCLUDE section data=data list=weird name="weird" title="Packages outdated in the repository" %]
     [% INCLUDE section data=data list=wip name="wip" title="Work in progress" %]
     [% INCLUDE section data=data list=with_bugs name="with_bugs" title="With bugs" %]
 </table>