From ea30cb70c6c3d12dcf7bb3edd3f7ed415688fd82 Mon Sep 17 00:00:00 2001
From: joey <joey@a4a2c43b-8ac3-0310-8836-e0e880c912e2>
Date: Mon, 11 Feb 2002 19:19:44 +0000
Subject: [PATCH]    * LSB package support. It can generate LSB packages (not
 guarenteed      fully conformant with the LSB), and it can take LSB packages
 and convert      them into other formats. Unlike all the other conversions,
 lsb packages's      dependancy (on lsb) and their package scripts are
 preserved in the      generated packages (when allowed by the target package
 format). This means      your distribution will need to have a package named
 'lsb' for the result      to be installable. (Debian will have one soon..)   
 * Suggest rpm-lsb, which is the preferred rpm to build lsb packages with.    
  Use it if it's present, plain old rpm otherwise.

---
 Alien/Package.pm     |  17 +++++-
 Alien/Package/Deb.pm |  30 ++++++----
 Alien/Package/Lsb.pm | 128 +++++++++++++++++++++++++++++++++++++++++++
 Alien/Package/Rpm.pm |  49 ++++++++++-------
 Alien/Package/Slp.pm |   2 +-
 Alien/Package/Tgz.pm |  24 ++++----
 alien.lsm.in         |  13 +++--
 alien.pl             |  47 ++++++++++++----
 debian/changelog     |  14 +++++
 debian/control       |  10 ++--
 10 files changed, 265 insertions(+), 69 deletions(-)
 create mode 100644 Alien/Package/Lsb.pm

diff --git a/Alien/Package.pm b/Alien/Package.pm
index 1eb81b7..83a472e 100644
--- a/Alien/Package.pm
+++ b/Alien/Package.pm
@@ -61,7 +61,8 @@ The package's maintainer.
 
 =item depends
 
-The package's dependancies.
+The package's dependancies. Only dependencies that should exist on all
+target distributions can be put in here though (ie: lsb).
 
 =item group
 
@@ -120,6 +121,11 @@ The preinst script of the package.
 
 The prerm script of the package.
 
+=item usescripts
+
+Only use the above scripts fields when generating the package if this is set
+to a true value.
+
 =item unpacked_tree
 
 Points to a directory where the package has been unpacked.
@@ -266,6 +272,15 @@ build methods might have on it.
 
 sub cleantree {}
 
+=item revert
+
+This method should ensure that the object is in the same state it was in
+before the prep method was called.
+
+=cut
+
+sub revert {}
+
 =item build
 
 This method takes a prepped build tree, and simply builds a package from
diff --git a/Alien/Package/Deb.pm b/Alien/Package/Deb.pm
index e2738bb..07f3750 100644
--- a/Alien/Package/Deb.pm
+++ b/Alien/Package/Deb.pm
@@ -138,7 +138,6 @@ sub scan {
 		Version => 'version',
 		Architecture => 'arch',
 		Maintainer => 'maintainer',
-		Depends => 'depends',
 		Section => 'group',
 		Description => 'summary',
 	);
