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

This now makes both rpms and debs.

Browse Source
This commit is contained in:
freesource 2002-02-08 06:34:21 +00:00
parent a6df52e6af
commit d23b4729da
1 changed files with 95 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

95
gbootroot_pkg
View File

@ -54,9 +54,14 @@ my $urgency = "low";
my $gbootroot_cvs = "$user_home/gbootroot/gbootroot"; my $gbootroot_cvs = "$user_home/gbootroot/gbootroot";
my $packaging_place = "$user_home/gbootroot/PACKAGING"; my $packaging_place = "$user_home/gbootroot/PACKAGING";
my $packaging_defaults = "$gbootroot_cvs/pkg/dpkg"; my $packaging_defaults = "$gbootroot_cvs/pkg/dpkg";
my $rpm_packaging_place = "$gbootroot_cvs/pkg/rpm";
my $SOURCES = "/usr/src/rpm/SOURCES";
my $SPECS = "/usr/src/rpm/SPECS";
my $email = "freesource\@users.sourceforge.net"; my $email = "freesource\@users.sourceforge.net";
my $name = "Jonathan Rosenbaum"; my $name = "Jonathan Rosenbaum";
my $makefile = "Makefile.pkg"; my $makefile = "Makefile.pkg";
my @rpm_packages = qw(gbootroot.spec gbootroot-mdk.spec);
# Other vars # Other vars
my ($real_uid, $real_gid) = (stat($user_home))[4,5]; my ($real_uid, $real_gid) = (stat($user_home))[4,5];
@ -81,6 +86,16 @@ close(CVS);
$packaging_place = "$packaging_place/$prog-$version"; $packaging_place = "$packaging_place/$prog-$version";
# Do we want a deb, rpm or both
if (!( $ARGV[0] eq "both" || $ARGV[0] eq "deb" || $ARGV[0] eq "rpm" ) ) {
die "Specify: both, deb, or rpm\n";
}
if ( $ARGV[0] eq "both" || $ARGV[0] eq "deb" ) {
# Make sure the directory exists. # Make sure the directory exists.
home_builder($packaging_place); home_builder($packaging_place);
@ -244,6 +259,86 @@ if (!$stop) {
system "debuild"; system "debuild";
} # both or deb
if ( $ARGV[0] eq "both" || $ARGV[0] eq "rpm" ) {
# Here the defined version and revision are updated ..
# Ofcourse maybe the revision shouldn't be touched.
foreach my $package ( @rpm_packages ) {
open (RPM_PLACE, "$rpm_packaging_place/$package" ) or
die "Couldn't open up $rpm_packaging_place/$package: $!\n";
my @specs = <RPM_PLACE>;
close(RPM_PLACE);
open (RPM_PLACE, ">$rpm_packaging_place/$package" ) or
die "Couldn't open up $rpm_packaging_place/$package: $!\n";
foreach ( @specs ) {
if ( m,^\%define\s+version\s+[\d\.]+\s*$,) {
print RPM_PLACE "%define version $version\n";
}
elsif ( m,^\%define\s+release\s+[\d\.]+\s*$,) {
if ( /mdk/ ) {
print RPM_PLACE "%define release $revision" . "mdk\n";
}
else {
print RPM_PLACE "%define release $revision\n";
}
}
else {
print RPM_PLACE $_;
}
}
close(RPM_PLACE);
# Here we create a filelist from the debian package
my $arch = `grep Architecture $packaging_defaults/control |\
cut -d " " -f 2`;
chomp $arch;
my $program = dirname($packaging_place) . "/" .$prog . "_"
. "$version-$revision" . "_" . $arch . ".deb";
die "Can't fine $program\n" if !-e $program;
my $files = "dswim -qpl $program|";
open (FILELIST,">$rpm_packaging_place/filelist") or
die "Couldn't open $rpm_packaging_place/filelist: $!\n";
open (FILES, $files ) or
die "Couldn't open $files: $!\n";
while ( <FILES> ) {
if ( m,^\./, ) {
s,^\.,,;
print FILELIST $_;
}
}
# For now will just use one definite place for SOURCES
my $source = dirname($packaging_place) . "/" . $prog . "_" . $version;
system "cp $source*tar.gz $SOURCES";
system "cp $rpm_packaging_place/filelist $SOURCES";
system "cp $gbootroot_cvs/gbootroot.xpm $SOURCES";
system "cp $rpm_packaging_place/$package $SPECS";
# Time for the fun
system "rpm -ba $SPECS/$package";
}
} # both or rpm
sub home_builder { sub home_builder {
my ($home_builder) = @_; my ($home_builder) = @_;