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

* Include the version of alien that generated a deb or rpm in the

Browse Source 
description. Closes: #220763
   * Also put it in the changelog of debian packages.
This commit is contained in:
joey
2003-11-18 04:21:20 +00:00
parent 8117ea95d7
commit d9b05102c4
4 changed files with 15 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Alien/Package/Deb.pm
View File

@@ -331,6 +331,7 @@ sub prep {
print OUT $this->name." (".$this->version."-".$this->release.") experimental; urgency=low\n"; print OUT $this->name." (".$this->version."-".$this->release.") experimental; urgency=low\n";
print OUT "\n"; print OUT "\n";
print OUT " * Converted from .".$this->origformat." format to .deb\n"; print OUT " * Converted from .".$this->origformat." format to .deb\n";
print OUT " by alien version $Alien::Version\n";
print OUT "\n"; print OUT "\n";
print OUT " -- ".$this->username." <".$this->email."> ".$this->date."\n"; print OUT " -- ".$this->username." <".$this->email."> ".$this->date."\n";
print OUT "\n"; print OUT "\n";
@@ -633,7 +634,7 @@ sub description {
} }
$ret=~s/^\n+//g; # kill leading blank lines $ret=~s/^\n+//g; # kill leading blank lines
$ret.=" .\n" if length $ret; $ret.=" .\n" if length $ret;
$ret.=" (Converted from a ".$this->origformat." package by alien.)"; $ret.=" (Converted from a ".$this->origformat." package by alien version $Alien::Version.)";
return $ret; return $ret;
} }

2
Alien/Package/Rpm.pm
View File

@@ -310,7 +310,7 @@ sub prep {
print OUT "\%description\n"; print OUT "\%description\n";
print OUT $this->description."\n"; print OUT $this->description."\n";
print OUT "\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 version $Alien::Version.)\n";
print OUT "\n"; print OUT "\n";
print OUT "%files\n"; print OUT "%files\n";
print OUT $filelist if defined $filelist; print OUT $filelist if defined $filelist;

2
Makefile.PL
View File

@@ -36,7 +36,7 @@ extra_install:
alien: alien:
perl -pe ' \ perl -pe ' \
$$_="" if /use lib/; \ $$_="" if /use lib/; \
$$_="\tmy \$$version_string=\"$(VER)\";\n" \ $$_="our \$$Version=\"$(VER)\";\n" \
if /VERSION_AUTOREPLACE/' alien.pl > alien if /VERSION_AUTOREPLACE/' alien.pl > alien
} }
} }

20
alien.pl
View File

@@ -271,16 +271,19 @@ Randolph Chung, B<<tausq@debian.org>>.
The Solaris pkg code was written by Mark A. Hershberger B<<mah@everybody.org>>. The Solaris pkg code was written by Mark A. Hershberger B<<mah@everybody.org>>.
Alien has been extensively rewritten (3 times) and is now maintained by alien has been extensively rewritten (3 times) and is now maintained by
Joey Hess, B<<joeyh@debian.org>>. Joey Hess, B<<joeyh@debian.org>>.
=head1 COPYRIGHT =head1 COPYRIGHT
Alien may be copied and modified under the terms of the GNU General Public alien may be copied and modified under the terms of the GNU General Public
License. License.
=cut =cut
package Alien;
our $Version='unknown'; # VERSION_AUTOREPLACE done by Makefile, DNE
use strict; use strict;
use lib '.'; # For debugging, removed by Makefile. use lib '.'; # For debugging, removed by Makefile.
use Getopt::Long; use Getopt::Long;
@@ -291,18 +294,17 @@ use Alien::Package::Slp;
use Alien::Package::Pkg; use Alien::Package::Pkg;
use Alien::Package::Lsb; use Alien::Package::Lsb;
# Display alien's version number.
sub version {
print "alien version $Alien::Version\n";
exit;
}
# Returns a list of directories to search for patches. # Returns a list of directories to search for patches.
sub patchdirs { sub patchdirs {
return '/var/lib/alien',"/usr/share/alien/patches"; return '/var/lib/alien',"/usr/share/alien/patches";
} }
# Display alien's version number.
sub version {
my $version_string='unknown'; # VERSION_AUTOREPLACE done by Makefile, DNE
print "Alien version $version_string\n";
exit;
}
# Display usage help. # Display usage help.
sub usage { sub usage {
print STDERR <<EOF; print STDERR <<EOF;