r8987 - in /scripts/qa: qareport qareport.cgi

tincho-guest at users.alioth.debian.org tincho-guest at users.alioth.debian.org
Wed Nov 7 18:36:07 UTC 2007


Author: tincho-guest
Date: Wed Nov  7 18:36:07 2007
New Revision: 8987

URL: http://svn.debian.org/wsvn/?sc=1&rev=8987
Log:
Correctly detect packages that never went uploaded to the archive

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

Modified: scripts/qa/qareport
URL: http://svn.debian.org/wsvn/scripts/qa/qareport?rev=8987&op=diff
==============================================================================
--- scripts/qa/qareport (original)
+++ scripts/qa/qareport Wed Nov  7 18:36:07 2007
@@ -53,7 +53,9 @@
 
     my $status;
     if(! $dver) {
-        $status = "Needs finishing";
+        $status = 'Needs to be finished';
+    } elsif(! $archver) {
+        $status = 'Never uploaded';
     } elsif(deb_compare($archver, $dver) > 0) {
         $status = "Ancient version in SVN";
     } elsif(deb_compare($archver, $dver) != 0) {

Modified: scripts/qa/qareport.cgi
URL: http://svn.debian.org/wsvn/scripts/qa/qareport.cgi?rev=8987&op=diff
==============================================================================
--- scripts/qa/qareport.cgi (original)
+++ scripts/qa/qareport.cgi Wed Nov  7 18:36:07 2007
@@ -62,6 +62,9 @@
     if(! $dver) {
         $note = 'Needs to be finished';
         push @wip, $pkg;
+    } elsif(! $archver) {
+        $note = 'Never uploaded';
+        push @for_upload, $pkg;
     } elsif(deb_compare($archver, $dver) > 0) {
         $note = "Ancient version in SVN";
         push @for_upgrade, $pkg;




More information about the Pkg-perl-cvs-commits mailing list