mlot/alien
1
0
Fork 0
mirror of https://github.com/Project-OSS-Revival/alien.git synced 2026-04-24 14:00:17 +00:00
Code Issues Packages Projects Releases Wiki Activity

more options supported

Browse Source
This commit is contained in:
joey
2000-04-21 23:30:38 +00:00
parent 81a6189984
commit 25915dbdbc
1 changed files with 16 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
alien
View File

@@ -239,7 +239,7 @@ Usage: alien [options] file [...]
-r, --to-rpm Generate a RedHat rpm package. -r, --to-rpm Generate a RedHat rpm package.
--to-slp Generate a Stampede slp package. --to-slp Generate a Stampede slp package.
-t, --to-tgz Generate a Slackware tgz package. -t, --to-tgz Generate a Slackware tgz package.
Enables the following options: Enables the following option:
--description=<desc> Specify package description. --description=<desc> Specify package description.
-i, --install Install generated package. -i, --install Install generated package.
-g, --generate Unpack, but do not generate a new package. -g, --generate Unpack, but do not generate a new package.
@@ -318,6 +318,7 @@ foreach my $file (@ARGV) {
} }
elsif (Alien::Package::Tgz->checkfile($file)) { elsif (Alien::Package::Tgz->checkfile($file)) {
$package=Alien::Package::Tgz->new(filename => $file); $package=Alien::Package::Tgz->new(filename => $file);
$package->description($tgzdescription) if $tgzdescription ne '';
} }
elsif (Alien::Package::Slp->checkfile($file)) { elsif (Alien::Package::Slp->checkfile($file)) {
$package=Alien::Package::Slp->new(filename => $file); $package=Alien::Package::Slp->new(filename => $file);
@@ -326,6 +327,19 @@ foreach my $file (@ARGV) {
die "Unknown type of package, $file.\n"; die "Unknown type of package, $file.\n";
} }
# Kill scripts from the package, unless they were enabled.
unless ($scripts) {
$package->postinst('');
$package->postrm('');
$package->preinst('');
$package->prerm('');
}
# Increment revision.
unless ($keepversion) {
$package->revision($package->revision + 1);
}
foreach my $format (keys %destformats) { foreach my $format (keys %destformats) {
# Skip conversion if package is already the correct format. # Skip conversion if package is already the correct format.
if ($package->origformat ne $format) { if ($package->origformat ne $format) {
@@ -334,7 +348,7 @@ foreach my $file (@ARGV) {
# Mutate package into desired format. # Mutate package into desired format.
bless($package, "Alien::Package::".ucfirst($format)); bless($package, "Alien::Package::".ucfirst($format));
$package->prep; $package->prep;
my $newfile=$package->build; my $newfile=$package->build;
if ($install) { if ($install) {