New dch format.

Changes

@@ -0,0 +1,135 @@
+# My personal changes copy
+
+
+
+------------------------------------
+
+FM changes:
+
+Databases are automatically rebuilt.  Non-root users have access to the 
+majority of information and packaging features.  Several new options have 
+been added  to support new features found in apt; all virtual options now call
+apt.
+
+
+Private databases are automatically rebuilt for each user.  Non-root users have access to the majority of features.  Several new options have been added  to support a matured apt; all virtual options now call apt.
+
+
+*****************************
+out: DSWIM is a powerful informational tool for Debian's packaging system. Designed with an integrated approach it
+  combines the functionality found in several other programs and scripts. This provides users with a centralized approach for
+  querying the installation, allowing programmers the liberty of writing smaller and simpler code.
+
+  Changes: Private databases are automatically rebuilt for each user. Non-root users have access to the majority of features.
+  Several new options have been added to support a matured apt; all virtual options now call apt.
+
+  License: GNU General Public License (GPL) - Release focus: Major feature enhancements
+
+  Homepage:
+  http://www.sourceforge.net/projects/avd
+  Tar/GZ:
+  [..]tp://prdownloads.sourceforge.net/avd/dswim_0.4.1.orig.tar.gz
+  Changelog:
+  [..]ttp://sourceforge.net/project/shownotes.php?release_id=58559
+  Debian package:
+  http://prdownloads.sourceforge.net/avd/dswim_0.4.1-1_all.deb
+  CVS tree (cvsweb):
+  http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/avd/avd/swim/
+  Mailing list archive:
+  http://sourceforge.net/mail/?group_id=17787
+
+Your new release (ID 60570) has been stored for verification by the freshmeat crew. Please note that submissions may be
+   edited for brevity, grammar and in some cases content. 
+
+**********************
+
+
+---------------------------------
+
+Adds the --enhances option for binary dependencies.
+
+--------------------
+
+Changed Suggests gcc to binutils because now ar is found in it.  Most people
+won't use ar, but you never know.
+
+--------------------
+
+Dswim now creates databases for non-root users.  All db are now created in
+$HOME/default_directory/var/lib/dpkg rather than /var/lib/dpkg, and 
+.swim_history is put here, too.
+
+Separated the documentation into a separate package, but keep man pages 
+around for backwards and current compatibility, and wrote a warning at top.
+
+Removed lots of the -n db options from help because they are broken in 
+relation to major changes in the Debian archive.  Left some just as 
+reminders of dswims inherent ability for older Debian archives.
+
+Updated copylet and swim is now DSWIM .. Debian System Wide Information 
+Manager.  Changed "Package administration and research tool for Debian" to 
+DSWIM.
+
+Changed --nz to --no-download and now works properly with simulate.
+
+--rebuilddb automatically when noticing a change near the beginning of 
+command() after --db --check runs  Added $no_rebuilddb configuration option 
+to allow users to override this behavior.
+
+--remove and --purge are now handled by apt-get and apt's new --reinstall 
+added.
+
+--source (-b, --diff-only, --tar-only) and --build-deb are new options to
+replace the old --ftp options because all this stuff is now handled by
+apt-get.
+
+Added --config and --templates to the query options.
+
+--initdb and --rebuilddb STDOUT output are now STDERR mostly to make debconf
+happy, and both of these options return their corresponding names via their
+functions.
+
+Fixed many of the defined bugs and a few of the regexp bugs ..
+these were just the complaints of the newer Perl.
+
+Fixed undef values when scripts() was called more than once when used with
+-qf, --scripts, -d|-l and -T.
+
+Added swim_pkg to CVS to simplify packaging dswim.
+
+The control dependencies have been improved.
+
+
+
+Description: Debian System Wide Information Manager
+ DSWIM is a powerful informational tool for Debian's packaging system.  
+ Designed with an integral approach it provides much of the same 
+ functionality found in several smaller programs and scripts.  This 
+ allows users a centralized approach to quering the installation, and
+ programmers the liberty of writing smaller and simpler code.  
+
+* it wins
+Description: Debian System Wide Information Manager
+ DSWIM is a powerful informational tool for Debian's packaging system.  
+ Designed with an integral approach it combines the functionality 
+ found in several other programs and scripts.  This provides users with a 
+ centralized approach to querying the installation, and allows programmers 
+ the liberty of writing smaller and simpler code.  
+
+Before:
+swim is a powerful package manager like Red Hat's RPM. It allows an uninstalled distribution to be viewed and tested, adds many enhancements, and combines searching, querying, and installation together in an intuitive and enjoyable manner, making life much easier.
+
+
+
+DSWIM is a powerful informational tool for Debian's packaging system.  Designed with an integral approach it combines the functionality found in several other programs and scripts.  This provides users with a centralized approach to querying the installation, and allows programmers the liberty of writing smaller and simpler code.  
+
+
+
+
+
+
+
+
+
+
+

