From 93b7a397d56f04154c117e241b35883603b742c1 Mon Sep 17 00:00:00 2001
From: freesource <freesource>
Date: Mon, 10 Sep 2001 18:43:01 +0000
Subject: [PATCH] More changes.

---
 gbootroot_pkg | 26 +++++++++++++++++++++-----
 1 file changed, 21 insertions(+), 5 deletions(-)

diff --git a/gbootroot_pkg b/gbootroot_pkg
index 93e9b7a..43b6e93 100755
--- a/gbootroot_pkg
+++ b/gbootroot_pkg
@@ -11,10 +11,11 @@ use File::Find;
 
 # This program uses dh-make, and copies your own defaults to 
 # $packaging_place/debian from your $packaging_defaults, and updates
-# to the proper date/times.  After this you will want to run
-# debuild as a non-root user.  And finish stuff off with dpkg-scanpackages.
+# to the proper date/times in changelog and copyright.  After this you will 
+# want to run debuild from devscripts (this uses lintian) as a non-root user.
+#  And finish stuff off with dpkg-scanpackages.
 
-# User defined variables for directories
+# User defined variables for directories and package
 
 my $user_home = "/home/mttrader";
 my $prog = "gbootroot";
@@ -22,13 +23,14 @@ my $revision = 1;
 my $dist = "unstable";
 my $urgency = "low";
 my $gbootroot_cvs =  "$user_home/gbootroot/gbootroot";
-my $packaging_place = "$user_home/gbootroot";
+my $packaging_place = "$user_home/gbootroot/PACKAGING";
 my $packaging_defaults = "$gbootroot_cvs/pkg/dpkg";
 my $email = "freesource\@users.sourceforge.net";
 my $name = "Jonathan Rosenbaum";
 
 # Other vars
 my $version;
+my ($real_uid, $real_gid) = (stat($user_home))[4,5];
 
 # Find the version
 
@@ -96,7 +98,6 @@ system "cp -fa Makefile.pkg $packaging_place/Makefile";
 
 # Now we get to clean out any CVS directories and make sure that the 
 # permissions are all for the user who will be creating the package.
-my ($real_uid, $real_gid) = (stat($user_home))[4,5];
 if (-d $packaging_place) {
         finddepth sub {  
 
@@ -176,6 +177,19 @@ if (!$stop) {
 
 } # end if !$stop
 
+system "rm $packaging_place/debian/*";
+system "cp -fa $packaging_defaults/* $packaging_place/debian";
+
+# Set-up the copyright
+open(COPYRIGHT,">$packaging_defaults/copyright") 
+    or die "Couldn't open up $packaging_defaults/copyright: $?\n";
+print COPYRIGHT "This package was debianized by $name\n";
+print COPYRIGHT "$email on " , `822-date`, ".\n";
+print COPYRIGHT "Author: \n$name <$email>\n\n";
+print COPYRIGHT "Copyright:\n\n" .
+"On Debian GNU/Linux systems, the complete text of the GNU General Public\n" .
+    "License can be found in /usr/share/common-licenses/GPL\n";
+
 sub home_builder {
 
     my ($home_builder) = @_; 
@@ -191,6 +205,8 @@ sub home_builder {
 		$_ == 1 ? ($placement = "/$directory_parts[$_]")
 		    : ($placement = $placement . "/" . $directory_parts[$_]);
 		-d $placement or mkdir $placement;
+		system "chown $real_uid $placement";
+		system "chgrp $real_gid $placement";
 	    }
 	}
     }