Updated readme, fixes #10

Buildroot in spec file doesn't support spaces in some RPM versions
(ALT Linux). Removed it from spec since --buildroot is already passed
on command line. Also quoted cd argument.

Alien/Package/Deb.pm

@@ -176,6 +176,8 @@ sub getcontrolfile {
 			$controlcomp = 'gzip -dc';
 		} elsif ($controlmember eq 'control.tar.xz') {
 			$controlcomp = 'xz -dc';
+		} elsif ($controlmember eq 'control.tar.zst') {
+			$controlcomp = 'zstd -dc';
 		} elsif ($controlmember eq 'control.tar') {
 			$controlcomp = 'cat';
 		} else {
@@ -210,6 +212,8 @@ sub get_datamember_cmd {
 		$datacomp = 'xz -dc';
 	} elsif ($datamember eq 'data.tar.lzma') {
 		$datacomp = 'xz -dc';
+	} elsif ($datamember eq 'data.tar.zst') {
+		$datacomp = 'zstd -dc';
 	} elsif ($datamember eq 'data.tar') {
 		$datacomp = 'cat';
 	} else {
@@ -250,19 +254,27 @@ sub scan {
 	for (my $i=0; $i <= $#control; $i++) {
 		$_ = $control[$i];
 		chomp;
-		if (/^(\w.*?):\s+(.*)/) {
+		if (/^(\w.*?):\s*(.*)/) {
 			# Really old debs might have oddly capitalized
 			# field names.
 			$field=ucfirst(lc($1));
 			if (exists $fieldtrans{$field}) {
 				$field=$fieldtrans{$field};
-				$this->$field($2);
+				my $value = $2;
+				# Only set field if value is non-empty.
+				# For Description, empty first line means
+				# the actual text starts on next line.
+				$this->$field($value) if length $value;
 			}
 		}
 		elsif (/^ / && $field eq 'summary') {
 			# Handle extended description.
 			s/^ //g;
 			$_="" if $_ eq ".";
+			# If summary is empty, use first line of extended description
+			if (!defined $this->summary || !length $this->summary) {
+				$this->summary($_);
+			}
 			$description.="$_\n";
 		}
 	}

Alien/Package/Rpm.pm

@@ -8,7 +8,9 @@ Alien::Package::Rpm - an object that represents a rpm package
 
 package Alien::Package::Rpm;
 use strict;
-use base qw(Alien::Package);
+use Exporter qw(import);
+our @EXPORT_OK = qw(arch);
+use base qw(Alien::Package Exporter);
 
 =head1 DESCRIPTION
 
@@ -461,9 +463,8 @@ sub prep {
 	# Write out the spec file.
 	my $spec="$dir/".$this->name."-".$this->version."-".$this->release.".spec";
 	open (OUT, ">$spec") || die "$spec: $!";
-	my $pwd=`pwd`;
-	chomp $pwd;
-	print OUT "Buildroot: $pwd/$dir\n"; # must be absolute dirname
+	# Note: Buildroot is passed via --buildroot command line option
+	# to handle paths with spaces correctly
 	print OUT "Name: ".$this->name."\n";
 	print OUT "Version: ".$this->version."\n";
 	print OUT "Release: ".$this->release."\n";
@@ -481,22 +482,22 @@ sub prep {
 	if ($this->usescripts) {
 		if ($this->preinst) {
 			print OUT "\%pre\n";
-			print OUT $this->preinst."\n";
+			print OUT escape_percents($this->preinst)."\n";
 			print OUT "\n";
 		}
 		if ($this->postinst) {
 			print OUT "\%post\n";
-			print OUT $this->postinst."\n";
+			print OUT escape_percents($this->postinst)."\n";
 			print OUT "\n";
 		}
 		if ($this->prerm) {
 			print OUT "\%preun\n";
-			print OUT $this->prerm."\n";
+			print OUT escape_percents($this->prerm)."\n";
 			print OUT "\n";
 		}
 		if ($this->postrm) {
 			print OUT "\%postun\n";
-			print OUT $this->postrm."\n";
+			print OUT escape_percents($this->postrm)."\n";
 			print OUT "\n";
 		}
 	}
@@ -572,7 +573,7 @@ sub build {
 	$opts.=" $ENV{RPMBUILDOPT}" if exists $ENV{RPMBUILDOPT};
 	my $pwd=`pwd`;
 	chomp $pwd;
-	my $command="cd $dir; $buildcmd --buildroot='$pwd/$dir' -bb $opts '".$this->name."-".$this->version."-".$this->release.".spec'";
+	my $command="cd '$dir'; $buildcmd --buildroot='$pwd/$dir' -bb $opts '".$this->name."-".$this->version."-".$this->release.".spec'";
 	my $log=$this->runpipe(1, "$command 2>&1");
 	if ($?) {
 		die "Package build failed. Here's the log of the command ($command):\n", $log;
@@ -657,6 +658,7 @@ sub _script_helper {
 		$this->{$script} = $value;
 	}
 	$this->{$script} = shift if @_;
+	return $this->{$script};
 
 	# get
 	return unless defined wantarray; # optimization
@@ -692,6 +694,11 @@ sub prerm {
 	my $this=shift;
 	$this->_script_helper('prerm', @_);
 }
+sub escape_percents {
+	my $s=shift;
+	$s =~ s/\%/\%\%/g;
+	return $s;
+}
 
 =item arch
 
@@ -773,6 +780,9 @@ sub arch {
 	elsif ($arch eq 'all') {
 		$arch='noarch';
 	}
+	elsif ($arch eq 'arm64') {
+		$arch='aarch64';
+	}
 	elsif ($arch eq 'ppc64el') {
 		$arch='ppc64le';
 	}

Alien/Package/Tgz.pm

@@ -10,6 +10,7 @@ package Alien::Package::Tgz;
 use strict;
 use base qw(Alien::Package);
 use Cwd qw(abs_path);
+use Alien::Package::Rpm qw(arch);
 
 my $tarext=qr/\.(?:tgz|tar(?:\.(?:gz|Z|z|bz|bz2))?|taz)$/;
 
@@ -110,8 +111,92 @@ sub scan {
 
 	$this->arch('all');
 
-	$this->summary("Converted tgz package");
-	$this->description($this->summary);
+	# Attempt to extract slack-desc
+	my $slack_desc_content = $this->runpipe(1, "tar Oxf '$file' install/slack-desc 2>/dev/null");
+	my $pkg_name = $this->name(); # Get package name early
+
+	if ($slack_desc_content && $slack_desc_content =~ /\S/) {
+		my @slack_lines = split /\n/, $slack_desc_content;
+		
+		# Default values if parsing fails or parts are missing
+		my $default_summary_text = "Package from tgz file (slack-desc found)";
+		my $default_description_text = "Package from tgz file (slack-desc found)";
+		$this->summary($default_summary_text);
+		$this->description($default_description_text);
+
+		my $summary_parsed_successfully = 0;
+
+		if (@slack_lines) {
+			my $first_line = $slack_lines[0]; # Peek at first line
+			# Try to parse summary from the first line using the strict format
+			if ($first_line =~ /^\Q$pkg_name\E: \Q$pkg_name\E \((.+)\)\s*$/) {
+				my $summary_candidate = $1;
+				if ($summary_candidate =~ /\S/) { # Check if captured summary is not just whitespace
+					$this->summary($summary_candidate);
+					$this->description($summary_candidate); # Initial guess for description
+					shift @slack_lines; # Consume the line as it was successfully parsed
+					$summary_parsed_successfully = 1;
+				}
+			}
+		}
+		
+		# Description Parsing from remaining lines (or all lines if summary parse failed)
+		my @description_parts;
+		my $expected_prefix_regex = qr/^\Q$pkg_name\E: /; # $pkg_name: <text>
+		my $paragraph_break_regex = qr/^\Q$pkg_name\E:$/;  # $pkg_name:
+
+		foreach my $line (@slack_lines) {
+			if ($line =~ $paragraph_break_regex) {
+				push @description_parts, ""; # Paragraph break
+			} elsif ((my $desc_content = $line) =~ s/$expected_prefix_regex//) {
+				# Prefix was stripped, $desc_content now holds the rest
+				push @description_parts, $desc_content;
+			} else {
+				# Line does not match strict format, ignore it for description.
+				# This handles cases where the first line was not a valid summary
+				# and is now being re-evaluated here but doesn't fit description format either.
+			}
+		}
+
+		if (@description_parts) {
+			my $parsed_description = join("\n", @description_parts);
+			# Remove leading/trailing empty lines from the final description block
+			$parsed_description =~ s/^\n+//;
+			$parsed_description =~ s/\n+$/\n/; # Keep single trailing newline if content, or make it one if many
+            $parsed_description =~ s/\s+$//; # Trim trailing whitespace overall, including last newline if it was just that
+
+			if ($parsed_description =~ /\S/) {
+				$this->description($parsed_description);
+				# If summary is still the generic default, but we have a description,
+				# try to set summary from the first line of this description.
+				if ($this->summary() eq $default_summary_text) {
+					my ($first_desc_line) = split /\n/, $parsed_description;
+					if ($first_desc_line && length($first_desc_line) < 100 && $first_desc_line =~ /\S/) {
+						$this->summary($first_desc_line);
+					}
+				}
+			} else {
+			    # Description parts were found but resulted in an empty string (e.g. only paragraph markers)
+			    # Revert to summary if summary was good, or default if summary was also default.
+			    if ($summary_parsed_successfully) {
+			        $this->description($this->summary());
+			    } else {
+			        $this->description($default_description_text); # Keep default
+			    }
+			}
+		} elsif (!$summary_parsed_successfully) {
+            # No description parts AND summary was not parsed successfully means slack-desc was
+            # present but entirely unparsable or empty after the first line (if any).
+            # Summary and Description remain $default_summary_text.
+        }
+        # If summary was parsed but no description lines, description is already set to summary.
+
+	} else {
+		# Original behavior if slack-desc is not found or empty
+		$this->summary("Converted tgz package");
+		$this->description($this->summary);
+	}
+
 	$this->copyright('unknown');
 	$this->release(1);
 	$this->distribution("Slackware/tarball");
@@ -177,6 +262,161 @@ sub unpack {
 	return 1;
 }
 
+# Helper function for _format_slack_desc
+sub _format_slack_desc_section {
+    my ($pkgname, $text_content, $num_target_lines, $max_total_line_length) = @_;
+
+    my $line_prefix_with_space = "$pkgname: ";
+    my $line_prefix_no_space = "$pkgname:";
+    # Max length for the actual content, after the prefix
+    my $max_content_len = $max_total_line_length - length($line_prefix_with_space);
+    # Ensure max_content_len is somewhat reasonable if pkgname is very long
+    $max_content_len = 10 if $max_content_len < 10;
+
+    my @formatted_lines;
+    $text_content = "" if !defined $text_content; # Ensure defined
+
+    my @segments = split /\n/, $text_content;
+    # If text_content was empty, split results in one empty segment.
+    # If text_content ended with \n, split might produce an extra empty segment.
+    # We want to preserve intentional paragraph breaks (empty segments from \n\n).
+    
+    # Special case: if text_content is completely empty, segments will be [""]
+    # and num_target_lines is 1, it should produce one "$pkgname:" line.
+    # If text_content is non-empty but results in no words (e.g. "  \n  "),
+    # it should also be handled gracefully.
+
+    SEGMENT: foreach my $segment (@segments) {
+        last SEGMENT if scalar(@formatted_lines) >= $num_target_lines;
+
+        # Trim whitespace from segment. If it becomes empty, it's a paragraph break.
+        $segment =~ s/^\s+|\s+$//g;
+
+        if ($segment eq "") {
+            push @formatted_lines, $line_prefix_no_space;
+            next SEGMENT;
+        }
+
+        my @words = split /\s+/, $segment;
+        next SEGMENT if !@words; # Should not happen if segment was non-empty after trim
+
+        my $current_line_buffer = ""; # Holds content part of the line
+
+        WORD: foreach my $word (@words) {
+            if (scalar(@formatted_lines) >= $num_target_lines && $current_line_buffer eq "") {
+                 # Already filled target lines and current buffer for this segment is empty
+                last SEGMENT;
+            }
+            # Check if a single word itself is too long
+            if (length($word) > $max_content_len) {
+                # If buffer has content, push it first
+                if ($current_line_buffer ne "") {
+                    last SEGMENT if scalar(@formatted_lines) >= $num_target_lines;
+                    push @formatted_lines, $line_prefix_with_space . $current_line_buffer;
+                    $current_line_buffer = "";
+                }
+                # Push the long word, truncated, on its own line
+                last SEGMENT if scalar(@formatted_lines) >= $num_target_lines;
+                push @formatted_lines, $line_prefix_with_space . substr($word, 0, $max_content_len);
+                # The rest of the word is lost, as per typical shell script behavior (often implicit)
+                # Or, decide if $word should become the remainder: $word = substr($word, $max_content_len); and re-evaluate
+                # For now, simply truncating and moving to next word in input.
+                # Given the spec, it's more about fitting, so a very long word will just fill one line.
+                next WORD; # Move to next word, current long word handled.
+            }
+
+            if ($current_line_buffer eq "") {
+                $current_line_buffer = $word;
+            } else {
+                my $potential_line = $current_line_buffer . " " . $word;
+                if (length($potential_line) <= $max_content_len) {
+                    $current_line_buffer = $potential_line;
+                } else {
+                    last SEGMENT if scalar(@formatted_lines) >= $num_target_lines;
+                    push @formatted_lines, $line_prefix_with_space . $current_line_buffer;
+                    $current_line_buffer = $word;
+                }
+            }
+        }# end WORD loop
+        
+        # Push any remaining content in buffer for the current segment
+        if ($current_line_buffer ne "") {
+            last SEGMENT if scalar(@formatted_lines) >= $num_target_lines;
+            push @formatted_lines, $line_prefix_with_space . $current_line_buffer;
+        }
+
+    } # end SEGMENT loop
+
+    # Pad with "$pkgname:" or truncate to meet exactly $num_target_lines
+    while (scalar(@formatted_lines) < $num_target_lines) {
+        push @formatted_lines, $line_prefix_no_space;
+    }
+    if (scalar(@formatted_lines) > $num_target_lines) {
+        @formatted_lines = @formatted_lines[0 .. $num_target_lines - 1];
+    }
+
+    return @formatted_lines;
+}
+
+sub _format_slack_desc {
+	my $this = shift;
+
+	my $pkgname = $this->name() || "unknown"; # Should usually be defined
+	my $summary = $this->summary();
+	my $description = $this->description();
+	my $homepage_url = ""; # Fixed as per requirement
+
+	# Ensure summary is a single, trimmed line
+	$summary = "" if !defined $summary;
+	$summary =~ s/\n.*//s;    # Keep only the first line
+	$summary =~ s/^\s+|\s+$//g; # Trim whitespace
+	$summary = "No summary" if $summary eq "";
+
+
+	$description = "" if !defined $description;
+    # Newlines in description are paragraph separators, handled by _format_slack_desc_section
+
+	my $screen_width = 72 + length($pkgname);
+
+	my $ruler_header = "# HOW TO EDIT THIS FILE:\n# The \"handy ruler\" below makes it easier to edit a package description.\n# Line up the first '|' above the ':' following the base package name, and\n# the '|' on the right side marks the last column you can put a character in.\n# You must make exactly 11 lines for the formatting to be correct.  It's also\n# customary to leave one space after the ':' except on otherwise blank lines.\n\n";
+	
+	my $ruler_gap = ' ' x length($pkgname);
+	my $ruler_base = $ruler_gap . "|-----handy-ruler--";
+	# Screen width is total, ruler includes the final '|', so -1 from screen_width for filling
+	my $ruler_fill_count = $screen_width - 1 - length($ruler_base);
+	$ruler_fill_count = 0 if $ruler_fill_count < 0; # Ensure not negative
+	my $ruler_line = $ruler_base . ('-' x $ruler_fill_count) . '|';
+
+	my $complete_ruler_block = $ruler_header . $ruler_line . "\n";
+
+	# Section 1: Summary (1 line)
+	# The format "$pkgname ($summary)" is part of the text_content for this section
+	my $summary_content_for_section = "$pkgname ($summary)";
+	my @summary_section = _format_slack_desc_section($pkgname, $summary_content_for_section, 1, $screen_width);
+
+	# Section 2: Empty line (1 line)
+	# This is effectively an empty paragraph
+	my @empty_section = _format_slack_desc_section($pkgname, "", 1, $screen_width);
+    # Ensure it's just "$pkgname:" as per spec for empty lines
+    $empty_section[0] = "$pkgname:" if @empty_section;
+
+
+	# Section 3: Description (8 lines)
+	my @description_section = _format_slack_desc_section($pkgname, $description, 8, $screen_width);
+
+	# Section 4: Homepage (1 line)
+	my @homepage_section = _format_slack_desc_section($pkgname, $homepage_url, 1, $screen_width);
+    # Ensure it's just "$pkgname:" if homepage_url is empty
+    if ($homepage_url eq "" && @homepage_section) {
+        $homepage_section[0] = "$pkgname:";
+    }
+
+
+	my $all_content_lines = join("\n", @summary_section, @empty_section, @description_section, @homepage_section);
+	
+	return $complete_ruler_block . $all_content_lines . "\n";
+}
+
 =item prep
 
 Adds a populated install directory to the build tree.
@@ -186,16 +426,41 @@ Adds a populated install directory to the build tree.
 sub prep {
 	my $this=shift;
 	my $dir=$this->unpacked_tree || die "The package must be unpacked first!";
-
+	my $install_dir = $dir."/install";
 	my $install_made=0;
+
+	# Check if install directory already exists (e.g. from unpacking)
+	if (-d $install_dir) {
+	    $install_made = 1;
+	}
+
+	# Generate and write slack-desc if description is meaningful
+	my $description = $this->description();
+	my $summary = $this->summary();
+	if (defined $description && $description =~ /\S/ && $description ne "Converted tgz package" && $description ne $summary) {
+		my $slack_desc_content = $this->_format_slack_desc();
+		if ($slack_desc_content && $slack_desc_content =~ /\S/) {
+			if (!$install_made) {
+				mkdir($install_dir, 0755) 
+					|| die "unable to mkdir $install_dir: $!";
+				$install_made=1;
+			}
+			my $slack_desc_path = $install_dir."/slack-desc";
+			open (SLACKDESC, ">$slack_desc_path") || die "Unable to open $slack_desc_path for writing: $!";
+			print SLACKDESC $slack_desc_content;
+			close SLACKDESC;
+			chmod(0644, $slack_desc_path) || $this->warn("Could not chmod $slack_desc_path: $!");
+		}
+	}
+
 	if ($this->usescripts) {
 		foreach my $script (keys %{scripttrans()}) {
 			my $data=$this->$script();
-			my $out=$this->unpacked_tree."/install/".${scripttrans()}{$script};
+			my $out=$install_dir."/".${scripttrans()}{$script};
 			next if ! defined $data || $data =~ m/^\s*$/;
 			if (!$install_made) {
-				mkdir($this->unpacked_tree."/install", 0755) 
-					|| die "unable to mkdir ".$this->unpacked_tree."/install: $!";
+				mkdir($install_dir, 0755) 
+					|| die "unable to mkdir $install_dir: $!";
 				$install_made=1;
 			}
 			open (OUT, ">$out") || die "$out: $!";
@@ -214,11 +479,21 @@ Build a tgz.
 
 sub build {
 	my $this=shift;
-	my $tgz=$this->name."-".$this->version.".tgz";
-
-	$this->do("cd ".$this->unpacked_tree."; tar czf ../$tgz .")
-		or die "Package build failed";
-
+	my $arch = Alien::Package::Rpm::arch($this, @_);
+	my $tgz=$this->name."-".$this->version."-".$arch."-1_alien.tgz";
+	if (-x "/sbin/makepkg") {
+		my $v=$Alien::Package::verbose;
+		$Alien::Package::verbose=2;
+		$this->do("cd ".$this->unpacked_tree."; makepkg -l y -c n ../$tgz .")
+			or die "Unable to make pkg";
+		$Alien::Package::verbose=$v;
+	}
+	else {
+		# Fallback to plain tar when makepkg is not available
+		# Use same method as makepkg: strip ./ prefix via sed to match Slackware format
+		$this->do("cd ".$this->unpacked_tree."; find ./ | LC_COLLATE=C sort | sed '2,\$s,^\\./,,' | tar --no-recursion -T - -czf ../$tgz")
+			or die "Package build failed";
+	}
 	return $tgz;
 }
 

Makefile.PL

@@ -15,7 +15,7 @@ sub MY::libscan {
 sub MY::postamble {
 	return q{
 
-VER=$(shell perl -e '$$_=<>;print m/\((.*?)\)/'<debian/changelog)
+VER=$(shell perl -e '$$_=<>;print m/\((.*?)\)/'<ChangeLog)
 
 all:: extra_build
 clean:: extra_build

README

@@ -51,8 +51,8 @@ Note:
 Programs that use alien:
 
   I know of one program that acts as a frontend to alien - kpackviewer is a
-  package viewer that can convert between package formats by using alien. Its
-  homepage is at http://www.momentus.com.br/users/hook/kpackviewer.html
+  package viewer that can convert between package formats by using alien. Can
+  be downloaded from https://download.kde.org/Attic/stable/stable/apps/KDE1.x/utils/kpackviewer-0.70.tar.gz
 
   Corel also appears to have (or had) something in Corel linux that
   uses alien.

debian/control

@@ -1,29 +0,0 @@
-Source: alien
-Section: admin
-Priority: optional
-Build-Depends: debhelper-compat (= 13)
-Maintainer: Debian QA Group <packages@qa.debian.org>
-Standards-Version: 4.6.0
-Rules-Requires-Root: no
-Vcs-Git: https://salsa.debian.org/debian/alien.git
-Vcs-Browser: https://salsa.debian.org/debian/alien
-Homepage: http://kitenet.net/~joey/code/alien/
-
-Package: alien
-Architecture: all
-Depends: debhelper (>= 10),
-         ${misc:Depends},
-         ${perl:Depends},
-         rpm (>= 2.4.4-2),
-         dpkg-dev,
-         make,
-         cpio,
-         rpm2cpio
-Suggests: patch, bzip2, lintian, lzma
-Description: convert and install rpm and other packages
- Alien allows you to convert LSB, Red Hat, Stampede and Slackware Packages
- into Debian packages, which can be installed with dpkg.
- .
- It can also generate packages of any of the other formats.
- .
- This is a tool only suitable for binary packages.

debian/copyright

@@ -1,34 +0,0 @@
-Format: https://www.debian.org/doc/packaging-manuals/copyright-format/1.0/
-Source: native package
-
-Files: *
-Copyright: 1996-1997	Christoph Lameter <clameter@debian.org>
-	   1997		Randolph Chung <rc42@cornell.edu>
-	   2001		Mark A. Hershberger <mah@everybody.org>
-	   1997-2011	Joey Hess <joeyh@debian.org>
-License: GPL-2+
-	   
-Files: debian/*
-Copyright: 1996-1997	Christoph Lameter <clameter@debian.org>
-	   1997		Randolph Chung <rc42@cornell.edu>
-	   2001		Mark A. Hershberger <mah@everybody.org>
-	   1997-2011	Joey Hess <joeyh@debian.org>
-	   2015		Fabiano Antunes <fabianoantunes@itgen.com.br>
-License: GPL-2+
-
-License: GPL-2+
- This package is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 2 of the License, or
- (at your option) any later version.
- .
- This package is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- GNU General Public License for more details.
- .
- You should have received a copy of the GNU General Public License
- along with this program. If not, see <https://www.gnu.org/licenses/>
- .
- On Debian systems, the complete text of the GNU General
- Public License version 2 can be found in "/usr/share/common-licenses/GPL-2".

debian/docs

@@ -1,2 +0,0 @@
-README
-gendiff.txt

debian/rules

@@ -1,17 +0,0 @@
-#!/usr/bin/make -f
-%:
-	dh $@
-
-override_dh_auto_test:
-ifeq (,$(filter nocheck,$(DEB_BUILD_OPTIONS)))
-	./alien.pl -V
-endif
-
-
-override_dh_auto_clean:
-	# distclean moans about MANIFEST, this is quieter
-	if [ -e Makefile ]; then $(MAKE) realclean; fi
-
-# Not intended for use by anyone except the author.
-announcedir:
-	@echo ${HOME}/src/joeywiki/code/alien/news

debian/source/format

@@ -1 +0,0 @@
-3.0 (native)