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

Tweaking some error codes.

Browse Source
This commit is contained in:
freesource 2001-09-15 05:49:22 +00:00
parent 7949c96607
commit 0f73a500ae
2 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -23,7 +23,7 @@ use File::Find;
# Makefile.pkg in $gbootroot_cvs in used as the packages Makefile.
my $user_home = "/home/mttrader";
my $prog = "make-debian-X11";
my $prog = "make-debian-x11";
my $prog_real_name = "make_debian-X11";
my $revision = 1;
my $dist = "unstable";
@ -34,10 +34,11 @@ my $urgency = "low";
my $gbootroot_cvs =
"$user_home/gbootroot/gbootroot/add-ons/yard/make-debian-X11";
my $packaging_place = "$user_home/gbootroot/PACKAGING-debian-X11";
my $packaging_defaults = "$gbootroot_cvs/add-ons/yard/make-debian-X11/pkg";
my $packaging_defaults =
"$gbootroot_cvs/add-ons/yard/make-debian-X11/pkg/dpkg";
my $email = "freesource\@users.sourceforge.net";
my $name = "Jonathan Rosenbaum";
my $makefile = "Makefile";
my $makefile = "Makefile.pkg";
# Other vars
my ($real_uid, $real_gid) = (stat($user_home))[4,5];
@ -84,7 +85,7 @@ chomp $make_paragraph[1];
my @make_lines = split(/\n/,$make_paragraph[1]);
shift(@make_lines);
chdir($gbootroot_cvs) or die "Couldn't change to $gbootroot_cvs: $?\n";
chdir($gbootroot_cvs) or die "Couldn't change to $gbootroot_cvs: $!\n";
# Basically we are just concerned with the first part of cp and will
# use home_builder to make sure the directory exists.
@ -132,14 +133,14 @@ if (-d $packaging_place) {
# Now we to the dh_make thing, and setup the time, version, and defaults.
chdir($packaging_place) or die "Can't change to $packaging_place: $?\n";
chdir($packaging_place) or die "Can't change to $packaging_place: $!\n";
system "dh_make -e $email";
# Here we ask the user what changes to add to the changelog and set the proper
# time using 822-date. If it is the initial release we don't do anything.
open(CHANGELOG,"$packaging_defaults/changelog")
or die "Couldn't open $packagaging_place/changelog: $?\n";
or die "Couldn't open $packaging_place/changelog: $!\n";
my @changelog = <CHANGELOG>;
close (CHANGELOG);
@ -175,7 +176,7 @@ if (!$stop) {
}
open(CHANGELOG,">$packaging_defaults/changelog")
or die "Couldn't open check: $?\n";
or die "Couldn't open check: $!\n";
for my $ct (0 .. ($#changelog - 3)) {
print CHANGELOG $changelog[$ct];
}
@ -195,7 +196,7 @@ system "chgrp $real_gid $packaging_defaults/changelog";
# Set-up the 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";
print COPYRIGHT "This package was debianized by $name\n";
print COPYRIGHT "$email on " , `822-date`, ".\n";
print COPYRIGHT "Author: \n$name <$email>\n\n";

10
gbootroot_pkg
View File

@ -82,7 +82,7 @@ chomp $make_paragraph[1];
my @make_lines = split(/\n/,$make_paragraph[1]);
shift(@make_lines);
chdir($gbootroot_cvs) or die "Couldn't change to $gbootroot_cvs: $?\n";
chdir($gbootroot_cvs) or die "Couldn't change to $gbootroot_cvs: $!\n";
# Basically we are just concerned with the first part of cp and will
# use home_builder to make sure the directory exists.
@ -130,14 +130,14 @@ if (-d $packaging_place) {
# Now we to the dh_make thing, and setup the time, version, and defaults.
chdir($packaging_place) or die "Can't change to $packaging_place: $?\n";
chdir($packaging_place) or die "Can't change to $packaging_place: $!\n";
system "dh_make -e $email";
# Here we ask the user what changes to add to the changelog and set the proper
# time using 822-date. If it is the initial release we don't do anything.
open(CHANGELOG,"$packaging_defaults/changelog")
or die "Couldn't open $packagaging_place/changelog: $?\n";
or die "Couldn't open $packaging_place/changelog: $!\n";
my @changelog = <CHANGELOG>;
close (CHANGELOG);
@ -173,7 +173,7 @@ if (!$stop) {
}
open(CHANGELOG,">$packaging_defaults/changelog")
or die "Couldn't open check: $?\n";
or die "Couldn't open check: $!\n";
for my $ct (0 .. ($#changelog - 3)) {
print CHANGELOG $changelog[$ct];
}
@ -193,7 +193,7 @@ system "chgrp $real_gid $packaging_defaults/changelog";
# Set-up the 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";
print COPYRIGHT "This package was debianized by $name\n";
print COPYRIGHT "$email on " , `822-date`, ".\n";
print COPYRIGHT "Author: \n$name <$email>\n\n";