mirror of
https://github.com/Project-OSS-Revival/alien.git
synced 2026-04-24 14:00:17 +00:00
Killed files which have been rewritten and moved.
This commit is contained in:
joey
133
lib/Fromdeb.pm
133
lib/Fromdeb.pm
@@ -1,133 +0,0 @@
|
|||||||
#!/usr/bin/perl
|
|
||||||
#
|
|
||||||
# Package for converting from a .deb file.
|
|
||||||
|
|
||||||
package From::deb;
|
|
||||||
|
|
||||||
use strict;
|
|
||||||
|
|
||||||
# Global variable initialization.
|
|
||||||
|
|
||||||
# This is set to 1 if dpkg-deb is in the path.
|
|
||||||
my $dpkg_deb=undef;
|
|
||||||
my $dir;
|
|
||||||
foreach $dir (split(/:/,$ENV{PATH})) {
|
|
||||||
if (-x "$dir/dpkg-deb") {
|
|
||||||
$dpkg_deb=1;
|
|
||||||
last;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
# Query a deb file for fields, and return a hash of the fields found.
|
|
||||||
# Pass the filename of the deb file to query.
|
|
||||||
sub GetFields { my ($self,$file)=@_;
|
|
||||||
my %fields;
|
|
||||||
|
|
||||||
# Extract the control file from the deb file.
|
|
||||||
my @control;
|
|
||||||
if ($dpkg_deb) {
|
|
||||||
@control = `dpkg-deb --info $file control`;
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
# It can have one of two names, depending on the tar
|
|
||||||
# version the .deb was built from.
|
|
||||||
@control = `ar p $file control.tar.gz | tar Oxzf - control [./]control`;
|
|
||||||
}
|
|
||||||
|
|
||||||
# Parse control file and extract fields.
|
|
||||||
my $i=0;
|
|
||||||
while ($i<=$#control) {
|
|
||||||
$_ = $control[$i];
|
|
||||||
chomp;
|
|
||||||
$fields{NAME} = $1 if (/^Package:\s*(.+)/i);
|
|
||||||
$fields{VERSION} = $1 if (/^Version:\s*(.+)/i);
|
|
||||||
$fields{ARCH} = $1 if (/^Architecture:\s*(.+)/i);
|
|
||||||
$fields{MAINTAINER} = $1 if (/^Maintainer:\s*(.+)/i);
|
|
||||||
$fields{DEPENDS} = $1 if (/^Depends:\s*(.+)/i);
|
|
||||||
$fields{REQUIRES} = $1 if (/^Requires:\s*(.+)/i);
|
|
||||||
$fields{GROUP} = $1 if (/^Section:\s*(.+)/i);
|
|
||||||
if (/^Description:\s*(.+)/i) {
|
|
||||||
$fields{SUMMARY} = "$1";
|
|
||||||
$i++;
|
|
||||||
while (($i<=$#control) && ($control[$i])) {
|
|
||||||
$control[$i] =~ s/^ //g; #remove leading space
|
|
||||||
$control[$i] = "\n" if ($control[$i] eq ".\n");
|
|
||||||
$fields{DESCRIPTION}.=$control[$i];
|
|
||||||
$i++;
|
|
||||||
}
|
|
||||||
$i--;
|
|
||||||
}
|
|
||||||
$i++;
|
|
||||||
}
|
|
||||||
|
|
||||||
$fields{COPYRIGHT}="see /usr/share/doc/$fields{NAME}/copyright";
|
|
||||||
$fields{GROUP}="unknown" if (!$fields{GROUP});
|
|
||||||
$fields{DISTRIBUTION}="Debian";
|
|
||||||
if ($fields{VERSION} =~ /(.+)-(.+)/) {
|
|
||||||
$fields{VERSION} = $1;
|
|
||||||
$fields{RELEASE} = $2;
|
|
||||||
} else {
|
|
||||||
$fields{RELEASE} = '1';
|
|
||||||
}
|
|
||||||
# Just get rid of epochs for now.
|
|
||||||
if ($fields{VERSION} =~ /\d+:(.*)/) {
|
|
||||||
$fields{VERSION} = $1;
|
|
||||||
}
|
|
||||||
|
|
||||||
# Read in the list of conffiles, if any.
|
|
||||||
if ($dpkg_deb) {
|
|
||||||
$fields{CONFFILES}=`dpkg-deb --info $file conffiles 2>/dev/null`;
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
$fields{CONFFILES}=
|
|
||||||
`ar p $file control.tar.gz | tar Oxzf - conffiles 2>/dev/null`;
|
|
||||||
}
|
|
||||||
|
|
||||||
# Read in the list of all files.
|
|
||||||
# Note that tar doesn't supply a leading `/', so we have to add that.
|
|
||||||
$fields{FILELIST}=undef;
|
|
||||||
if ($dpkg_deb) {
|
|
||||||
my $fn;
|
|
||||||
foreach $fn (`dpkg-deb --fsys-tarfile $file | tar tf -`) {
|
|
||||||
$fields{FILELIST}.="/$fn";
|
|
||||||
}
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
my $fn;
|
|
||||||
foreach $fn (`ar p $file data.tar.gz | tar tzf -`) {
|
|
||||||
$fields{FILELIST}.="/$fn";
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
if ($main::scripts) {
|
|
||||||
# Read in the scripts, if any.
|
|
||||||
my $field;
|
|
||||||
for $field ('postinst', 'postrm', 'preinst', 'prerm') {
|
|
||||||
if ($dpkg_deb) {
|
|
||||||
$fields{uc($field)}=`dpkg-deb --info $file $field 2>/dev/null`;
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
$fields{uc($field)}=
|
|
||||||
`ar p $file control.tar.gz | tar Oxzf - $field 2>/dev/null`;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
$fields{RELEASE}++ unless $main::keep_version;
|
|
||||||
|
|
||||||
return %fields;
|
|
||||||
}
|
|
||||||
|
|
||||||
# Handles unpacking of debs.
|
|
||||||
sub Unpack { my ($self,$file,%fields)=@_;
|
|
||||||
if ($dpkg_deb) {
|
|
||||||
Alien::SafeSystem ("(cd ..;dpkg-deb -x $file $fields{NAME}-$fields{VERSION})",
|
|
||||||
"Error unpacking $file\n");
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
Alien::SafeSystem ("(cd ..;ar p $file data.tar.gz) | tar zxpf -",
|
|
||||||
"Error unpacking $file\n");
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
1
|
|
||||||
178
lib/Fromrpm.pm
178
lib/Fromrpm.pm
@@ -1,178 +0,0 @@
|
|||||||
#!/usr/bin/perl
|
|
||||||
#
|
|
||||||
# Package for converting from a .rpm file.
|
|
||||||
|
|
||||||
package From::rpm;
|
|
||||||
|
|
||||||
use strict;
|
|
||||||
|
|
||||||
# Query a rpm file for fields, and return a hash of the fields found.
|
|
||||||
# Pass the filename of the rpm file to query.
|
|
||||||
sub GetFields { my ($self,$file)=@_;
|
|
||||||
my %fields;
|
|
||||||
|
|
||||||
# This maps rpm fields (the keys) to the name we want
|
|
||||||
# for each field (the values).
|
|
||||||
my %fieldtrans;
|
|
||||||
|
|
||||||
# Get the scripts fields too?
|
|
||||||
if ($main::scripts) {
|
|
||||||
%fieldtrans=(
|
|
||||||
'PREIN' => 'PREINST',
|
|
||||||
'POSTIN' => 'POSTINST',
|
|
||||||
'PREUN' => 'PRERM',
|
|
||||||
'POSTUN' => 'POSTRM',
|
|
||||||
);
|
|
||||||
}
|
|
||||||
|
|
||||||
# These fields need no translation.
|
|
||||||
my $field;
|
|
||||||
foreach $field ('NAME','VERSION','RELEASE','ARCH','CHANGELOGTEXT','SUMMARY',
|
|
||||||
'DESCRIPTION', 'COPYRIGHT', 'PREFIXES') {
|
|
||||||
$fieldtrans{$field}=$field;
|
|
||||||
}
|
|
||||||
|
|
||||||
# Use --queryformat to pull out all the fields we need.
|
|
||||||
foreach $field (keys(%fieldtrans)) {
|
|
||||||
$_=`LANG=C rpm -qp $file --queryformat \%{$field}`;
|
|
||||||
$fields{$fieldtrans{$field}}=$_ if $_ ne '(none)';
|
|
||||||
}
|
|
||||||
|
|
||||||
if ($main::scripts) {
|
|
||||||
# Fix up the scripts - they are always shell scripts, so make them so.
|
|
||||||
foreach $field ('PREINST','POSTINST','PRERM','POSTRM') {
|
|
||||||
$fields{$field}="#!/bin/sh\n$fields{$field}" if $fields{$field};
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
# Get the conffiles list.
|
|
||||||
$fields{CONFFILES}=`rpm -qcp $file`;
|
|
||||||
|
|
||||||
# Include the output of rpm -qi in the copyright file.
|
|
||||||
$fields{COPYRIGHT_EXTRA}=`rpm -qpi $file`;
|
|
||||||
|
|
||||||
# Get the filelist, it's used in the parent directory check in Unpack().
|
|
||||||
$fields{FILELIST}=`rpm -qpl $file`;
|
|
||||||
|
|
||||||
# Sanity check fields.
|
|
||||||
if (!$fields{SUMMARY}) {
|
|
||||||
# Older rpms will have no summary, but will have a
|
|
||||||
# description. We'll take the 1st line out of the
|
|
||||||
# description, and use it for the summary.
|
|
||||||
($fields{SUMMARY})=($fields{DESCRIPTION}."\n")=~m/(.*?)\n/m;
|
|
||||||
|
|
||||||
# Fallback.
|
|
||||||
if (!$fields{SUMMARY}) {
|
|
||||||
$fields{SUMMARY}="Converted RPM package";
|
|
||||||
}
|
|
||||||
}
|
|
||||||
if (!$fields{COPYRIGHT}) {
|
|
||||||
$fields{COPYRIGHT}="unknown";
|
|
||||||
}
|
|
||||||
if (!$fields{DESCRIPTION}) {
|
|
||||||
$fields{DESCRIPTION}=$fields{SUMMARY};
|
|
||||||
}
|
|
||||||
|
|
||||||
# Convert ARCH into string, if it isn't already a string.
|
|
||||||
if ($fields{ARCH} eq 1) {
|
|
||||||
$fields{ARCH}='i386';
|
|
||||||
}
|
|
||||||
elsif ($fields{ARCH} eq 2) {
|
|
||||||
$fields{ARCH}='alpha';
|
|
||||||
}
|
|
||||||
elsif ($fields{ARCH} eq 3) {
|
|
||||||
$fields{ARCH}='sparc';
|
|
||||||
}
|
|
||||||
elsif ($fields{ARCH} eq 6) {
|
|
||||||
$fields{ARCH}='m68k';
|
|
||||||
}
|
|
||||||
elsif ($fields{ARCH} eq "noarch") { # noarch = all
|
|
||||||
$fields{ARCH}='all';
|
|
||||||
}
|
|
||||||
|
|
||||||
# Treat 486, 586, etc, as 386.
|
|
||||||
if ($fields{ARCH}=~m/i\d86/) {
|
|
||||||
$fields{ARCH}='i386';
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
# Treat ppc as powerpc.
|
|
||||||
if ($fields{ARCH} eq 'ppc') {
|
|
||||||
$fields{ARCH} = 'powerpc';
|
|
||||||
}
|
|
||||||
|
|
||||||
if ($fields{RELEASE} eq undef || $fields{VERSION} eq undef|| !$fields{NAME}) {
|
|
||||||
Alien::Error("Error querying rpm file.");
|
|
||||||
}
|
|
||||||
|
|
||||||
$fields{RELEASE}++ unless $main::keep_version;
|
|
||||||
$fields{DISTRIBUTION}="Red Hat";
|
|
||||||
|
|
||||||
return %fields;
|
|
||||||
}
|
|
||||||
|
|
||||||
# Unpack a rpm file.
|
|
||||||
sub Unpack { my ($self,$file,%fields)=@_;
|
|
||||||
Alien::SafeSystem("(cd ..;rpm2cpio $file) | cpio --extract --make-directories --no-absolute-filenames --preserve-modification-time",
|
|
||||||
"Error unpacking $file\n");
|
|
||||||
|
|
||||||
# If the package is relocatable. We'd like to move it to be under the
|
|
||||||
# PREFIXES directory. However, it's possible that that directory is in
|
|
||||||
# the package - it seems some rpm's are marked as relocatable and
|
|
||||||
# unpack already in the directory they can relocate to, while some are
|
|
||||||
# marked relocatable and the directory they can relocate to is removed
|
|
||||||
# from all filenames in the package. I suppose this is due to some
|
|
||||||
# vchange between versions of rpm, but none of this is adequatly
|
|
||||||
# documented, so we'll just muddle through.
|
|
||||||
#
|
|
||||||
# Test to see if the package contains the PREFIXES directory already.
|
|
||||||
print "----$fields{PREFIXES}\n";
|
|
||||||
if ($fields{PREFIXES} ne undef && ! -e "./$fields{PREFIXES}") {
|
|
||||||
print "Moving unpacked files into $fields{PREFIXES}\n";
|
|
||||||
|
|
||||||
# Get the files to move.
|
|
||||||
my $filelist=join ' ',glob('*');
|
|
||||||
|
|
||||||
# Now, make the destination directory.
|
|
||||||
my $collect=undef;
|
|
||||||
foreach (split(m:/:,$fields{PREFIXES})) {
|
|
||||||
if ($_ ne undef) { # this keeps us from using anything but relative paths.
|
|
||||||
$collect.="$_/";
|
|
||||||
mkdir $collect,0755 || Alien::Error("Unable to make directory: $collect: $!");
|
|
||||||
}
|
|
||||||
}
|
|
||||||
# Now move all files in the package to the directory we made.
|
|
||||||
Alien::SafeSystem("mv $filelist ./$fields{PREFIXES}",
|
|
||||||
"Error moving unpacked files into the default prefix directory\n");
|
|
||||||
}
|
|
||||||
|
|
||||||
# When cpio extracts the file, any child directories that are present, but
|
|
||||||
# whose parent directories are not, end up mode 700. This next block corrects
|
|
||||||
# that to 755, which is more reasonable.
|
|
||||||
#
|
|
||||||
# Of course, this whole thing assumes we get the filelist in sorted order.
|
|
||||||
my $lastdir=undef;
|
|
||||||
foreach $file (split(/\n/,$fields{FILELIST})) {
|
|
||||||
$file=~s/^\///;
|
|
||||||
if (($lastdir && $file=~m:^\Q$lastdir\E/[^/]*$: eq undef) || !$lastdir) {
|
|
||||||
# We've found one of the nasty directories. Fix it up.
|
|
||||||
#
|
|
||||||
# Note that I strip the trailing filename off $file here, for two
|
|
||||||
# reasons. First, it makes the loop easier, we don't need to fix the
|
|
||||||
# perms on the last file, after all! Second, it makes the -d test below
|
|
||||||
# fire, which saves us from trying to fix a parent directory twice.
|
|
||||||
($file)=$file=~m:(.*)/.*?:;
|
|
||||||
my $dircollect=undef;
|
|
||||||
my $dir;
|
|
||||||
foreach $dir (split(/\//,$file)) {
|
|
||||||
$dircollect.="$dir/";
|
|
||||||
chmod 0755,$dircollect; # TADA!
|
|
||||||
}
|
|
||||||
}
|
|
||||||
if (-d "./$file") {
|
|
||||||
$lastdir=$file;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
1
|
|
||||||
124
lib/Todeb.pm
124
lib/Todeb.pm
@@ -1,124 +0,0 @@
|
|||||||
#!/usr/bin/perl
|
|
||||||
#
|
|
||||||
# Package for converting to .deb file.
|
|
||||||
|
|
||||||
package To::deb;
|
|
||||||
|
|
||||||
use strict;
|
|
||||||
|
|
||||||
# Mangle the fields to fit debian standards.
|
|
||||||
sub FixFields { my ($self,%fields)=@_;
|
|
||||||
# Make sure package name is all lower case.
|
|
||||||
$fields{NAME}=lc($fields{NAME});
|
|
||||||
# Make sure the package name contains no invalid characters.
|
|
||||||
$fields{NAME} =~ tr/_/-/;
|
|
||||||
$fields{NAME} =~ s/[^a-z0-9-\.\+]//g;
|
|
||||||
|
|
||||||
# make sure the version contains digets.
|
|
||||||
if ($fields{VERSION} !~ m/[0-9]/) {
|
|
||||||
# drat. well, add some. dpkg-deb won't work
|
|
||||||
# on a version w/o numbers.
|
|
||||||
$fields{VERSION}.="0";
|
|
||||||
}
|
|
||||||
# same with revision.
|
|
||||||
if ($fields{RELEASE} !~ m/[0-9]/) {
|
|
||||||
$fields{RELEASE}.="-1";
|
|
||||||
}
|
|
||||||
|
|
||||||
# Fix up the description field to Debian standards (indented at
|
|
||||||
# least one space, no empty lines.)
|
|
||||||
my $description=undef;
|
|
||||||
my $line;
|
|
||||||
foreach $line (split(/\n/,$fields{DESCRIPTION})) {
|
|
||||||
$line=~s/\t/ /g; # change tabs to spaces.
|
|
||||||
$line=~s/\s+$//g; # remove trailing whitespace.
|
|
||||||
if (!$line) { # empty lines
|
|
||||||
$line=" .";
|
|
||||||
}
|
|
||||||
else { # normal lines
|
|
||||||
$line=" $line";
|
|
||||||
}
|
|
||||||
$description.=$line."\n";
|
|
||||||
}
|
|
||||||
chomp $description;
|
|
||||||
$fields{DESCRIPTION}=$description."\n";
|
|
||||||
|
|
||||||
return %fields;
|
|
||||||
}
|
|
||||||
|
|
||||||
# Create debian/* files, either from a patch, or automatically.
|
|
||||||
sub Convert { my ($self,$workdir,$nopatch,%fields)=@_;
|
|
||||||
if ($main::generate && !$main::single) {
|
|
||||||
Alien::SafeSystem("cp -fa $workdir $workdir.orig", "Error creating $workdir.orig");
|
|
||||||
}
|
|
||||||
|
|
||||||
# Do the actual conversion here.
|
|
||||||
mkdir "$fields{NAME}-$fields{VERSION}/debian",0755
|
|
||||||
|| Alien::Error("Unable to make debian directory");
|
|
||||||
my $patchfile=$main::patchfile;
|
|
||||||
$patchfile=Alien::GetPatch($fields{NAME},$fields{VERSION},$fields{RELEASE}) if !$patchfile;
|
|
||||||
if ($patchfile && ! $nopatch) {
|
|
||||||
Alien::Patch($patchfile,$workdir);
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
$self->AutoDebianize($workdir,%fields);
|
|
||||||
}
|
|
||||||
chmod 0755,"$workdir/debian/rules";
|
|
||||||
|
|
||||||
# Make the .orig directory if we were instructed to do so.
|
|
||||||
if ($main::single) {
|
|
||||||
print "Directory $workdir prepared.\n";
|
|
||||||
}
|
|
||||||
elsif ($main::generate) {
|
|
||||||
print "Directories $workdir and $workdir.orig prepared.\n";
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
# Fill out templates to create debian/* files.
|
|
||||||
# Pass it the work directory, and the type of package we are debianizing.
|
|
||||||
sub AutoDebianize { my ($self,$workdir,%fields)=@_;
|
|
||||||
Alien::Status("Automatic package debianization");
|
|
||||||
|
|
||||||
# Generate some more fields we need.
|
|
||||||
$fields{DATE}=Alien::GetDate();
|
|
||||||
$fields{EMAIL}=Alien::GetEmail();
|
|
||||||
$fields{USERNAME}=Alien::GetUserName();
|
|
||||||
|
|
||||||
# Fill out all the templates.
|
|
||||||
my $fn;
|
|
||||||
foreach $fn (glob("$main::libdir/to-$main::desttype/$main::filetype/*")) {
|
|
||||||
my $destfn=$fn;
|
|
||||||
$destfn=~s#^$main::libdir/to-$main::desttype/$main::filetype/##;
|
|
||||||
Alien::FillOutTemplate($fn,"$main::workdir/debian/$destfn",%fields);
|
|
||||||
}
|
|
||||||
|
|
||||||
# Autogenerate the scripts without templates, so the scripts
|
|
||||||
# only exist if they need to.
|
|
||||||
my $script;
|
|
||||||
foreach $script ('postinst','postrm','preinst','prerm') {
|
|
||||||
if ($fields{uc($script)}) {
|
|
||||||
open (OUT,">$workdir/debian/$script") ||
|
|
||||||
Alien::Error("$workdir/debian/$script: $!");
|
|
||||||
print OUT $fields{uc($script)};
|
|
||||||
close OUT;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
# Passed the available info about the package in a hash, return the name of
|
|
||||||
# the debian package that will be made.
|
|
||||||
sub GetPackageName { my ($self,%fields)=@_;
|
|
||||||
return "$fields{NAME}_$fields{VERSION}-$fields{RELEASE}_$fields{ARCH}.deb";
|
|
||||||
}
|
|
||||||
|
|
||||||
# Build the debian package.
|
|
||||||
sub Build { my ($self)=@_;
|
|
||||||
Alien::SafeSystem("debian/rules binary","Package build failed.\n");
|
|
||||||
}
|
|
||||||
|
|
||||||
# Install the debian package that is passed.
|
|
||||||
sub Install { my ($self,$package)=@_;
|
|
||||||
Alien::SafeSystem("dpkg --no-force-overwrite -i $package");
|
|
||||||
}
|
|
||||||
|
|
||||||
1
|
|
||||||
147
lib/Torpm.pm
147
lib/Torpm.pm
@@ -1,147 +0,0 @@
|
|||||||
#!/usr/bin/perl
|
|
||||||
#
|
|
||||||
# Package for converting to .rpm file.
|
|
||||||
|
|
||||||
package To::rpm;
|
|
||||||
|
|
||||||
use strict;
|
|
||||||
|
|
||||||
# Mangle the fields to make rpm happy with them.
|
|
||||||
sub FixFields { my ($self,%fields)=@_;
|
|
||||||
# Make sure the version has no dashes in it.
|
|
||||||
$fields{VERSION} =~ tr/-/_/;
|
|
||||||
|
|
||||||
# Fix up the scripts. Since debian/slackware scripts can be anything, even
|
|
||||||
# perl programs or binary files, and redhat is limited to only shell scripts,
|
|
||||||
# we need to encode the files and add a scrap of shell script to make it
|
|
||||||
# unextract and run on the fly.
|
|
||||||
my $field;
|
|
||||||
foreach $field ('POSTINST', 'POSTRM', 'PREINST', 'PRERM') {
|
|
||||||
if ($fields{$field}) {
|
|
||||||
# Rpm expands %S, so escape such things.
|
|
||||||
my $f = pack("u",$fields{$field});
|
|
||||||
$f =~ s/%/%%/g;
|
|
||||||
$fields{$field}=
|
|
||||||
"set -e\n".
|
|
||||||
"mkdir /tmp/alien.\$\$\n".
|
|
||||||
qq{perl -pe '\$_=unpack("u",\$_)' << '__EOF__' > /tmp/alien.\$\$/script\n}.
|
|
||||||
$f.
|
|
||||||
"__EOF__\n".
|
|
||||||
"chmod 755 /tmp/alien.\$\$/script\n".
|
|
||||||
"/tmp/alien.\$\$/script \"\$@\"\n".
|
|
||||||
"rm -f /tmp/alien.\$\$/script\n".
|
|
||||||
"rmdir /tmp/alien.\$\$";
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
return %fields;
|
|
||||||
}
|
|
||||||
|
|
||||||
# Generate the spec file.
|
|
||||||
sub Convert { my ($self,$workdir,$nopatch,%fields)=@_;
|
|
||||||
Alien::Status("Automatic spec file generation");
|
|
||||||
|
|
||||||
# Create some more fields we will need.
|
|
||||||
my $pwd=`pwd`;
|
|
||||||
chomp $pwd;
|
|
||||||
$fields{BUILDROOT}="$pwd/$workdir"; # must be absolute filename.
|
|
||||||
|
|
||||||
# Remove directories from the filelist. Place %config in front of files
|
|
||||||
# that are conffiles.
|
|
||||||
my @conffiles=split(/\n/,$fields{CONFFILES});
|
|
||||||
my $filelist;
|
|
||||||
my $fn;
|
|
||||||
foreach $fn (split(/\n/,$fields{FILELIST})) {
|
|
||||||
if ($fn=~m:/$: eq undef) { # not a directory
|
|
||||||
if (grep(m:^\Q$fn\E$:,@conffiles)) { # it's a conffile
|
|
||||||
$filelist.="%config $fn\n";
|
|
||||||
}
|
|
||||||
else { # normal file
|
|
||||||
# Filename must be quoted so rpm can handle
|
|
||||||
# spaces.
|
|
||||||
$filelist.="\"$fn\"\n";
|
|
||||||
}
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
# Add directories too.
|
|
||||||
$filelist.="%dir \"$fn\"\n";
|
|
||||||
}
|
|
||||||
}
|
|
||||||
$fields{FILELIST}=$filelist;
|
|
||||||
|
|
||||||
Alien::FillOutTemplate("$main::libdir/to-$main::desttype/$main::filetype/spec",
|
|
||||||
"$workdir/$fields{NAME}-$fields{VERSION}-$fields{RELEASE}.spec",%fields);
|
|
||||||
|
|
||||||
if ($main::generate) {
|
|
||||||
print "Directory $workdir prepared.\n";
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
# Passed the available info about the package in a hash, return the name of
|
|
||||||
# the rpm package that will be made.
|
|
||||||
sub GetPackageName { my ($self,%fields)=@_;
|
|
||||||
|
|
||||||
# Ask rpm how it's set up. We want to know what architecture it will output,
|
|
||||||
# and where it will place rpms.
|
|
||||||
my ($rpmarch, $rpmdir);
|
|
||||||
foreach (`rpm --showrc`) {
|
|
||||||
chomp;
|
|
||||||
if (/^build arch\s+:\s(.*)$/) {
|
|
||||||
$rpmarch=$1;
|
|
||||||
}
|
|
||||||
elsif (/^rpmdir\s+:\s(.*)$/) {
|
|
||||||
$rpmdir=$1;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
if (!$rpmarch) {
|
|
||||||
Alien::Error("rpm --showrc failed.");
|
|
||||||
}
|
|
||||||
|
|
||||||
# Debian's "all" architecture is a special case, and the output rpm
|
|
||||||
# will be a noarch rpm.
|
|
||||||
if ($fields{ARCH} eq 'all') { $rpmarch='noarch' }
|
|
||||||
|
|
||||||
if (! $rpmdir) {
|
|
||||||
# Presumably we're delaing with rpm 3.0 or above, which
|
|
||||||
# doesn't output rpmdir in any format I'd care to try to parse.
|
|
||||||
# Instead, rpm is now of a late enough version to notice the
|
|
||||||
# %define's in the spec file, that will make the file end up in
|
|
||||||
# the directory we started in.
|
|
||||||
return "$fields{NAME}-$fields{VERSION}-$fields{RELEASE}.$rpmarch.rpm";
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
# Old rpm.
|
|
||||||
return "$rpmdir/$rpmarch/$fields{NAME}-$fields{VERSION}-$fields{RELEASE}.$rpmarch.rpm";
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
# Build a rpm file.
|
|
||||||
sub Build { my ($self,%fields)=@_;
|
|
||||||
# Debian's "all" architecture is a special case where we make noarch rpms.
|
|
||||||
my $buildarch;
|
|
||||||
if ($fields{ARCH} eq 'all') {
|
|
||||||
# Nasty version check in here because rpm gratuitously
|
|
||||||
# changed this option at version 3.0.
|
|
||||||
my $lc_all=$ENV{LC_ALL};
|
|
||||||
$ENV{LC_ALL}='C';
|
|
||||||
my $version=`rpm --version`;
|
|
||||||
$ENV{LC_ALL}=$lc_all; # important to reset it.
|
|
||||||
my $minor;
|
|
||||||
($version,$minor)=$version=~m/version (\d+).(\d+)/;
|
|
||||||
if ($version >= 3 || ($version eq 2 && $minor >= 92)) {
|
|
||||||
$buildarch="--target noarch";
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
$buildarch="--buildarch noarch"
|
|
||||||
}
|
|
||||||
}
|
|
||||||
Alien::SafeSystem("rpm $buildarch -bb $ENV{RPMBUILDOPT} $fields{NAME}-$fields{VERSION}-$fields{RELEASE}.spec",
|
|
||||||
"Error putting together the RPM package.\n");
|
|
||||||
}
|
|
||||||
|
|
||||||
# Install the passed rpm file.
|
|
||||||
sub Install { my ($self,$package)=@_;
|
|
||||||
Alien::SafeSystem("rpm -ivh $ENV{RPMINSTALLOPT} $package");
|
|
||||||
}
|
|
||||||
|
|
||||||
1
|
|
||||||
Reference in New Issue
Block a user