@@ -300,11 +299,16 @@ sub prep {
 	print OUT "\n";
 	print OUT "Package: ".$this->name."\n";
 	print OUT "Architecture: ".$this->arch."\n";
-	print OUT "Depends: \${shlibs:Depends}\n";
+	if (defined $this->depends) {
+		print OUT "Depends: ".join(", ", "\${shlibs:Depends}", $this->depends)."\n";
+	}
+	else {
+		print OUT "Depends: \${shlibs:Depends}\n";
+	}
 	print OUT "Description: ".$this->summary."\n";
 	print OUT $this->description."\n";
 	print OUT " .\n";
-	print OUT " (Converted from a .".$this->origformat." package by alien.)\n";
+	print OUT " (Converted from a ".$this->origformat." package by alien.)\n";
 	close OUT;
 
 	# Copyright file.
@@ -381,16 +385,18 @@ EOF
 	chmod 0755,"$dir/debian/rules";
 
 	# Save any scripts.
-	foreach my $script (qw{postinst postrm preinst prerm}) {
-		my $data=$this->$script();
-		next unless defined $data;
-		next if $data =~ m/^\s*$/;
-		open (OUT,">$dir/debian/$script") ||
-			die "$dir/debian/$script: $!";
-		print OUT $data;
-		close OUT;
+	if ($this->usescripts) {
+		foreach my $script (qw{postinst postrm preinst prerm}) {
+			my $data=$this->$script();
+			next unless defined $data;
+			next if $data =~ m/^\s*$/;
+			open (OUT,">$dir/debian/$script") ||
+				die "$dir/debian/$script: $!";
+			print OUT $data;
+			close OUT;
+		}	
 	}
-
+	
 	my %dirtrans=( # Note: no trailing slahshes on these directory names!
 		# Move files to FHS-compliant locations, if possible.
 		'/usr/man'	=> '/usr/share/man',
diff --git a/Alien/Package/Lsb.pm b/Alien/Package/Lsb.pm
new file mode 100644
index 0000000..1af1e24
--- /dev/null
+++ b/Alien/Package/Lsb.pm
@@ -0,0 +1,128 @@
+#!/usr/bin/perl -w
+
+=head1 NAME
+
+Alien::Package::Lsb - an object that represents a lsb package
+
+=cut
+
+package Alien::Package::Lsb;
+use strict;
+use base qw(Alien::Package::Rpm);
+
+=head1 DESCRIPTION
+
+This is an object class that represents a lsb package. It is derived from
+Alien::Package::Rpm.
+
+=head1 FIELDS
+
+=over 4
+
+=head1 METHODS
+
+=over 4
+
+=item checkfile
+
+Lsb files are rpm's with a lsb- prefix, that depend on a package called 'lsb'
+and nothing else.
+
+=cut
+
+sub checkfile {
+	my $this=shift;
+	my $file=shift;
+	return unless $file =~ m/^lsb-.*\.rpm$/;
+	my @deps=`LANG=C rpm -qp -R $file`;
+	return 1 if grep { s/\s+//g; $_ eq 'lsb' } @deps;
+	return;
+}
+
+=item scan
+
+Uses the parent scan method to read the file. lsb is added to the depends.
+
+=cut
+
+sub scan {
+	my $this=shift;
+	$this->SUPER::scan(@_);
+
+	$this->distribution("Linux Standard Base");
+	$this->origformat("lsb");
+	$this->depends("lsb");
+	# Converting from lsb, so the scripts should be portable and safe.
+	# Haha.
+	$this->usescripts(1);
+
+	return 1;
+}
+
+=item prep
+
+The parent's prep method is used to generate the spec file. First though,
+the package's name is munged to make it lsb compliant (sorta) and lsb is added
+to its dependencies.
+
+=cut
+
+sub prep {
+	my $this=shift;
+	
+	$this->_orig_name($this->name);
+	if ($this->name !~ /^lsb-/) {
+		$this->name("lsb-".$this->name);
+	}
+	$this->_orig_depends($this->depends);
+	$this->depends("lsb");
+	# Always include scripts when generating lsb package.
+	$this->_orig_usescripts($this->usescripts);
+	$this->usescripts(1);
+	
+	$this->SUPER::prep(@_);	
+}
+
+=item revert
+
+Undo the changes made by prep.
+
+=cut
+
+sub revert {
+	my $this=shift;
+	$this->name($this->_orig_name);
+	$this->depends($this->_orig_depends);
+	$this->usescripts($this->_orig_usescripts);
+	$this->SUPER::revert(@_);
+}
+
+
+=item build
+
+Uses the parent's build command. If a lsb-rpm is available, uses it to build
+the package.
+
+=cut
+
+sub build {
+	my $this=shift;
+	my $buildcmd=shift || 'rpm';
+	foreach (split(/:/,$ENV{PATH})) {
+		if (-x "$_/lsb-rpm") {
+			$buildcmd='lsb-rpm';
+			last;
+		}
+	}
+	$this->SUPER::build($buildcmd);
+}
+
+=back
+
+=head1 AUTHOR
+
+Joey Hess <joey@kitenet.net>
+
+=cut
+
+1
diff --git a/Alien/Package/Rpm.pm b/Alien/Package/Rpm.pm
index 121db1f..224f763 100644
--- a/Alien/Package/Rpm.pm
+++ b/Alien/Package/Rpm.pm
@@ -246,6 +246,7 @@ sub prep {
 	print OUT "Name: ".$this->name."\n";
 	print OUT "Version: ".$this->version."\n";
 	print OUT "Release: ".$this->release."\n";
+	print OUT "Requires: ".$this->depends."\n" if length $this->depends;
 	print OUT "Summary: ".$this->summary."\n";
 	print OUT "Copyright: ".$this->copyright."\n";
 	print OUT "Distribution: ".$this->distribution."\n";
@@ -254,30 +255,32 @@ sub prep {
 	print OUT "\%define _rpmdir ../\n"; # write rpm to current directory
 	print OUT "\%define _rpmfilename %%{NAME}-%%{VERSION}-%%{RELEASE}.%%{ARCH}.rpm\n";
 	print OUT "\n";
-	if ($this->preinst) {
-		print OUT "\%pre\n";
-		print OUT $this->preinst."\n";
-		print OUT "\n";
-	}
-	if ($this->postinst) {
-		print OUT "\%post\n";
-		print OUT $this->postinst."\n";
-		print OUT "\n";
-	}
-	if ($this->prerm) {
-		print OUT "\%preun\n";
-		print OUT $this->prerm."\n";
-		print OUT "\n";
-	}
-	if ($this->postun) {
-		print OUT "\%postun\n";
-		print OUT $this->postrm."\n";
-		print OUT "\n";
+	if ($this->usescripts) {
+		if ($this->preinst) {
+			print OUT "\%pre\n";
+			print OUT $this->preinst."\n";
+			print OUT "\n";
+		}
+		if ($this->postinst) {
+			print OUT "\%post\n";
+			print OUT $this->postinst."\n";
+			print OUT "\n";
+		}
+		if ($this->prerm) {
+			print OUT "\%preun\n";
+			print OUT $this->prerm."\n";
+			print OUT "\n";
+		}
+		if ($this->postun) {
+			print OUT "\%postun\n";
+			print OUT $this->postrm."\n";
+			print OUT "\n";
+		}
 	}
 	print OUT "\%description\n";
 	print OUT $this->description."\n";
 	print OUT "\n";
-	print OUT "(Converted from a .".$this->origformat." package by alien.)\n";
+	print OUT "(Converted from a ".$this->origformat." package by alien.)\n";
 	print OUT "\n";
 	print OUT "%files\n";
 	print OUT $filelist;
@@ -302,10 +305,14 @@ sub cleantree {
 Build a rpm. If RPMBUILDOPT is set in the environement, the options in
 it are passed to rpm on its command line.
 
+An optional parameter, if passed, can be used to specify the program to use
+to build the rpm. It defaults to rpm.
+
 =cut
 
 sub build {
 	my $this=shift;
+	my $buildcmd=shift || 'rpm';
 	my $dir=$this->unpacked_tree || die "The package must be unpacked first!";
 	
 	# Ask rpm how it's set up. We want to know what architecture it
@@ -352,7 +359,7 @@ sub build {
 	}
 
 	$opts.=" $ENV{RPMBUILDOPTS}" if exists $ENV{RPMBUILDOPTS};
-	my $command="cd $dir; rpm -bb $opts ".$this->name."-".$this->version."-".$this->release.".spec";
+	my $command="cd $dir; $buildcmd -bb $opts ".$this->name."-".$this->version."-".$this->release.".spec";
 	my $log=`$command 2>&1`;
 	if ($?) {
 		die "Package build failed. Here's the log of the command ($command):\n", $log;
diff --git a/Alien/Package/Slp.pm b/Alien/Package/Slp.pm
index d380dfc..172133f 100644
--- a/Alien/Package/Slp.pm
+++ b/Alien/Package/Slp.pm
@@ -234,7 +234,7 @@ sub build {
 		'', # Set up script. TODO
 		$this->summary,
 		$this->description,
-		'', # Depends.
+		$this->depends,
 		'', # Provides.
 		$this->maintainer,
 		scalar localtime, # Use current date.
diff --git a/Alien/Package/Tgz.pm b/Alien/Package/Tgz.pm
index abcdedc..1e94369 100644
--- a/Alien/Package/Tgz.pm
+++ b/Alien/Package/Tgz.pm
@@ -181,18 +181,20 @@ sub prep {
 	my $dir=$this->unpacked_tree || die "The package must be unpacked first!";
 
 	my $install_made=0;
-	foreach my $script (keys %{scripttrans()}) {
-		my $data=$this->$script();
-		my $out=$this->unpacked_tree."/install/".${scripttrans()}{$script};
-		next if ! defined $data || $data =~ m/^\s*$/;
-		if (!$install_made) {
-			mkdir $this->unpacked_tree."/install", 0755;
-			$install_made=1;
+	if ($this->usescripts) {
+		foreach my $script (keys %{scripttrans()}) {
+			my $data=$this->$script();
+			my $out=$this->unpacked_tree."/install/".${scripttrans()}{$script};
+			next if ! defined $data || $data =~ m/^\s*$/;
+			if (!$install_made) {
+				mkdir $this->unpacked_tree."/install", 0755;
+				$install_made=1;
+			}
+			open (OUT, ">$out") || die "$out: $!";
+			print OUT $data;
+			close OUT;
+			chmod 0755, $out;
 		}
-		open (OUT, ">$out") || die "$out: $!";
-		print OUT $data;
-		close OUT;
-		chmod 0755, $out;
 	}
 }
 
diff --git a/alien.lsm.in b/alien.lsm.in
index 54c06a9..1f36330 100644
--- a/alien.lsm.in
+++ b/alien.lsm.in
@@ -2,12 +2,13 @@ Begin3
 Title:		alien
 Version:	@version@
 Entered-date:	31MAR97
-Description:	Alien converts Slackware .tgz packages, Red Hat .rpm packages 
-		and Debian .deb packages. It can convert these formats to
-		either .deb or .rpm. It works only on binary packages.
-Keywords:	dpkg rpm tgz convert
-Author:		joey@kite.ml.org
-Primary-site:	sunsite.unc.edu /pub/Linux/utils/scripts
+Description:	Alien converts Slackware .tgz packages, Red Hat .rpm packages,
+                Debian .deb packages, and Stampede .slp packages. It can 
+                convert from any of the formats to any other format. It works
+                only on binary packages. It also support LSB packages.
+Keywords:	debian dpkg deb red hat redhat rpm slackware tgz stampede slp convert package LSB
+Author:		joey@kitenet.net
+Primary-site:	sunsite.unc.edu /pub/Linux/utils/package
 		32	alien-@version@.tar.gz
 Copying-policy:	GPL
 End
diff --git a/alien.pl b/alien.pl
index 46aebe8..f235d59 100755
--- a/alien.pl
+++ b/alien.pl
@@ -11,10 +11,10 @@ alien - Convert or install an alien binary package
 =head1 DESCRIPTION
 
 B<alien> is a program that converts between Redhat rpm, Debian deb,
-Stampede slp and Slackware tgz file formats. If you want to use a package
-from another linux distribution than the one you have installed on your
-system, you can use alien to convert it to your preferred package format
-and install it.
+Stampede slp, Slackware tgz, and Solaris pkg file formats. If you want to
+use a package from another linux distribution than the one you have
+installed on your system, you can use alien to convert it to your preferred
+package format and install it. It also supports LSB packages.
 
 =head1 WARNING
 
@@ -39,6 +39,22 @@ alien version.
 For converting to and from rpm format the Red Hat Package Manager must be
 installed.
 
+=item lsb
+
+To convert from lsb packages, the Red Hat Package Manager must be installed.
+Unlike the other package formats, alien can handle the depenendencies of
+lsb packages if the destination package format supports dependencies. Note
+that this means that the package generated from a lsb package will depend on
+a package named "lsb" -- your distribution should provide a package by that
+name, if it is lsb compliant. The scripts in the lsb package will be converted
+by default as well.
+
+To generate lsb packages, the Red Hat Package Manager must be installed,
+and alien will use by preference a program named lsb-rpm, if it exists.
+No guarantees are made that the generated lsb packages will be fully LSB
+compliant, and it's rather unlikely they will unless you build them in the
+lsbdev environment.
+
 =item deb
 
 For converting to (but not from) deb format, the gcc, make, debmake,
@@ -136,6 +152,8 @@ scripts might be designed to work on a system unlike your own, and could
 cause problems. It is recommended that you examine the scripts by hand
 and check to see what they do before using this option.
 
+This is enabled by default when converting from lsb packages.
+
 =item B<-k>, B<--keep-version>
 
 By default, alien adds one to the minor version number of each package it
@@ -230,6 +248,7 @@ use Alien::Package::Rpm;
 use Alien::Package::Tgz;
 use Alien::Package::Slp;
 use Alien::Package::Pkg;
+use Alien::Package::Lsb;
 
 # Returns a list of directories to search for patches.
 sub patchdirs {
@@ -257,6 +276,7 @@ Usage: alien [options] file [...]
                             directory.
   -r, --to-rpm              Generate a RedHat rpm package.
       --to-slp              Generate a Stampede slp package.
+  -l, --to-lsb              Generate a LSB package.
   -t, --to-tgz              Generate a Slackware tgz package.
      Enables the following option:
        --description=<desc> Specify package description.
@@ -279,6 +299,7 @@ my (%destformats, $generate, $install, $single, $scripts, $patchfile,
 GetOptions(
 	"to-deb|d", sub { $destformats{deb}=1 },
 	"to-rpm|r", sub { $destformats{rpm}=1 },
+	"to-lsb|l", sub { $destformats{lsb}=1 },
 	"to-tgz|t", sub { $destformats{tgz}=1 },
 	"to-slp",   sub { $destformats{slp}=1 },
 	"to-pkg|p", sub { $destformats{pkg}=1 },
@@ -336,7 +357,13 @@ foreach my $file (@ARGV) {
 
 	# Figure out what kind of file this is.
 	my $package;
-	if (Alien::Package::Rpm->checkfile($file)) {
+
+	# Check lsb before rpm, since lsb packages are really just
+	# glorified rpms.
+	if (Alien::Package::Lsb->checkfile($file)) {
+		$package=Alien::Package::Lsb->new(filename => $file);
+	}
+	elsif (Alien::Package::Rpm->checkfile($file)) {
 		$package=Alien::Package::Rpm->new(filename => $file);
 	}
 	elsif (Alien::Package::Deb->checkfile($file)) {
@@ -356,13 +383,7 @@ foreach my $file (@ARGV) {
 		die "Unknown type of package, $file.\n";
 	}
 
-	# Kill scripts from the package, unless they were enabled.
-	unless (defined $scripts) {
-		$package->postinst('');
-		$package->postrm('');
-		$package->preinst('');
-		$package->prerm('');
-	}
+	$package->usescripts($scripts) unless $package->usescripts;
 
 	# Increment release.
 	unless (defined $keepversion) {
@@ -434,5 +455,7 @@ foreach my $file (@ARGV) {
 			# Note I don't unlink it. I figure that might annoy
 			# people, since it was an input file.
 		}
+
+		$package->revert;
 	}
 }
diff --git a/debian/changelog b/debian/changelog
index 55c6328..ba23401 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,17 @@
+alien (8.00) unstable; urgency=low
+
+  * LSB package support. It can generate LSB packages (not guarenteed
+    fully conformant with the LSB), and it can take LSB packages and convert
+    them into other formats. Unlike all the other conversions, lsb packages's
+    dependancy (on lsb) and their package scripts are preserved in the
+    generated packages (when allowed by the target package format). This means
+    your distribution will need to have a package named 'lsb' for the result
+    to be installable. (Debian will have one soon..)
+  * Suggest rpm-lsb, which is the preferred rpm to build lsb packages with.
+    Use it if it's present, plain old rpm otherwise.
+
+ -- Joey Hess <joeyh@debian.org>  Mon, 11 Feb 2002 12:55:42 -0500
+
 alien (7.32) unstable; urgency=low
 
   * Support ancient (bo-era) debs with upper-case field names. Closes: #130736
diff --git a/debian/control b/debian/control
index d37d1be..f772400 100644
--- a/debian/control
+++ b/debian/control
@@ -9,11 +9,11 @@ Package: alien
 Architecture: all
 Section: admin
 Depends: debhelper (>= 3), ${perl:Depends}, rpm (>= 2.4.4-2), dpkg-dev, make, cpio
-Suggests: patch, bzip2
-Description: Install Red Hat, Stampede, and Slackware Packages with dpkg.
- Alien allows you to convert Red Hat, Stampede and Slackware Packages into
- Debian packages, which can be installed with dpkg. 
+Suggests: patch, bzip2, lsb-rpm
+Description: Install LSB, Red Hat, Stampede, and Slackware Packages with dpkg.
+ Alien allows you to convert LSB, Red Hat, Stampede and Slackware Packages
+ into Debian packages, which can be installed with dpkg.
  .
- It can also convert into Slackware, Red Hat, and Stampede packages.
+ It can also generate packages of any of the other formats.
  .
  This is a tool only suitable for binary packages.