[Pkg-doc-linux-devel] r248 - trunk/doc-linux/debian

[djpig at alioth.debian.org]

Author: djpig
Date: 2007-09-16 14:22:45 +0000 (Sun, 16 Sep 2007)
New Revision: 248

Modified:
   trunk/doc-linux/debian/diff-tarballs
Log:
diff-tarballs: Create a full Debian changelog entry

I add this information later anyway, so why not give me more to
copy & paste nicely...


Modified: trunk/doc-linux/debian/diff-tarballs
===================================================================
--- trunk/doc-linux/debian/diff-tarballs	2007-08-24 17:25:30 UTC (rev 247)
+++ trunk/doc-linux/debian/diff-tarballs	2007-09-16 14:22:45 UTC (rev 248)
@@ -23,8 +23,11 @@
 die "E: couldn't find two files to diff" if @files < 2;
 
 my ( $newfile, $oldfile ) = reverse sort @files;
+my ($newversion) = ($newfile =~ /^Linux-HOWTOs-(\d+)\.tar\.bz2$/);
+my ($year, $month, $day) = ($newversion =~ /^(\d{4})(\d{2})(\d{2})$/);
+my $debversion = "$year.$month-1";
 
-#print STDERR "I: diffing $newfile against $oldfile\n";
+#print STDERR "I: diffing $newfile ($newversion) against $oldfile\n";
 
 #print STDERR "I: writing list of old HOWTOs\n";
 
@@ -110,6 +113,7 @@
 my @removed_list = qx'rgrep --exclude *.svn* ^HOWTO: debian/copyrights/removed/ | perl -p -e "s/^\S+\s*//o" | sort | uniq';
 my @undistributable_list = qx'rgrep --exclude *.svn* ^HOWTO: debian/copyrights/undistributable/ | perl -p -e "s/^\S+\s*//o" | sort | uniq';
 my %nonfree_list;
+my @nonfree_mentioned;
 foreach (@nonfree_list, @removed_list, @undistributable_list) {
     chomp;
     $nonfree_list{$_}++;
@@ -122,19 +126,25 @@
 #print STDERR "D: m_num: ".scalar( keys( %modified ))."\n";
 #print STDERR "D: add_num: ".scalar( keys( %added ))."\n";
 
-print "\t* Removed HOWTOs:\n" if scalar( keys( %removed ));
+print "doc-linux ($debversion) unstable; urgency=low\n\n";
+print "  * new upstream release ($newversion)\n";
+print "  * Removed HOWTOs:\n" if scalar( keys( %removed ));
 foreach ( sort keys %removed ) {
-    print "\t $_\n";
+    print "    $_\n";
 }
-print "\t* Updated HOWTOs:\n" if scalar( keys( %modified ));
+print "  * Updated HOWTOs:\n" if scalar( keys( %modified ));
 foreach ( sort keys %modified ) {
     my $nonfree = exists $nonfree_list{$_} ? "(nonfree)" : "";
-    print "\t $_ $nonfree\n";
+    push(@nonfree_mentioned, $_) if $nonfree;
+    print "    $_ $nonfree\n";
 }
-print "\t* Added HOWTOs:\n" if scalar( keys( %added ));
+print "  * Added HOWTOs:\n" if scalar( keys( %added ));
 foreach ( sort keys %added ) {
     #filter out known nonfree HOWTOs in case we diff with a free-only tar ball
     unless ( exists $nonfree_list{$_} ) {
-	print "\t $_\n";
+	print "    $_\n";
     }
 }
+print "  * All mentioned HOWTOs are free except for: ".
+    join(", ",sort @nonfree_mentioned)."\n";
+print "\n -- \n";