new upload mechanism

diff --git a/scripts/cl-debian.pl b/scripts/cl-debian.pl
index dd2eb1e51c4450f15bf2910bcfd476a0c1a4c4f3..dc823f2de71521b63c5b81b5d3e4eb104a5a1696 100755 (executable)
--- a/scripts/cl-debian.pl
+++ b/scripts/cl-debian.pl
@@ -42,7 +42,8 @@ while (@ARGV) {
 
 %mapkv=(); # for future use
 $i=100;grep($fieldimps{$_}=$i--,
-          qw(Source Version Distribution Urgency Maintainer Date Changes));
+          qw(Source Version Distribution Urgency Maintainer Date Closes
+            Changes));
 $i=1;grep($urgencies{$_}=$i++,
           qw(low medium routine high urgent emergency));
 
@@ -137,6 +138,11 @@ $expect eq 'next heading or eof' || die "found eof where expected $expect";
 $f{'Changes'} =~ s/\n$//;
 $f{'Changes'} =~ s/^/\n/;
 
+while ($f{'Changes'} =~ /closes:\s*(?:bug)?\#\d+(?:,\s*(?:bug)?\#\d+)*/ig) {
+  push(@closes, $& =~ /\#(\d+)/g);
+}
+$f{'Closes'} = join(' ',sort { $a <=> $b} @closes);
+
 &outputclose(0);
 
 sub clerror { &error("$_[0], at changelog line $."); }

diff --git a/scripts/controllib.pl b/scripts/controllib.pl
index 6b94418399c4b470305a76dbced07fbc441afbc8..de961cf7ffd93517b123717ad7788799a492ed9b 100755 (executable)
--- a/scripts/controllib.pl
+++ b/scripts/controllib.pl
@@ -3,7 +3,7 @@ $parsechangelog= 'dpkg-parsechangelog';
 
 grep($capit{lc $_}=$_, qw(Pre-Depends Standards-Version Installed-Size));
 
-$substvar{'Format'}= 1.5;
+$substvar{'Format'}= 1.6;
 $substvar{'Newline'}= "\n";
 $substvar{'Space'}= " ";
 $substvar{'Tab'}= "\t";

diff --git a/scripts/dpkg-genchanges.pl b/scripts/dpkg-genchanges.pl
index 35b1f904da9763e7b0dc02c550bc46ec27ee707d..06e00c25258f11a2b0c3407569785f79f4d873ad 100755 (executable)
--- a/scripts/dpkg-genchanges.pl
+++ b/scripts/dpkg-genchanges.pl
@@ -49,7 +49,8 @@ Options:  -b                     binary-only build - no source files
 
 $i=100;grep($fieldimps{$_}=$i--,
           qw(Format Date Source Binary Architecture Version
-             Distribution Urgency Maintainer Description Changes Files));
+             Distribution Urgency Maintainer Description Closes Changes
+            Files));
 
 while (@ARGV) {
     $_=shift(@ARGV);
@@ -172,7 +173,7 @@ for $_ (keys %fi) {
 #print STDERR "L key >$_< value >$v<\n";
         if (m/^Source$/) {
             &setsourcepackage;
-        } elsif (m/^(Version|Maintainer|Changes|Urgency|Distribution|Date)$/) {
+        } elsif (m/^(Version|Maintainer|Changes|Urgency|Distribution|Date|Closes)$/) {
             $f{$_}= $v;
         } elsif (s/^X[BS]*C[BS]*-//i) {
             $f{$_}= $v;