bike/gbootroot
1
0
Fork 0
mirror of https://github.com/fspc/gbootroot.git synced 2025-02-23 09:03:23 -05:00
Code Issues Projects Releases Wiki Activity

New nicer approach using dch.

Browse Source
This commit is contained in:
freesource 2001-12-09 07:23:50 +00:00
parent ef4549a116
commit 1d5b40628f
1 changed files with 43 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

95
add-ons/yard/make-debian-X11/make_debian-X11_pkg
View File

@ -181,58 +181,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++;
}
# We need to print at the top.
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 # Set-up the copyright
open(COPYRIGHT,">$packaging_defaults/copyright") open(COPYRIGHT,">$packaging_defaults/copyright")
or die "Couldn't open up $packaging_defaults/copyright: $!\n"; or die "Couldn't open up $packaging_defaults/copyright: $!\n";
@ -247,9 +195,52 @@ system "chown $real_uid $packaging_defaults/copyright";
system "chgrp $real_gid $packaging_defaults/copyright"; system "chgrp $real_gid $packaging_defaults/copyright";
system "rm $packaging_place/debian/*"; system "rm $packaging_place/debian/*";
system "chown $real_uid:$real_gid $packaging_defaults/changelog";
system "cp -fa $packaging_defaults/* $packaging_place/debian"; system "cp -fa $packaging_defaults/* $packaging_place/debian";
chdir($packaging_place); 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"; system "debuild";
sub home_builder { sub home_builder {