swim_pkg

@@ -177,56 +177,6 @@ foreach (@changelog) {
     }
 }
 
-# Ask some questions first.
-if (!$stop) {
-    print "\nWrite what you want to be put in the changelog, and I'll\n" .
-	"prettify everything.  End with a newline and .\n";
-    print "  * ";
-    my $save_doc;
-    $save_doc = "  * ";
-    $count = 0;
-    my $mc = 0;
-    while (<STDIN>) {
-	my $doc_reply = $_;
-	if ($doc_reply ne "\n") {
-	    print "    ";
-	    $doc_reply = "$doc_reply" if $count != 0 && $mc == 1;
-	    $doc_reply = "    $doc_reply" if $count != 0 && $mc != 1;
-	    $mc = 0;
-	}
-	else {
-	    print "  * ";
-	    if ( $count != 0 && $doc_reply eq "\n" ) {
-		$mc = 0;
-		$doc_reply = "\n  * "; 
-		$mc++;
-	    }
-	    $doc_reply = "$doc_reply" if $count != 0 && $mc == 1;
-	    $doc_reply = "    $doc_reply" if $count != 0 && $mc != 1;
-	}
-	last if $doc_reply =~ /^\s*\.\s*$/;
-	if ($doc_reply) {
-	    $save_doc = $save_doc . $doc_reply;
-	}
-	$count++;	
-
-   }
-
-    open(CHANGELOG,">$packaging_defaults/changelog") 
-	or die "Couldn't open check: $!\n";
-    print CHANGELOG "$prog ($version-$revision) $dist; urgency=$urgency\n\n";
-    print CHANGELOG "$save_doc\n";
-    print CHANGELOG " -- $name <$email>  " . `822-date`;
-    print CHANGELOG "\n";
-    print CHANGELOG @changelog;
-    close(CHANGELOG);
-    print "\n";
-
-system "chown $real_uid $packaging_defaults/changelog";
-system "chgrp $real_gid $packaging_defaults/changelog";
-
-} # end if !$stop
-
 # Set-up the copyright
 open(COPYRIGHT,">$packaging_defaults/copyright") 
     or die "Couldn't open up $packaging_defaults/copyright: $!\n";
@@ -241,9 +191,51 @@ system "chown $real_uid $packaging_defaults/copyright";
 system "chgrp $real_gid $packaging_defaults/copyright";
 
 system "rm $packaging_place/debian/*";
+system "chown $real_uid:$real_gid $packaging_defaults/changelog";
 system "cp -fa $packaging_defaults/* $packaging_place/debian";
 
 chdir($packaging_place);
+
+# Using dch for the changelog .. very convenient and debian proper.
+if (!$stop) {
+
+    $ENV{MAIL} = $email;
+    $ENV{DEBFULLNAME} = $name;
+
+    system "chown $real_uid:$real_gid $packaging_place/debian/changelog";
+
+    $/ = ""; 
+    open(CHANGES, "$gbootroot_cvs/Changes") 
+	or die "Couldn't open $gbootroot_cvs/Changes: $!\n"; 
+
+    my $change_watch = 0;
+    while (<CHANGES>) { 
+	if (!m,^-+$,m ) { 
+	    last if $what == 2;  
+	    $_  =~ s/\n/ /gm; 
+	    if ( $change_watch == 0 ) {
+		system "dch", "--newversion", "$version-$revision", "$_"; 
+	    }
+	    else {		
+		system "dch",  "$_";
+	    }
+	    $change_watch++;
+	}  
+	
+	else { 
+	    $what++; 
+	}
+    }
+    close(CHANGES);
+
+    $/ = "\n";
+
+    system "cp -a $packaging_place/debian/changelog $packaging_defaults";
+
+
+} # end if !$stop
+
+
 system "debuild";
 
 sub home_builder {